Wie kann ein Button sich selbst freigeben?

[sirius]

Oder du nimmst einen PString:

Delphi-Quellcode:

Procedure TMyForm.ButtonClick (Sender : TObject); 
var 
  S: PString; 
Begin 
  new(s);
  S^ := 'hallo'; 
  if not PostMessage(Handle,WM_DESTROYPANEL, Integer(S), 0) then
    dispose(S); //falls die MEssage nicht funktioniert hat
end; 

Procedure TMyForm.CMDestroyPanel(Var Msg : TMessage); 
var S:Pstring;
Begin
  S:=pointer(msg.wparam); //Du kannst auch einen eigenen Record anstatt TMessage nehmen
  FreeAndNil (ThePanel); 

  if S<>nil then
  begin
    ShowMessage(S^); 
    Dispose(S);
  end;
End;