Discussion :

[masterdash]

Salut à tous, je voudrais partager avec vous mon souci, voilà un petit programme qui se compose d'un DBGrid avec un speedbutton dans la dernière colonne. J'ai pris cette (exemple) sur le net :

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 TForm1.sDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  MRect: TRect;
Begin
  IF (Column.Index = 11) Then
  Begin
    MRect := THackDBGrid(sDBGrid1).CellRect(Column.Index + 1,
      THackDBGrid(sDBGrid1).Row);
    if gdSelected in State then
    SuppAvis.Left := MRect.Left + 2;
    SuppAvis.Width := (MRect.Right - MRect.Left) - 4;
    SuppAvis.Top := MRect.Top + 2;
    SuppAvis.Height := MRect.Height - 4;
    SuppAvis.Parent := sDBGrid1;
    SuppAvis.Visible := True;
  End;
end;

Le code de l'événement OnClick du speedbutton :

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
procedure TForm1.sBitBtn1Click(Sender: TObject);
begin
  IF MessageDlg('Confirmez la Suppression', mtWarning,
    [mbYes, mbNo], 0) = mrYes Then
  Begin
    Try
      Table.Delete;
    Except
      On E: EFDDBEngineException Do
      Begin
        ShowMessage('Erreur !' + E.Message);
        Raise;
      End;
    End;
  End;
end;

Tout marchait très bien. À chaque fois que je sélectionnais une ligne du DBGrid le speedbutton apparaissait et quand j'appuyai sur ce dernier il exécutait la procédure sBitBtn1Click.
À un moment donné je ne sais quelle bêtise j'ai commis.
Maintenant le button apparait toujours mais quand je clique sur le bouton il ne lance plus la procedure sBitBtn1Click.
J'ai refait complètement le programme, mais le problème du click et toujours là, je suis sans solutions depuis deux jours. Merci pour votre aide

Delphi 10.3

[masterdash]

Salut, je crois que j'ai trouvé la solution : alors au lieu d'écrire l'événement sur Onclick du SpeedButton, je l'ai fait sur MouseDown du SpeedButton et ça fonctionne.
Ma question est pourquoi avant la codification de cet événement (MouseDown), lorsque je cliquais sur le speedbutton la procédure OnClick de ce dernier ne s'exécutait pas ?
Bon voilà la solution ci ça peut aider.

[SergioMaster]

Bonjour,

Bon voilà la solution ci ça peut aider.

Non, pas vraiment la solution

À un moment donné je ne sais quelle bêtise j'ai commis.

AMHA la petite bêtise a été dans un changement de bouton (suppression de suppavis, création d'un nouveau Speedbouton)
avec un peu de malchance votre évènement n'était plus lié au composant

il aurait fallu fournir à nouveau procedure TForm1.sDBGrid1DrawColumnCell pour en être sûr