Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Скрыть форму   Найти похожие ветки 

← →
anod   (2002-03-31 00:20) [13]

Не работает.

Да, ещё у меня такая проблема. Сделал код, чтоб при нажатии на клавишу на клаве форма либо скрывалась, либо показывалась.
Тоже не работает. Мерцает и опять видимая.
procedure TNoteF.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
begin
if flag then
begin
NoteF.Hide;
flag:=false;
end;
if flag=false then
begin
NoteF.Show;
flag:=True;
end;
end;
Done := True;
end;
end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c