Syntax Delphiproblem

[Jerry]

Ich habe folgendes Problem:

in der variable setfield steht 'gb_Allgemein.edit1'. (Der Punkt ist das Trennzeichen)
Wie kann ich jetzt das Feld edit1 mit dem Parent gb_Allgemein auf Tabstop False stellen?
Ich brauche den Parent, da ich in meinen Formularen mit Frames arbeite.

Delphi-Quellcode:

procedure LoadTabStop(Formular: TForm);
var
  Komponente: TComponent;
  setfield : String;
begin
  setfield:= 'gb_Allgemein.edit1'; // Wird aus DB geladen
  Komponente := Formular.FindComponent(setfield);
  if Komponente <> nil then
  begin
     TWinControl(Komponente).TabStop := False;
  end;
end;

Danke für Tipps!

[mumu]

naja ich würde den string beim punkt aufbrechen und in 2 schritten suchen, als erstes den frame bzw. die form und dann das control...

[Angel4585]

Kann es sein das deine übergebene Form gb_allgemein ist?

In dem Fall solltest du das gb_allgemein in der Variable weglassen. Dann müsstest du einfach mit
TEdit(Formular.FindComponent(setField)).TabStop darauf zugreifen können.

Statt TWinControll also TEdit

Habs nicht ausprobiert aber müsste gehen.

[Jerry]

hallo Angel

Leider klappt dein Tipp nicht bei Frames, genau da liegt das Problem. Wenn mit Frames gearbeitet wird, reicht der FindComponent nicht aus. Darum nehme ich immer noch den Parent mit. Mit dem Parent und dem eigentlichen Feldnamen sollte ich expliziet den Tabstop setzen können.

Hast Du hierzu einen Tipp?

[Khabarakh]

Kannst du der Prozedur nicht eine direkte Referenz auf das Edit übergeben?

[Jerry]

normal schon aber wie gesagt, bei Frames scheint dies nich zu funzen....

[Khabarakh]

Falls das nicht klar sein sollte: Mit Referenz meine ich eine Objektvariable. Ich kann mir keinen Fall vorstellen, der sich nur per String lösen ließe :gruebel: .

[Jerry]

achso, mmm auch ein Ansatz muss ich mal probieren...