TLabel entfernen

[khh]

hallo zusammen,
ich entferne im mousedown ereignis meines TLabel mit :
Application.ReleaseComponent(TComponent(self));
das entsprechende label wieder.
das funktioniert solange ich die Labels in der Reihenfolge in der sie erstellt wurden wieder entferne. Sobald ich die Reihenfolge ändere bekomme ich beim letzten Label das entfernt wird eine exception.

Was mach ich falsch?

Gruss KH

[taaktaak]

Moin, Moin,
nehme an, dass dadurch das Array "Components" durcheinandergewürfelt wird. Vermutlich musst du das selbst nach jedem Löschvorgang reorganisieren, wenn die Reihenfolge willkürlich ist.

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Object-Pascal / Delphi-Language" nach "VCL / WinForms / Controls" verschoben.
Ist ne VCL Frage

[khh]

@ralph
ich danke dir, werd ich prüfen

Gruss Kh

[Nuclear-Ping]

Delphi-Quellcode:

Application.ReleaseComponent(TComponent(self));

... ist aber auch nicht ganz sauber ... ? :gruebel:

[khh]

@mario

ich weiss dass das nicht "ganz sauber" ist :-(


nochmal konkret, wie es gerade ist:
ich erstelle per mausklick auf einer TCustomControl eine Tlabel.
im mousedown des TLabels will ich diese Labels jeweils wieder entfernen können.

Wie würdest _du_ das denn lösen ?

Gruss KH

[mkinzler]

Ich kenne mich in Lazarus nicht so aus aber vielleicht

Delphi-Quellcode:

Self.Free;

[Nuclear-Ping]

Ja, aber Self verweist doch auf die Form?

Delphi-Quellcode:

procedure TForm1.LabelMouseDown(Sender: TObject);
begin
  if (Sender is TLabel) then
    FreeAndNil (Sender);
end;

So vielleicht?

[khh]

hallo zusammen
self verweist nicht auf die Form sondern auf TLabel.
Ist ja auch in der procedure TMyLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Das bewirkt aber wohl dass ich mir auf beide Arten, sowohl mit
freeandNil(self) oder self.free oder eben Application.ReleaseComponent(TComponent(self));
den Boden unter den füssen wegziehe. Das Ergebnis ist immer eine exception :-(

mh, wie also krieg ich das letzte label weg ?


Gruss KH

[Fussball-Robby]

Zitat:

Zitat von khh

hallo zusammen
self verweist nicht auf die Form sondern auf TLabel.
Ist ja auch in der procedure TMyLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Nein. Die Procedure lautet TForm1.MyLabel.MouseDown. Self verweist immer auf die Instanz der Klasse, in der die Methode ausgeführt wird, und da das Label auf der Form liegt, zeigt Self auf die Form.

[khh]

Hallo Robby,

Zitat:

Nein. Die Procedure lautet TForm1.MyLabel.MouseDown.

wer sagt das ?

Die Procedure lautet
TMyLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
und es ist eine Procedure in der Klasse MyLabel.
Und mein Debugger sagt mir unmissvertändlich, dass self mein Label ist ;-)


Gruss KH

[sx2008]

Wenn dein Control sich selber zerstören soll, dann wird das gefährlich denn es können
immer noch interne Messages der VCL oder Windows-Messages an das Control gehen.
Aber das Control ist ja schon im IT-Himmel => Zugriffsverletzung
Code-Library: http://www.delphipraxis.net/internal...ct.php?t=29732

[Nuclear-Ping]

Zitat:

Zitat von khh

Hallo Robby,

Zitat:

Nein. Die Procedure lautet TForm1.MyLabel.MouseDown.

wer sagt das ?

Die Procedure lautet
TMyLabel.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
und es ist eine Procedure in der Klasse MyLabel.
Und mein Debugger sagt mir unmissvertändlich, dass self mein Label ist ;-)


Gruss KH

Dann sag dazu, dass du eine eigene Klasse von TLabel abgeleitet hast.

Schonmal Self.Release versucht?

[khh]

Zitat:

Dann sag dazu, dass du eine eigene Klasse von TLabel abgeleitet hast

sorry, ich dachte das war schon klar :-(

Zitat:

Schonmal Self.Release versucht?

nee, noch nicht, werd ich mal versuchen

Gruss KH

[khh]

Zitat:

Wenn dein Control sich selber zerstören soll, dann wird das gefährlich denn es können

na das muss doch aber trotzdem irgendwie gehen,oder ??

Zitat:

Code-Library: http://www.delphipraxis.net/internal...ct.php?t=29732

ok werds mal so probieren


Gruss KH

[himitsu]

indem man etwas anderem sagt, es solle mich(TLabel) löschen.