SetCursorPos(500, 300);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

Замени 500,300 със координатите на клетката на екрана - можеш да ги вземеш на събитието
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);

това е при goEditing и goAlwaysShowEditor опции на грида.

P.S. Цветя и бонбони не пием.

чети и дишай по-леко

Съдържаниет е скрито
Влезте за да го видите