Discussion :

[XeGregory]

Bonjour,

Lorsque je fais un double-clique sur la cellule à modifier, le DBGrid appelle la procédure OnEditButtonClick

Il y a t'il possibilité de contourné sa

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
procedure TForm1.DBGridEditButtonClick(Sender: TObject);
var
  XColIndex: Integer;
  XFieldName: String;
begin
  XColIndex := TDrawGrid(DBGrid).Col - 1;
 
  if DBGrid.Columns[XColIndex].Field.DataType in [ftString] then
  begin
    XFieldName := DBGrid.Columns[XColIndex].Field.FieldName;
 
    with TClientDataSet.Create(nil) do
    begin
      ReadOnly := True;
      FileName := ClientDataSet1.FileName;
      Active := True;
 
      ListBox1.Items.BeginUpdate;
      while not Eof do
      begin
        if ListBox1.Items.IndexOf(Fields.FieldByName(XFieldName).AsString) = -1 then
          ListBox1.Items.Add(Fields.FieldByName(XFieldName).AsString);
 
        Next;
      end;
 
      ListBox1.Items.EndUpdate;
      Free; { TClientDataSet }
    end;
  end;
end;

Merci

[ShaiLeTroll]

Curieux, je viens d'essayer sur un de mes rares OnEditButtonClick et je note que j'ai joué avec le OnDblClick
En général, mes listes sont en lecture seule et je gère manuellement un Elipsis Button
Et là, j'ai utilisé un OnEditButtonClick j'ai du avoir de double-clic pénible que j'ai contourné via Options : dgRowSelect / dgEditing

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TModuleXXXManageEventForm.DBGridEventDatesDblClick(Sender: TObject);
begin
  if (Sender is TDBGrid) and (dgRowSelect in TDBGrid(Sender).Options) then
  begin
    DBGridEventDates.Options := DBGridEventDates.Options - [dgRowSelect] + [dgEditing];
    DBGridEventDates.Refresh();
 
    if FEventDates.IsEmpty() then
      DBNavigatorEventDates.BtnClick(nbInsert)
    else
      DBNavigatorEventDates.BtnClick(nbEdit);
  end;
end;

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
 
procedure TModuleXXXManageEventForm.DBNavigatorEventDatesBeforeAction(Sender: TObject; Button: TNavigateBtn);
begin
  // On utilise un TDBNavigator mais l'on court-circuite le Insert de la DB pour un Append de la couche ORM,
  // cela assure ainsi le lien Parent-Enfant entre FEvents et FEventDates
  if (Button = nbInsert) or ((Button = nbEdit) and FEventDates.IsEmpty()) then
  begin
    // On passe à l'année suivant la dernière année renseignée !
    if not FEventDates.IsEmpty() then
      Inc(FLastYear);
    FEventDates.Append();
    FEventDates.EvenementSpecialAnnee := FLastYear;
    FLastDate := RecodeYear(FLastDate, FLastYear);
    FEventDates.EvenementSpecialDateMobile := FLastDate;
    if ShowEventsDateEditor(DBGridEventDates, FEventFieldDate) then
      FLastDate := FEventDates.EvenementSpecialDateMobile;
 
    DBGridEventDates.Options := DBGridEventDates.Options - [dgRowSelect] + [dgEditing];
    DBGridEventDates.SetFocus();
    Abort; // Permer d'annuler l'action par défaut !
  end;
end;

[XeGregory]

J'ai testé ceci : ça à l'air de marcher.

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.DBGridDblClick(Sender: TObject);
var
  XColIndex: Integer;
begin
  XColIndex := TDrawGrid(DBGrid).Col - 1;
 
  if not DBGrid.Columns[XColIndex].Field.ReadOnly then
    DBGrid.EditorMode := True;
end;