关于STRINGGID的问题

Question

在 TStringGrid 的 OnSelectCell 事件中写代码即可。

Answer 1

在
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  //StringGrid1.Col和StringGrid1.Row
end;
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 2

或是用 OnMouseDown 事件。

Answer 3

onMouseDown事件
其中X,Y就是cell的坐标