![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Прозрачный фрейм [D7, WinXP]
Ви талька 2005 © (2005-08-14 14:25:00)Здравствуйте, мастера. Подскажите пожалуйста, как сделать прозрачный фрейм? И реально ли такое вообще?
Виталька2005 (2005-08-15 00:49:00) [1]2 jack128: Спасибо огромное, всё работает.
2 TUser: Попробовал, не помогло.
TUser (2005-08-14 16:08:00) [2]Может просто ему сделать Send To Back после помещения на форму.
jack128 (2005-08-14 15:49:00) [3]
type
TFrame2 = class(TFrame)
private
{ Private declarations }
protected
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
{ TFrame2 }
procedure TFrame2.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;