Форма постоянно сверху приложения

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Форма должна иметь нормальный стиль (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;

{/codecitation}

Добавить комментарий