Wie kann ein Button sich selbst freigeben?

[Helmi]

Über eine lokale Variable gehts nicht.

Gut - ist auch nicht so schlimm, denn ich ruf PostMessage in einer procedure auf, der eine Konstante mit übergeben wird.

Delphi-Quellcode:

Procedure TMyForm.Sende_Nachricht(const S: String); 
Begin 
  PostMessage(Handle,WM_DESTROYPANEL, Integer(@S[1]), 0); 
End;

(das soll nur ein Beispiel darstellen)

[Bernhard Geyer]

Zitat von Helmi:

Ich hätt dazu nur eine Frage. Kann man der Windows-Message noch einen String mitgeben?

Bei Messages innerhalb der Anwendung würde das gehen wenn du eine globale Variable nimmst die nicht beim verlassen der Methdoe aufgrund der automatischen Referenzzählung wieder freigegeben wird.

[Helmi]

Ich brauchs auch nur intern

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

[angos]

Hi,

Auch von mir nochmal einen herzlichen Dank für diese Lösung. Die werde ich mir jetzt auch mal anschauen. Ich habe dazu, sagen wir "nicht schönen Code" verwendet, den ich aus diesem Grund auch nicht posten werden

Gibt es eigentlich ein empfehlenswertes Tutorial für das Arbeiten mit Messages?


Gruß
Ansgar

[sirius]

Zitat von angos:

Gibt es eigentlich ein empfehlenswertes Tutorial für das Arbeiten mit Messages?

Weiß nicht genau. Ggf. mal nach nonVCL Tuts schauen. Denn dort sind Messages enorm wichtig, weil sie ja auch das Werkzeug von Windows sind.

[sirius]

Auf die Frage zu den MEssages habe ich etwas schönes gefunden:
Messages
Da steht auch wie die Message Queue aufgebaut ist und wie sie abgearbeitet wird (mit welchen Prioritäten)