self.free

[xaromz]

Hallo,

ungefähr so:

Delphi-Quellcode:

unit Unit1;

const
  CM_LOESCHEN = WM_USER + 24;

type
  TForm1 = class(TForm)
  ...
  procedure CMLOESCHEN(var Message: TMessage); message CM_LOESCHEN;
  ...

procedure TForm1.CMLOESCHEN(var Message: TMessage);
begin
  TObject(Message.wParam).Free;
end;

Delphi-Quellcode:

unit Unit2;

type
  TZettel = class(TForm)
  ...
  procedure DeleteClick(Sender: TObject);
  ...

procedure TZettel.DeleteClick(Sender: TObject);
begin
  SendMessage(Form1.Handle, CM_LOESCHEN, Integer(Self), 0);
end;

Gruß
xaromz