Naja genauer gesagt hab ichs mit ner ObjectList gemacht. Aber das ändert ja nichts an der Sache.
Also hier mein Code:
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
| type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
TextList: TObjectList;
Text: TLabel;
procedure OnTextClick(Sender: TObject);
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Text:=TLabel.Create(Form1);
Text.Parent:=Form1;
Text.Top:=10;
Text.Left:=10;
Text.Caption:='Text01';
Text.OnClick:=OnTextClick;
TextList.Add(Text);
end;
procedure TForm1.OnTextClick(Sender: TObject);
begin
TextList.Remove((Sender as TLabel));
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TextList:=TObjectList.Create();
TextList.OwnsObjects:=True;
end;
end. |
Fehlermeldung: EAccessViolation
Natürlich wird jetzt jeder sagn, dass ich es genau so gut ohne objectlist machen könnte. is aber nur beispielhaft für mein problem.
Schon mal danke für eure hilfe im voraus.
Greetz FloF
