[gelöst] TFormularclass von FormularObject ermitteln

[Carsten1975]

Hallo zusammen,

ich habe eine ComboBox mit dem Namen 'cmbConstWert' die auf dem Formular 'FrmConst' mit dem Namen der FormClass 'TgFrmConst' ist.

Jetzt übergebe ich als Sender das TObject TComboBox an eine Funktion.

Wie kann ich jetzt die übergeordnete FormClass 'TgFrmConst' aus dem TObject ermitteln?

Danke
Carsten

[theo]

Verstehe nicht ganz, aber ich vermute du suchst "Parent"?

Code: Alles auswählen

(TWinControl(Sender).Parent as TForm).Caption:='test';   

Aber Achtung, wenn Das Control auf einem Anderen liegt (z.B. auf einem Panel) ist dies der Parent und dessen Parent Ggf. das Formular.

[wp_xyz]

Oder etwas allgemeiner: Jedes Control hat einen Parent. Der Parent ist auch ein Control, hat also ebenfalls wiederum einen Parent. Nur nicht das Formular, das sitzt am Ende der Kette. Daher laufe einfach die Kette der Parents hoch, bis du dann das Control findest, das keinen Parent mehr hat - das ist das Formular.

Ich denke, es gibt auch eine fertige Methode dafür, die ich aber gerade nicht weiß. Aber auf jeden Fall ist es eine gute Gehirnübung, solche hierarchischen Strukturen gedanklich zu durchlaufen:

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
var
  c: TControl;
  p: TWinControl;
begin
  c := Button1;
  p := c.Parent;
  while p <> nil do
  begin
    c := p;
    p := p.Parent;
  end;
  ShowMessage(c.ClassName);
end;

[fliegermichl]

Wenn sicher ist, daß man das Formular sucht, in dem ein Control enthalten ist, kann man GetParentForm(Control) verwenden.

[Carsten1975]

Danke, das ist die Lösung.

[theo]

Alles schön, aber im Normalfall weiss man doch, wo (drauf) das Control liegt und braucht das Formular eigentlich nicht jedes Mal suchen.

[af0815]

Wenn man zB Frames verwendet, weist du nicht auf welchen Formular dein Control liegt

[theo]

Wenn man zB Frames verwendet, weist du nicht auf welchen Formular dein Control liegt

Klar kann das sein, deshalb sagte ich "im Normalfall".
So wie es der TE schreibt: "ich habe eine ComboBox mit dem Namen 'cmbConstWert' die auf dem Formular 'FrmConst' mit dem Namen der FormClass 'TgFrmConst' ist", ist das nichts Kompliziertes und deshalb muss er das Formular nicht jedes Mal "suchen".