1.滑鼠如何移動到DBGrid中某個cell儲存格，由cell的font.style來判斷滑鼠的cursor.style??我不知如何抓到sender為DBGrid中某個cell

DBGrid 有個 MouseCoord function 在 OnMouseMove 事件中 執行

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ACoord: TGridCoord;
begin
  ACoord := DBGrid1.MouseCoord(X, Y);
  ACoord.X;
  ACoord.Y;
end;

則 ACoord.X 是Mouse指到的Column ACoord.Y 是Mouse指到的Row -- Skyer

------
--
Regards,
Skyer

[quote] DBGrid 有個 MouseCoord function 在 OnMouseMove 事件中 執行

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ACoord: TGridCoord;
begin
  ACoord := DBGrid1.MouseCoord(X, Y);
  ACoord.X;
  ACoord.Y;
end;

則 ACoord.X 是Mouse指到的Column ACoord.Y 是Mouse指到的Row 我complier會有錯誤 ACoord.X; ACoord.Y; X,Y是座標位置~~~如何能指到column?? 請前輩再指點````

我試了一下，功能是出來了，但是會有問題.. 我修不好，請大家幫幫忙吧..    放一個 Label 上去 Form 在 DBGrid 的 OnMoveMove 事件加入下面 Code

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ACoord: TGridCoord;
begin
  ACoord := DBGrid1.MouseCoord(X, Y);
  if (ACoord.X > 0) and (ACoord.Y > 0) then begin
    DBGrid1.DataSource.DataSet.RecNo := ACoord.Y;
    Label1.Caption := DBGrid1.Fields[ACoord.X-1].AsString;
  end;
end;

-- Skyer

------
--
Regards,
Skyer

引言: 我試了一下，功能是出來了，但是會有問題.. 我修不好，請大家幫幫忙吧.. 放一個 Label 上去 Form 在 DBGrid 的 OnMoveMove 事件加入下面 Code

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  ACoord: TGridCoord;
begin
  ACoord := DBGrid1.MouseCoord(X, Y);
  if (ACoord.X > 0) and (ACoord.Y > 0) then begin
    DBGrid1.DataSource.DataSet.RecNo := ACoord.Y;
    Label1.Caption := DBGrid1.Fields[ACoord.X-1].AsString;
  end;
end;

-- Skyer

Hello : 我試了一下沒錯耶, 請問是什麼問題?

感謝前輩```我要的功能已經可以了``` 你原來的寫法是不是會滑鼠一直回到第一筆阿(在不管滑鼠移到哪一筆的情況下)?? 我把其中一行拿掉就可以了~~~~ 還是前輩有其他的問題ㄋ?? procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var ACoord: TGridCoord; begin ACoord := DBGrid1.MouseCoord(X, Y); if (ACoord.X > 0) and (ACoord.Y > 0) then begin // DBGrid1.DataSource.DataSet.RecNo := ACoord.Y; Label1.Caption := DBGrid1.Fields[ACoord.X-1].AsString; end; if (ACoord.X > 0) and (ACoord.Y > 0) then begin if Sender is TDBGrid then begin if TDBGrid(Sender).Columns[ACoord.x-1].Font.style=fsUnderline] then Screen.Cursor:=crHandPoint else Screen.Cursor:=crArrow; end else Screen.Cursor:=crArrow; end; end;

如果是您要的功能的話 就請您給給分吧 < > 您的支持會是我的動力 < > -- Skyer

------
--
Regards,
Skyer