САБЖ.

http://vingrad.ru/DELPHI-DLP-000552

Alex а по проще нету? В часности, я не понял, что за "WindowClassName", и в целом я ещё не проверял код (точнее не получилось). Но мне нужно, чтобы у меня при нажатии на кнопку появлялась вторая форма, а в середине код должен прирватся и ждать нажатия определённой клавиши для продолжения.

Цитата(Zero @ 1.2.2005, 01:26)

в середине код должен прирватся

в середине чего? той процедуры, которая запускает вторую форму?

Цитата(Zero @ 1.2.2005, 01:26)

ждать нажатия определённой клавиши для продолжения.

тоже не очень понятно...

З.Ы. Может не в тему, но если тебе нужно, чтоб код приостанавливался в момент открытия второй формы и возобновлялся в момент ее закрытия, то вместо Show используй ShowModal

Привет, Zero. Отдельное спасибо за "плюсик".

Решение на самом деле простое (опять же если я тебя правильно понял).
Воспользуйся API-функцией GetKeyState. Как только она возвратит значение, меньшее нуля,- значит клавиша нажата.


Например, этот код делает следующее: при запуске приложения главное окно не появится пока не будет нажата комбинация Alt-F5.

Код

procedure TForm1.FormCreate(Sender: TObject); begin // если нужно отследить одну клавишу F5 // While GetKeyState(VK_F5)>=0 do; While true do begin   if (GetKeyState(VK_F5)<0) and (GetKeyState(VK_MENU)<0) then Break;  end; end;

Ой, как жестоко. Зачем же так систему грузить?
Вот вариант на событии Application'a:

Код

procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;  var Handled: Boolean); begin  if Msg.CharCode=VK_F1 then begin    MessageBox(0,'Нажал!','Кнопошка',MB_OK);    Handled:=true;  end else Handled:=false; end;

А вообще, если смотреть второе пояснение, то требуется всего лишь Form2.ShowModal.
А потом вторую форму просто закрываем по нажатию определенной кнопы и продолжаем первую форму.
Или не так?

Цитата(Fedor @ 1.2.2005, 02:41)

в середине чего? той процедуры, которая запускает вторую форму?

Точнее после появления формы.

Цитата(Fedor @ 1.2.2005, 02:41)

Цитата (Zero @ 1.2.2005, 01:26) ждать нажатия определённой клавиши для продолжения. тоже не очень понятно...

Если это был был бы Турбо Паскаль, то было бы типа того:

Код

var  c:char; ... begin c:=readkey; if c='<нужный символ>' then <выполнить нужное действие> ...

Цитата

Воспользуйся API-функцией GetKeyState.

ДЫМ у меня сразу всё зависает при вызове этой процедуры.

Цитата(Snowy @ 1.2.2005, 10:14)

Вот вариант на событии Application'a:

Snowy я непонял как же её потом вызывать, точнее судя по заголовку

Код

ApplicationEvents1ShortCut(<тут должен быть символ(, но только какой)>,<здесь False/true (но ни то ни др. не работает)>);

Вобщем чтобы всем было понятно что мне нужно, напишу отрывок моей проги:
1. Создать новую форму, и бросить на неё Label
2. Процедура вывода информации

Код

procedure Output(s:string); begin  with unit2.Form2 do    begin      Visible:=false;      Visible:=true;      Label1.Caption:=s;    end; end;

3. Процедура которая всем управляет (точнее её кусок):

Код

procedure TForm1.Button1Click(Sender: TObject); begin  repeat    case i of      0: Output('Сообщение1');      1: Output('Сообщение2');      {.....................}    end;    i:=i+1;    if i=2 then i:=1; {Тут нужно вставить функцию которая будет ждать нажатия клавиши для дальнейших действвий, а то сообщения идут безастоновочно}  until false; end;

PS: Вобщем необращайте внимание на мой код и всё остальное, мне нужна лишь функция (типа как в Паскале Readkey), всё остальное пишу лишь для того чтобы всем было всё понятно. Заголовок темы ─ ЕСТЬ ВОПРОС.


Это сообщение отредактировал(а) Zero - 1.2.2005, 15:22

Оконное приложение - система событийная. Там нет понятия "ждать".
Можно полностью усыпить приложение, но тогда не будет никакой реакции от него.
Так что единственный выход - ждать нужного события.

Цитата

Snowy я непонял как же её потом вызывать, точнее судя по заголовку

ее не нужно вызывать. Кидаешь на форму TApplicationEvent и создаешь событие OnShortCut.
А в ней уже обрабатываешь кнопку когда как тебе нужно.
Единственный минус, что работает всегда, независимо от того, какая форма сейчас на экране.

http://vingrad.ru/DELPHI-DLP-000574
http://vingrad.ru/DELPHI-DLP-000556
http://vingrad.ru/DELPHI-DLP-000553