Problème avec événement OnClick de DbGrid

Version imprimable

05/10/2008, 18h56
melles

Problème avec événement OnClick de DbGrid
Chalut ;)

Je ne m'en sort plus du tout avec ces DbGrids... Je dois avoir raté klk chose ou alors c'est Borland qui a raté klk chose!!!
(j'opterai à 100% pour la première solution.. lol.)

J'explique:
N'étant pas satisfait du résultat d'un scrollbar dans des DbGrids, j'ai donc viré cet ascenseur et ajouté un UpDown.
Après avoir tuer quelques heures à essayer de faire fonctionner le UpDown... J'ai fini par le virer et le remplacer par deux boutons auxquels j'ai affecté le code suivant :
Code:

1 2 3 4 5 6 7 8 9 procedure TForm1.BitBtn1Click(Sender: TObject); begin dbgrid1.DataSource.DataSet.Prior; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin dbgrid1.DataSource.DataSet.next; end;
Je ne suis pas sûre qu'il fallait faire cela mais en tout cas, le résultat fonctionne :fleche: ils jouent bien le rôle du scrollbar. (je ne vous raconte pas à quel point j'étais content :D)
Seulement, mon évènement OnClick du DbGrid1 est tout perturbé et ne sélectionne plus du tout les champs sur lesquelles je clique :roll:

Mon erreur vient surement du code des deux boutons car tout fonctionne de nouveau si je mets ce code en commentaire...

Une fois de plus je demande vos lumières ;)
Thx in advance...

Je pense que tu peux garder ton DBGrid comme il est avec les scrollbar.

Essai ça

Dans la partie private de ta form

Code:

1
2
3
4
5
6
  private
    { Private declarations }
    procedure DBGridMouseWheelUp(Sender: TObject; Shift:
    TShiftState;MousePos: TPoint; var Handled: Boolean);
    procedure DBGridMouseWheelDown(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);

Dans l'evenement onshow

Code:

1
2
3
4
5
6
7
8
procedure TForm1.FormShow(Sender: TObject);
begin
  With TStringGrid(DBGrid1) do
  begin
    OnMouseWheelDown := DBGridMouseWheelDown;
    OnMouseWheelUp := DBGridMouseWheelUp;
  end;
end;

Ailleur dans ton unit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ROULETTE Down}
procedure TForm1.DBGridMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=True;
  DBGrid1.Datasource.DataSet.Next;
end;

{ROULETTE Up}
procedure TForm1.DBGridMouseWheelUp(Sender: TObject; Shift:
TShiftState;MousePos: TPoint; var Handled: Boolean);
begin
  Handled:=True;
  DBGrid1.Datasource.DataSet.Prior;
end;

n'oublis pas de mettre
dgrowselect à True

Avec cela la molette de la souris fonctionne trés bien et cela ne gene en rien les evenements onclick ou autre du dbgrid.

05/10/2008, 21h00
melles

Merci pour ta réponse BuzzLeclaire... Je connaissais cette méthode mais j'avais un autre but en voulant remplacer le scrollbar.
J'aurais due préciser dès le début que je voulais augmenter sa largeur.

S'il y a moyen de le redessiner en augmentant sa largeur alors je suis preneur.
Sinon, je dois garder la solution des deux boutons ce qui me ramène de nouveau au problème du OnClick.
14/10/2008, 18h36
melles

Je n'ai toujours pas trouvé la solution :oops:

Je pose ma question d'une manière différente alors :
Comment assigner à la table ainsi qu'au DataSource.DataSet la même valeur (position) ?

Thx in advance.

salut

trouvé sur le web

Code:

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
37
38
39
40
var  
 oldMetrics: NONCLIENTMETRICS; // global storage for original settings
 
// (....)
 
function SetScrollbarWidth(NewWidth: Integer): Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  oldMetrics.cbSize := SizeOf(oldMetrics);
  if not SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(oldMetrics),
                              @oldMetrics, SPIF_SENDCHANGE) then begin
    Result := FALSE;  Exit;
  end;
  currentMetrics:=oldMetrics;
  currentMetrics.iScrollWidth:=NewWidth;
  Result :=SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(currentMetrics),
                                @currentMetrics, SPIF_SENDCHANGE);
 
end;
 
function RestoreScrollbarWidth: Boolean;
var currentMetrics: NONCLIENTMETRICS;
begin
  Result :=SystemParametersInfo(SPI_SETNONCLIENTMETRICS, SizeOf(oldMetrics),
                                @oldMetrics, SPIF_SENDCHANGE);
end;
 
// DEMO:
// --------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set new system scrollbar width:
  SetScrollbarWidth(40);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  // Restore original system scrollbar width:
  RestoreScrollbarWidth;
end;

PS : Que vzeut tu faire exactement avec les scrollBar ?
@+ Phil

15/10/2008, 21h37
melles

J'achète :mouarf:
Il faut quand même faire attention car cette méthode modifie la largeur de toutes les scrollbar de windows!

salut

autre solution plus local ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
FlatSB_SetScrollProp(      
    HWND hwnd,
    UINT index,
    INT_PTR newValue,
    BOOL fRedraw
);
exemple 
 
Uses CommCtrl;
...
  InitializeFlatSB(DBGRID.Handle);
...
   FlatSB_SetScrollProp(DBGRID.Handle, WSB_PROP_CXVSCROLL, 40, True); 
 // scroll bar vertical