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.

[khh]

@ralph
ich danke dir, werd ich prüfen

Gruss Kh

[Nuclear-Ping]

Application.ReleaseComponent(TComponent(self)); ... ist aber auch nicht ganz sauber ... ?

[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
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 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.