procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(Memo1.Lines[Memo1.CaretPos.Y]);
end;
Shift: TShiftState; X, Y: Integer);
begin
ShowMessage(Memo1.Lines[Memo1.CaretPos.Y]);
end;
是DBGRID!
不是在MEMOL!
列:GridCellClick(Column: TColumn);中的column