|
This example shows, how to check a cursor moving in StringGrid component and how to show hint for each cell with coordinates of this cell.
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Hint:= '0 0';
StringGrid1.ShowHint:= True;
end;
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
R, C: Integer;
begin
StringGrid1.MouseToCell(X, Y, C, R);
with StringGrid1 do
begin
if ((Row<>R)or(Col<>C)) then
begin
Row:=R;
Col:=C;
Application.CancelHint;
StringGrid1.Hint:=IntToStr(R)+#32+IntToStr(C);
end;
end;
end;
- For more
-
Delphi Help
- Download source
|
