Panel im eigenen Event freigeben oder Event direkt an Parent geben

[DeddyH]

Kleines Beispiel (nur ein Panel und ein Button auf dem Formular):

Delphi-Quellcode:

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

const
  PM_HAUWECH = WM_USER + 42;

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SendHauWech(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure PmHauWech(var Msg: TMessage); message PM_HAUWECH;
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
var
  pnl: TPanel;
begin
  pnl := TPanel.Create(Panel1);
  pnl.Parent := Panel1;
  pnl.Align := alTop;
  pnl.OnDblClick := SendHauWech;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Panel1.OnDblClick := SendHauWech;
end;

procedure TForm2.PmHauWech(var Msg: TMessage);
var
  i: integer;
begin
  for i := Panel1.ControlCount - 1 downto 0 do
    Panel1.Controls[i].Free;
end;

procedure TForm2.SendHauWech(Sender: TObject);
begin  
  // Perform(PM_HAUWECH, 0, 0);
  PostMessage(Handle, PM_HAUWECH, 0, 0);
end;

end.

[Getox]

Also,

es wird die Aktualisierungsfunktion aufgerufen, aber die Zugriffsverletzungen erscheinen weiterhin - als würde diese Message trotzdem während des DblClick Events abgearbeitet werden.

Also ich finde das eben gelernte schon ziemlich cool... aber einen Effekt auf mein Problem hatte es augenscheinlich nicht.

[BerndS]

wäre hier nicht ein Postmessage besser?
So ist sichergestellt, dass alle bisherigen Botschaften schon bearbeitet sind.

Delphi-Quellcode:

procedure TForm2.SendHauWech(Sender: TObject);
begin
  PostMessage(Handle, PM_HAUWECH, 0, 0);
end;

[Uwe Raabe]

Zitat von BerndS:

wäre hier nicht ein Postmessage besser?

Genau! Das Perform arbeitet synchron und bringt in Bezug auf Entkopplung rein gar nichts. Steht auch so in der Doku:

Zitat:

Call Perform to bypass the Windows message queue and send a message directly to the control's window procedure.

[DeddyH]

Jaja, mea culpa, dabei hatte ich im ersten Post noch PostMessage geschrieben.

[himitsu]

Jupp, Perform ist halt ein "SendMessage"


Viele nehmen gern einen kurzen Timer.


Ansonsten nehme ich für sowas immer öfters ein ForceQueue, damit ich den anderen Code gleich vor Ort hab. (also dort, wo ich ihn eigentlich ausführen wollte)

Delphi-Quellcode:

TThread.ForceQueue(nil, procedure
  begin
    ...
  end);

Vorteil ist auch, dass Dieses ebenfalls in anderen Platformen geht, da die Message-Queue (PostMessage) ja ein Windows-Ding ist.



Bei Forms, die sich selbst freigeben sollen, kann man auch ein .Close mit caFree im OnClose nutzen (statt einem .Free).



Du könntest auch ein Abort; nach deinem Free (vorm Ende der Methode) versuchen.