|
|
|
|
Одной строкой
Форма постоянно сверху приложения?
Форма должна иметь нормальный стиль (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;
|
|
|
|
|
|