Форма постоянно сверху приложения
Форма должна иметь нормальный стиль (normal style), необходимо лишь
переписать процедуру CreateParams:
procedure TFloatingToolbar.CreateParams( var Params: TCreateParams );
begin
inherited CreateParams( Params );
with Params do
begin
Style := Style or ws_Overlapped;
WndParent := MainForm.Handle;
end;
end;
|
|