Как узнать, было ли сообщение "MessageDlg"?

@shyub · Регистрация: 11.07.2013

Author24 — интернет-сервис помощи студентам

Суть задачи такая:

Delphi

// Имитация нажатия кнопки с клавиатуры.
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of 
    107, 187: begin // Кдавища "+" - опустить головку..
      if not BCButton9.Down then begin
        BCButton9MouseDown(Sender, mbLeft, [], 0, 0); // Здесь может появиться сообщение "MessageDlg".
        BCButton9.Down:=true;
      end;
    end;
    ........

Delphi

// Имитация отпускания кнопки.
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if((Key=107) or (Key=187))and BCButton9.Down then begin 
    BCButton9MouseUp(Sender, mbLeft, Shift, 0,0);
    BCButton9.Down:=false;
  end;
  ......

В случае, если в процедуре BCButton9MouseDown появляется сообщение MessageDlg событие FormKeyUp не наступает, а кнопка BCButton9 остаётся в нажатом состоянии.
Устанавливать после каждого сообщения что-то типа

Delphi

MessageDlg(...)...
BCButton1.Down then BCButton1.Down:=false;
BCButton2.Down then BCButton2.Down:=false;
.......
BCButton9.Down then BCButton9.Down:=false;
.......
BCButton40.Down then BCButton9.Down:=false;

не целесообразно, т.к. в программе много кнопок и различных сообщений, которые могут появляться в зависимости от ситуации после нажатия каждой кнопки.
Есть ли возможность каким-то образом "отлавливать" события появления сообщения "MessageDlg" (вернее закрытие этого окна), чтобы затем сбросить нажатую кнопку?

Nataly_K · 23.08.2017, 17:12

Сообщение от shyub

Есть ли возможность каким-то образом "отлавливать" события появления сообщения "MessageDlg" (вернее закрытие этого окна)

Есть-то оно есть, только как бы это потом в других местах боком не вышло. Ну да ладно:

Pascal

type
  { TForm1 }
  TForm1 = class(TForm)
 
    { ... тут компоненты и события ... }
 
  public
    { А вот тут - самое интересное: }
    procedure EditingDone; override;
  end;

реализация:

Pascal

procedure TForm1.EditingDone;
begin
  inherited EditingDone;
  // тут можно реагировать на закрытие MessageDlg-а, этот метод сработает ровно в момент его закрытия
end;

Но еще раз повторяю: надо очень внимательно протестировать, не будет ли это срабатывать при показе других форм.

	23.08.2017, 17:12