TCheckBox TComboBox laufzeitgeneriert - Eigenschaften setzen

[sakura]

Du kannst direkt über den Sender gehen. Ist eleganter und einfacher:

Delphi-Quellcode:

procedure TForm.ChgCB(Sender: TObject); 
var 
  varBool : Boolean; 
  varText : string; 
begin 
  .... 
  if Sender is TCheckBox
    then varBool := TCheckBox(Sender).Checked
  else if Sender is TComboBox
    then varText := (TComboBox(Sender).Text); 
  .... 


  // später dann
  if Sender is TCheckBox
    then TCheckBox(Sender).Checked := varBool;
  if Sender is TComboBox
    then TComboBox(Sender).Text := varText;
end;