UI Nachrichtenverarbeitung in mehreren Units/Klassen

[optiman]

Hallo,

ich verwende Delphi 10 Seattle zur Entwicklung einer Windows Desktop Applikation mit VCL.

Meine Haupt-Form enthält UI-Elemente (Menü, Button, Edit usw).
Ich möchte nun Gruppen von UI-Elementen in eigenen Klassen abarbeiten.
Die Menünachrichten sollen also in der Klasse TUiMenu in der Unit UiMenu verarbeitet werden.
Ein logisch zusammengehörender Satz von Button, Edit, Combobox soll auch in einer eigenen Unit verarbeitet werden.
So werden die einzelnen Klassen kleiner und übersichtlicher.

Geht das? Wie?

[Der schöne Günther]

Hallo und Herzlich Willkommen in den Heiligen Hallen des Wissens und des Wahnsinns.

Du meinst "Frames", oder?

http://docwiki.embarcadero.com/RADSt...rames_arbeiten

Du bearbeitest einen Frame fast exakt wie ein Formular, kannst aber, neben Buttons, Edits und all dem, auch Frames auf dein Formular (oder Frame) werfen. Deinem Frame kannst du im Code-Editor wieder öffentliche Methoden und Eigenschaften verpassen welche du vom Formular aus nutzen kannst.

[optiman]

Danke für die schnelle Antwort.

Also ein neues Frame erzeugt (Frame_1). Da ist jetzt ein TEdit (Edit1) drauf.

Das Frame (Frame_1A) lege ich in meine MainForm.

OnChange für Edit1 wird nun in der MainForm verarbeitet.
(procedure TMainForm.Frame1AEdit1Change(Sender: TObject))

Wenn man mehrere Instanzen der Form hat (also auch ein Frame_1B), dann scheint das ja sinnvoll.

Wenn ich 10 Forms mit je 10 Controls auf meine MainForm packe, habe ich mindestens 100 Ereignismethoden in der MainForm.

Die Form soll selbst wissen, was sie bei einem Ereignis zu tun hat, soll also selbst auf die Nachricht reagieren. Das geht nicht.

Wie kann ich aus der MainForm die Nachricht an den Frame leiten? Das würde ja auch helfen.

[Zacherl]

Du kannst das Event doch einfach im Frame setzen statt im Formular.

[optiman]

Das OnChange wird leider nicht an den Frame durchgereicht.

MainForm ohne Eventhandler

Code:

  TMainForm = class(TForm)
    Frame1A: TFrame1;
  end;

Frame mit nie gerufenem Eventhandler

Code:

  TFrame1 = class(TFrame)
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  end;

...

procedure TFrame1.Edit1Change(Sender: TObject);
begin
    // Wird nie gerufen
    // Edit1.Text verarbeiten
end;

Was mache ich falsch?

[jaenicke]

Der Eventhandler, den du im Frame zugewiesen hast, steht bei OnChange beim Edit aber noch drin?
Nicht dass du den jetzt im Formular quasi deaktiviert hast. Am einfachsten siehst du das im Formularquelltext (Alt + F12 in der Formularansicht). Da sollte OnChange nicht auftauchen. Nur im Frame.

[bernau]

Frames sind klasse, aber haben auch so ihre Macken.

Geh mal im TMainForm in die Textansicht. (Rechte Maustaste auf das Form und dann "Ansicht als Text)

Schau mal ob dort Edit1Change=nil steht. Wenn ja, dann einfach herauslöschen.