Hallo!
Ich habe folgendes Problem und hoffe auf Hilfe durch einen anderen Programmier-Freak.
Während des Programmlaufes werden in einer TGroupBox unterschiedliche viele TCheckBox und TComboBox erzeugt. Name, Position und Caption werden entsprechend der Anzahl automatisch berechnet bzw. aus einer Datenbank entnommen.
Jede TCheckBox kann bei onclick bzw. jede TComboBox bei onchange mit
Delphi-Quellcode:
procedure TForm.ChgCB(Sender: TObject);
var
s : string;
varBool : Boolean;
varText : string;
begin
....
s := Self.ActiveControl.Name;
if (FindComponent(s) is TCheckBox)
then varBool := (TCheckBox(FindComponent(s)).checked);
if (FindComponent(s) is TComboBox)
then varText := (TComboBox(FindComponent(s)).Text);
....
end;
ausgewertet werden.
Jedoch sind alle meine Versuche, Checked während des Programmlaufes einen Wert zuzuweisen mißlungen. Die Variante:
Delphi-Quellcode:
s := Self.ActiveControl.Name;
if (FindComponent(s) is TCheckBox)
then (TCheckBox(FindComponent(s)).checked) := varBool;
if (FindComponent(s) is TComboBox)
then (TComboBox(FindComponent(s)).Text) := varText;
läßt sich nicht compilieren. Folgender Fehler wird angezeigt:
Der linken Seite kann nichts zugewiesen werden.
Sollte jemand die Lösung kennen, so bitte ich um den noch fehlenden Tipp.
Eddy
[edit=Sakura]Überschrift geändert, DELPHI-Tags gesetzt[/edit]