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!