[bender4219]

Сообщение от Amgsys HQ

Пишешь этот код в событие OnTimer таймера, который кидаешь на форму, с интервалом в 10:

Код:

procedure TMyForm.ShowTimerOnTimer(Sender: TObject);
begin
  if GetAsyncKeyState($69) > 0 then // Проверка, нажата ли Num9.
  begin
    { Выполняешь какие-то действия }
    if not MyForm.Visible then
      MyForm.Show // Показываешь окно
    else
      MyForm.Hide; // Скрываешь окно
  end;
end

Спосибо, но не работает=\