Сделать "плавающую панель" |
ОГЛАВЛЕНИЕ    HOME  MAIL |
Так называемая "плавающая панель" используется обычно для панелей инструментов. Текст в модуле с основной формой: 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; email: delphi4all@narod.ru |