Autor
Mensagem
Postado em: 2/6/2010 04:47:27 PM
Como faço para mudar o Cursor do mouse em uma determinada coluna do DBGrid?
Quero mudar de crDefault para crHandPoint.
Quero mudar de crDefault para crHandPoint.
Postado em: 2/6/2010 06:15:49 PM
ao clicar num coluna? ou passando o mouse?
Postado em: 2/6/2010 09:28:56 PM
É a mesma ideia de um BitBtn.
Quando for com o mouse em cima o cursor tem que mudar.
Quando for com o mouse em cima o cursor tem que mudar.
Postado em: 3/6/2010 12:04:18 AM
entum .....
[CODE]
No evento OnMouseMove vc Escreve O Codigo
procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Y: Integer);
Const
Coluna=3;
var
Cell: TGridCoord;
Cell: TGridCoord;
begin
with TdbGrid(sender) do
begin
Cell := MouseCoord(X, Y);
case cell.X of
Coluna:Cursor:=crHandPoint;
with TdbGrid(sender) do
begin
Cell := MouseCoord(X, Y);
case cell.X of
Coluna:Cursor:=crHandPoint;
else
Cursor:=crDefault;
end;
end;
Cursor:=crDefault;
end;
end;
end;
[/CODE]
Postado em: 3/6/2010 10:48:36 AM
Era isso mesmo que eu queria.
Obrigado.
Obrigado.
