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

Delphi-Quellcode:

  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:

Zitat von malo

Darf ich fragen, WAS nicht klappt?

Bei dem Aufruf

Delphi-Quellcode:

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. :pale:

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:

Zitat von SirThornberry

musst du nicht

Der Code funzt super danke. :dp:

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.