also hier ein kleiner ausschnitt wo der fehler angezeig wird (bei speedbutton129)
Delphi-Quellcode:
procedure SpeedButton43Click(Sender: TObject);
procedure Panel4Click(Sender: TObject);
procedure Panel6Click(Sender: TObject);
procedure SpeedButton129Click(Sender: TObject);
procedure SpeedButton130Click(Sender: TObject);
und hier der befehl für den speedbutton:
Delphi-Quellcode:
procedure TDemoBar.SpeedButton129Click(Sender: TObject);
var a : integer;
begin
for a := 44 to 113 do
(findcomponent ('edit' + inttostr (a)) as tedit).text := '';
end;
danke