Thema: Delphi Frage zu Tabstop setzen

Einzelnen Beitrag anzeigen

Jerry

Registriert seit: 24. Feb 2005
Ort: Schweiz/Thurgau
138 Beiträge
 
Delphi 2010 Professional
 
#1

Frage zu Tabstop setzen

  Alt 14. Nov 2005, 20:32
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? Der Parent könnte eben auch ein Frame XY sein.

Ich brauche den Parent, da ich in meinen Formularen mit Frames arbeite, somit ist die Variable eindeutig.

Wenn Frames auf dem Formular sind können gleichnamige controls auf dem Formular sein. Beispiel:
"Frame1.Groubox1.edit1"

Ich hoffe das Problem ist einigermassen schlau geschildert... ???

Mit diesem Code habe ich das versucht:

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;
In diesem Beispiel ist Wincontrol immer nil.
Wenn ich in setfield "nur" den Wert "edit1" übergebe funzt es perfekt. Aber wie gesagt, sobald Frames auf dem Formular sind, ist die Variable nicht mehr eindeutig.

Gibt es irgend eine Möglichkeit mit meiner gesetzten Variable zu meinem Ziel zu kommen?

Danke für Euren Input!
  Mit Zitat antworten Zitat