Tastaureingabe bei dyn. erstellter Form überwachen

[SirThornberry]

musst du nicht

Delphi-Quellcode:

type
  TYourMainForm = class(TFrom)
  [...]
  private
    procedure FOnKeyPressFuerMsgDlg(Sender: TObject; var Key: Char);
    [...]
  end;

[...]
procedure TYourMainForm.FOnKeyPressFuerMsgDlg(Sender: TObject; var Key: Char);
begin
  //das ist nun die OnKeyPress für dein Dialog
end;
[...]
var AMsgDialog: TForm;
begin
  AMsgDialog := CreateMessageDialog(Cap, GetmtType(uType), Getbtns(uType));
  AMsgDialog.OnKeyPress := FOnKeyPressFuerMsgDlg;
  [...]