Значит зделал я штоб форма сворачивалась в трей. Но теперь когда я её вытаскиваю из трея она ззаде всех остальных програм. (Напремер фирефох итд..)
Незнаю как зделать штоб она была поверх всего...
Код:
procedure TMainForm.TrayLButtonDblClick(Sender: TObject);
begin
//We need to show form when we click on tray icon.
Visible := True;
//Тут нада впесать штото штоб она была поверх всех после того как разворачивается.
end;
procedure TMainForm.TrayMinimizeApp(Sender: TObject);
begin
//We need to hide program in tray when we minimize.
Visible := False;
end;