StringGrid edition colonne
oullafff
Messages postés
29
Date d'inscription
mardi 19 août 2003
Statut
Membre
Dernière intervention
20 avril 2004
-
18 nov. 2003 à 09:39
cs_RMD Messages postés 84 Date d'inscription mercredi 25 septembre 2002 Statut Membre Dernière intervention 21 mai 2004 - 18 nov. 2003 à 17:32
cs_RMD Messages postés 84 Date d'inscription mercredi 25 septembre 2002 Statut Membre Dernière intervention 21 mai 2004 - 18 nov. 2003 à 17:32
A voir également:
- StringGrid edition colonne
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum Visual Basic 6
- Vba parcourir une colonne ✓ - Forum Visual Basic
- Parcourir colonne pour comparaison de date ✓ - Forum VBA Office (Excel, Word ...)
- Renommer une colonne sql server ✓ - Forum SQL
- Sql ajouter une colonne dans un select - Forum SQL
1 réponse
cs_RMD
Messages postés
84
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
21 mai 2004
18 nov. 2003 à 17:32
18 nov. 2003 à 17:32
En ne permettant l'édition qu'en cas de clic dans la colonne du milieu, par exemple.
procedure TForm1.MonStringGridMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Col: Longint;
ClientPoint,
ScreenPoint: TPoint;
begin
GetCursorPos(ScreenPoint);
ClientPoint := (Sender as TStringGrid).ScreenToClient(ScreenPoint);
(Sender as TStringGrid).MouseToCell(ClientPoint.X, ClientPoint.Y, Col, Row);
if col=1 then
Begin
OnPeutEcrire;
End else
Begin
OnPeutPasEcrire;
End;
End;
NON TESTE.
RMD
www.Logiciels-RMD.com
procedure TForm1.MonStringGridMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Col: Longint;
ClientPoint,
ScreenPoint: TPoint;
begin
GetCursorPos(ScreenPoint);
ClientPoint := (Sender as TStringGrid).ScreenToClient(ScreenPoint);
(Sender as TStringGrid).MouseToCell(ClientPoint.X, ClientPoint.Y, Col, Row);
if col=1 then
Begin
OnPeutEcrire;
End else
Begin
OnPeutPasEcrire;
End;
End;
NON TESTE.
RMD
www.Logiciels-RMD.com
