[Elza]

Добрый день, подскажите пожалуйста, как сделать так: если нажата клавиша ctrl то форма разворачивается и становится поверх всех окон. А если клавиша ctrl не нажата то форма сворачивается и уходит на задний план.

[Elza]

Вопрос решен!

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getasynckeystate($11)<>0 then
begin
Form1.Show;
Form1.FormStyle:=fsStayOnTop;
end
else
Form1.Hide;
end;