Tastaureingabe bei dyn. erstellter Form überwachen

[TeTSuO]

Zitat:

Du solltest aber schon ein wenig Vorkentnisse in OOP haben, die du hier kriegen kannst

Die Vorkenntnisse hab ich schon ich hab schon mehre klassen programmiert.
Ich hab aber gedacht ob es vielleicht so geht damit ich nicht so viel proggen muss

Delphi-Quellcode:

Type TMsgForm = class(TForm)
     published
        property OnKeyPress: TKeyPressEvent;
 End;

Var AMsgDialog : TMsgForm;

Dann klappt das aber nicht mehr mit

  AMsgDialog := CreateMessageDialog(Cap, GetmtType(uType), Getbtns(uType)); Das wäre das einfachste wenn einer ne idee hätte wie das funzt

[malo]

Darf ich fragen, WAS nicht klappt?

[TeTSuO]

Zitat von malo:

Darf ich fragen, WAS nicht klappt?

Bei dem Aufruf
AMsgDialog := CreateMessageDialog(Cap, GetmtType(uType), Getbtns(uType)); Steht im Meldungsfenster

[Fehler] MsgBox.pas(47): Inkompatible Typen: 'TMsgForm' und 'TForm'

[malo]

Zeig uns doch mal die Funktion CreateMessageDialog

Ich hab dieses seltsame Gefühl, dass sie als Rückgabewert "TForm" hat

[TeTSuO]

Die Function ist in Delphi integriert in der Unit Dialogs und mit dem Hint hab ich gesehen das Sie TForm zurückgibt.

Was Jetzt

[SirThornberry]

du musst die methode auch nicht unbedingt in diese Klasse packen. Du kannst die Methode auch in dein MainForm packen.

[TeTSuO]

In diesem Fenster wird aber auch der Esc Button schon abgefragt ich muss es also über das Fenster der MessageBox machen und dem kann ich die Prozedur nicht zuweisen bzw. auslesen

[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;
  [...]

[TeTSuO]

Zitat von SirThornberry:

musst du nicht

Der Code funzt super danke.

Dann muus ich aber wenn ich die Unit in ner anderen App benutze das OnKeyPressEvent anpassen und auch die zuweisung zum Event ändern.

[SirThornberry]

hättest du bei deinem ausgangsposting auch gemusst, ansonsten würde nur CreateMessageDialog neu zu schreiben übrig bleiben.