[DELPHI 6] Tbutton

**Desraux** · 28/04/2006, 16h59

Bonjour,

Est-il possible en cliquant sur un tbutton de le supprimer à ce moment là ?

Merci.

**qi130** · 28/04/2006, 17h10

J'essaierai bien, dans le OnClick:

Code :

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

(Sender as TButton).Free;

**Desraux** · 28/04/2006, 17h49

Le code fonctionne mais sur TButton statique. Par contre sur un TButton dynamique il ne fonctionne pas. Comment faire ?

Merci.

**Desraux** · 28/04/2006, 17h59

Dans l'aide de Delphi j'ai trouvé ce commentaire :

TObject.Free

Avertissement : Ne libérez jamais explicitement un composant dans l'un de ses propres gestionnaires d'événement ou dans un gestionnaire d'événement d'un composant qu'il possède ou contient. Par exemple, ne libérez pas un bouton, ou la fiche le possédant, dans son gestionnaire d'événement OnClick.

**qi130** · 28/04/2006, 18h20

Dans ton unité, avant le private, tu ajoutes:

Code :

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

1
2
3
    procedure SuppBouton(Sender: TObject);
  private
    { Déclarations privées }

puis, quelque part dans l'implementation:

Code :

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

1
2
3
4
5
 
procedure TForm1.SuppBouton(Sender: TObject);   // >> si ta fiche s'appelle Form1
begin
    (Sender as TButton).Free; 
end;

ensuite, à la création de ton bouton, tu ajoutes:

Code :

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

1
2
3
4
with TCheckBox.Create(self) do begin
   .....
   OnClick:=SuppBouton;
   end;

**Matt2094** · 28/04/2006, 19h16

Envoyé par Desraux

Le code fonctionne mais sur TButton statique. Par contre sur un TButton dynamique il ne fonctionne pas. Comment faire ?

Si ça ne marche pas, c'est uniquement car l'événement OnClick n'est pas défini, donc aucune action n'est appellée lorsque tu cliques sur ton bouton.

**Desraux** · 02/05/2006, 09h19

Non (Matt2094), la procédure d'évènement est bien définie. D'ailleurs avec le débugger je passe bien par la procédure d'évènement. Je pense plutôt que cet la technique de libération qui est en cause. En fait jusqu'à présent j'utilisait un timer pour libérer l'objet mais j'imagine qu'il doit exister une solution (ou astuce) plus élégante mais vu la note de Borland (Voir ci-dessus) je ne sais pas si cette solution existe réellement.

Qi130 , j' ai essayé ton code mais ça ne fonctionne pas non plus. J'ai exactement le même message.

Le code que j'utilise :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    // procedure ButtonClick(Sender: TObject);
  private
    { Déclarations privées }
    procedure ButtonClick(Sender: TObject);
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
  Button : TButton;
implementation
{$R *.dfm}
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
  (Sender as TButton).Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button:=TButton.Create(Form1);
  Button.Parent:=Self;
  Button.Caption:='Ok';
  Button.OnClick:=Form1.ButtonClick;
end;

**denokan** · 02/05/2006, 09h37

à mon avis la méthode du timer est la plus propre... j'ai essayé de mettre

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('avant');
  (Sender as TButton).Free;
  ShowMessage('après');
end;

et même sur un bouton statique ca merde ...

**Desraux** · 02/05/2006, 11h31

Est-ce que le timer est le seul recours ?

**denokan** · 02/05/2006, 12h24

une autre solution consisterai peut-être à tenter d'intercepter le message du click de la souris dans la fiche (grâce à un TApplicationEvents), et d'empêcher qu'il arrive au bouton... mais à mon avis le timer est suffisant

**Desraux** · 02/05/2006, 12h33

Oui mais le timer ne me plaît pas beaucoup parce qu'il faudra bien que je le libère aussi.

Je trouve l'idée d'intercepter l'évènement du OnClick intérressante mais quel est cet évènement ?

**denokan** · 02/05/2006, 12h49

tu poses un composant ApplicationEvents sur ta fiche, et tu regarde dans l'évènement OnMessage. pour trouver les messages qui t'intéressent, tu peux chercher dans le fichier Messages.pas ex :

Code :

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

1
2
3
4
5
 
  {$EXTERNALSYM WM_LBUTTONDOWN}
  WM_LBUTTONDOWN      = $0201;
  {$EXTERNALSYM WM_LBUTTONUP}
  WM_LBUTTONUP        = $0202;

ensuite en jouant avec le paramètre Handled tu peux indiquer si windows doit propager le message vers le composant ou pas
pour connaître la position de la souris au moment du click, l'aide du SDK Windows indique :

Code :

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

1
2
3
4
5
 
WM_LBUTTONDOWN  
fwKeys = wParam;        // key flags 
xPos = LOWORD(lParam);  // horizontal position of cursor 
yPos = HIWORD(lParam);  // vertical position of cursor

pour trouver le contrôle en fonction de sa posion : TForm.ControlAtPos

EDIT :
après quelques essais je n'arrive pas à faire fonctionner ControlAtPos qui me renvoie toujours nil

par contre tu peux essayer un truc du genre :

Code :

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

1
2
3
 
  if Msg.message = WM_RBUTTONDOWN then
      DestroyWindow(Msg.hwnd);

**anapurna** · 02/05/2006, 14h18

salut

voici un code qui fonctionne

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Const
  Wm_DestroyButton       = WM_USER+1;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
 private
    procedure WmDestroyButton(var Message: TMessage); message Wm_DestroyButton;
    { Déclarations privées }
  Protected
    procedure ButtonClick(Sender: TObject);
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
  Button : TButton;
implementation
{$R *.dfm}
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
 PostMessage(handle,Wm_DestroyButton,integer((Sender)),0);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button:=TButton.Create(self);
  Button.Parent:=Self;
  Button.Caption:='Ok';
  Button.OnClick:=ButtonClick;
end;
procedure TForm1.WmDestroyButton(var Message: TMessage);
Begin
  TButton(Message.WParam).Free;
End;