|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
Delphi 12 Athens
|
Re: Variable Formularelemente
24. Okt 2007, 10:12
Delphi-Quellcode:
procedure TForm1.ComboBox1Change(Sender: TObject);
var Comp: TComponent;
begin
Comp := FindComponent('Panel' + ComboBox1.Items[ComboBox1.ItemIndex]);
if Assigned(Comp) and (Comp is TPanel) then
TPanel(Comp).Color := clGreen;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|