Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nalincah,
10. Dez 2003
procedure TForm1.Button1Click(Sender: TObject);
var
i :Integer;
begin
for i := 0 to 9 do
begin
if Form1.Components is TEdit then
begin
if TEdit(Form1.Components).Name = 'Edit' + SpinEdit1.Text then
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nalincah,
10. Dez 2003
So
4 Buttons rein und ein Edit. Da einfach ne Zahl reinschreiben und das ausführen:
for i := 0 to Form1.ComponentCount - 1 do
begin
if Form1.Components is TButton then
begin
if TButton(Form1.Components).Caption = 'Button' + Edit1.Text then
begin