Discussion :

[BuzzLeclaire]

Bonjour à tous.

J'ai besoin de comprendre pourquoi Delphi refuse cette procédure
(cela me génere une erreur de type : Access violation adresse xxxxx....
si je persiste j'ai une Abstract error)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
  if (Sender is TShape) then TShape(Sender).Free;

// .. suite du programme
end;

alors que cette fonctionne marche trés bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TFormPrincipal.Supprimer1Click(Sender: TObject);
begin
 
  PopupMenu1.PopupComponent.free;
// .. suite du programme
 
end;

Dans le 1ere Cas lorsque je double clique sur mon composant je souhaiterais supprimer/liberer le shape sachant qu'il peux y avoir plusieur shapes

Dans le 2ème Cas je passe par un clique Droit sur le shape et là aucun probleme de suppression/libération du Shape

Je sais que l'on doit supprimer les composants dans le sens inverse de leur création.
Mais j'ai besoin de pouvoir supprimer n'importe que de mes composants. Le pire c'est que par le popupmenu je n'ai aucun probleme.

Avez vous une explication ?

[philnext]

Moi je dirais que c'est par ce que tu es dans un événement de ton TShape et que tu essayes de le détruire !!

[guillemouze]

petite explication possible :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
  if (Sender is TShape) then 
    TShape(Sender).Free; // ici tu liberer le sender
 
// .. suite du programme
end;
 
procedure TShape.DblClick;
begin
  if Assigned(OnDblClick) then
    OnDblClick(Self); // = appel de ta procedure "ShapeDblClick"
 
  // a partir d'ici, Self est detruit. Donc tout le code qui suivera qui fera reference a self plantera, comme par exemple:
  Self.Invalidate; // self a ete detruit ->pointeur dans l'espace
 
end;

[Paul TOTH]

et plus exactement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure TControl.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
  SendCancelMode(Self);
  inherited;
  if csCaptureMouse in ControlStyle then MouseCapture := True;
  if csClickEvents in ControlStyle then DblClick;
  DoMouseDown(Message, mbLeft, [ssDouble]);
end;

après le DblClick tu as scié la branche sur laquelle tu étais et DoMouseDown se plante

voici une solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
  if (Sender is TShape) then 
    PostMessage(Handle, WM_USER, Integer(Sender),0); 
// .. suite du programme
end;
 
procedure TFormPrincipal.WMUser(var Msg:TMesage); // message WM_USER
begin
  TObject(Msg.wParam).Free;
end;

en voici une autre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
  if (Sender is TShape) then 
    Garbage.Add(Sender);  // Garbage : TObjectList créé dans le OnCreate
// .. suite du programme
end;
 
procedure TFormPrincipal.OnIdle(..); // Application.OnIdle := OnIdle;
begin
   Garbage.Clear; // ce qui détruit les objets
end;

[Andnotor]

Même s'il s'agit d'un PostMessage, je le mettrais à la fin de la procédure dans le cas où un Application.ProcessMessages traînerait dans Suite du programme.

Qu'en penses-tu Paul ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
// .. suite du programme
  if (Sender is TShape) then 
    PostMessage(Handle, WM_USER, Integer(Sender),0); 
end;

[BuzzLeclaire]

Je comprends mieux mon erreur, je vais tester vos diverses solutions et je reviens pour vous dire.

Merci encore.

[Paul TOTH]

Même s'il s'agit d'un PostMessage, je le mettrais à la fin de la procédure dans le cas où un Application.ProcessMessages traînerait dans Suite du programme.

Qu'en penses-tu Paul ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TFormPrincipal.ShapeDblClick(Sender: TObject);
begin
// .. suite du programme
  if (Sender is TShape) then 
    PostMessage(Handle, WM_USER, Integer(Sender),0); 
end;

oui c'est vaguement pour cela que j'ai pensé à l'idée du Garbage

sinon l'événement MouseUp est peut-être plus indiqué, car il n'y a pas de traitement après coup