[DELPHI] Freeen van owner.

[Verwijderd]

Hallo;

Ik heb een panel met daarop een TButton. Nu wil ik ervoor zorgen datals ik op die knop druk, dat dan het panel waar de knop opstaat wordt verwijderd en dus ook de knop zelf. Als ik dit echter doe dan krijg ik steeds een accessviolation! Hieronder een voorbeeldje die ik even snel gemaakt heb waarin ik die accessviolation krijg (alleen relevante code). De code is volledig nutteloos maar is even als voorbeeld bedoeld:

procedure TForm1.FormCreate(Sender: TObject);
var
TestButton: TButton;
begin
TestButton := TButton.Create(Panel1);
TestButton.Caption := 'Verwijder mij!!';
TestButton.OnClick := DeletePanel;
Panel1.InsertControl(TestButton);
end;

procedure TForm1.DeletePanel(Sender: TObject);
begin
TButton(Sender).Parent.Free;
end;

end.

(Het panel wordt, inclusief knop wel verwijderd maar ik krijg dus die accessviolation )

[MPEG]

En als je eerst de button een free geeft?

Kan ook zijn dat het niet mag omdat de button nog bezig is met het afhandelen van een event

[MPEG]

Je moet in ieder geval de button als volgt aanmaken:

code:

   btnNieuweKnop := btnNieuweKnop.Create(pnlPaneel);
   btnNieuweKnop.Parent := pnlPaneel;

[Verwijderd]

Na het afhandelen van een OnClick event van een component wordt nog meer code van dat component uitgevoerd. [zie VCL source]

Als je in de OnClick event van een component het component zelf free-t [zoals je nu doet] krijg je dan dus een access violation.

Oplossing: verstuur een message naar je zelf, dmv PostMessage, als je dit bericht ontvangt free je de objecten de je wilt free-en. Hierdoor zal eerst alle code van het component uitgevoerd worden als je op de button clickt, en hierna pas dit component gefree-d worden

[Verwijderd]

Inderdaad, DiFool, als de Button zichzelf verwijderd wordt er nog code afgehandeld van dat component. Je uitleg is me echter een beetje onduidelijk. Wat bedoel je precies met het sturen van een message naar jezelf?

[Verwijderd]

Probeer dit maar 's:

code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

const
  CM_TEST = WM_USER +1;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure CMTest(var Message: TMessage); message CM_TEST;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle, CM_Test, 0, 0);
end;

procedure TForm1.CMTest(var Message: TMessage);
begin
  Button1.Free;
end;

end.