Вставка текста в ячейку TStringGrid

← →
Navi (2003-07-06 22:52) [0]

Здравствуйте!
Есть экземпляр TStringGrid, ячейка находится в режиме редактирования, текстовый курсор где-то в середине текста-содержимого ячейки. Как вставить (не из буфера) какой-либо текст в текущию позицию в ячейке?
Спасибо.

← →
Ученик (2003-07-07 00:13) [1]

type
TStringGridAccess = class(TStringGrid);

procedure TForm1.Button3Click(Sender: TObject);
begin
if StringGrid1.EditorMode then
SendMessage(TStringGridAccess(StringGrid1).InplaceEditor.Handle, EM_REPLACESEL, 0, Integer(PChar("MyText")))
end;

Вставка текста в ячейку TStringGrid Найти похожие ветки