Hallo,
ich lasse Buttons während der Laufzeit erstellen:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
| var
butt: TButton;
procedure Seite(name: array of string;tag: array of integer);
var
i,top,left: integer;
begin
top := 15;
left := 0;
i := 0;
while name[i] <> '' do begin
if 20+(left*140)+130 > main.Width-20 then begin
top := top+35;
left := 0;
end;
butt := TButton.Create(butt);
butt.Parent := main;
butt.Show;
butt.Left := 20+(left*140);
butt.Width := 130;
butt.Top := top;
butt.Caption := name[i];
butt.Tag := tag[i];
butt.Hint := 'Zum Downloaden draufklicken';
butt.OnClick := main.Button;
inc(i);
inc(left);
end;
end; |
Nun habe ich aber das Problem, dass diese Buttons während der Laufzeit wieder verschwinden müssen und das bekomm ich einfach nicht hin!
Die Buttons müssen entfernt werden und neue Buttons wieder erstellt werden. Die Anzahl der Buttons variiert immer.
Ich hab schon versucht den Buttons einen Namen zuzuweisen und darüber dann die Buttons zu löschen/zerstören, aber das hat auch nicht funktioniert bzw ist es an meinen Kentnissen gescheitert:
butt.Free; <-- keinerlei Wirkung
butt.Destroy; <--- keinerlei Wirkung
butt1.Free/Destroy; <--- keinerlei Wirkung
Was mach ich falsch bzw. geht mein Vorhaben überhaupt?
Vielen Dank für eure Hilfe
mach es am besten mit einer objectlist must button da hinzufügen, und kanst ihn dort dann ganz einfach wegmachen 