Hallo Alle Zusammen
Ich habe hier eine ganz einfaches Programm. Es erstellt 500 Buttons.
Nun will ich, das wenn ich einen bestimmten Button drücke, dieser verschwindet (sich zerstört). Aber bei mir kommt immer die Fehlermeldung "Abstrakter Fehler". Was muss ich ändern, damit es funktioniert? Oder geht es überhaupt?
Delphi-Quellcode:
const
MAX_BUTTONS = 500;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
SetLength(pbTemp,MAX_BUTTONS);
for i:=0 to MAX_BUTTONS - 1 do
begin
pbTemp[i] := TButton.Create(nil);
pbTemp[i].Name := 'ButtonNr' + IntToStr(i);
pbTemp[i].Parent := Form1;
pbTemp[i].Top := 16 * i;
pbTemp[i].Left := 300;
pbtemp[i].OnClick := butclick;
pbtemp[i].Tag := i;
end;
end;
procedure TForm1.ButClick(Sender: TObject);
var a: integer;
begin
a := (sender as Tbutton).tag;
label1.caption := inttostr(a);
pbtemp[a].Free;
end;