Сделать плавающую панель
Так называемая "плавающая панель" используется обычно для панелей инструментов.
Текст в модуле с основной формой:
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.Show;
end;
|
Текст в модуле с "плавающей" панелью:
private
procedure CreateParams(var Params: TCreateParams); override;
...
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
begin
Style := Style or WS_OVERLAPPED;
WndParent := Form1.Handle;
end;
end;
|
|