Пропала каретка в StringGrid

[cawendish]

Здравствуйте.

Пишу программу на Delphi XE5.
Форма содержит 2 таблицы StringGrid.
Данные берутся из Excel файлов.
С какого-то момента, заметил что не появляется каретка (текстовый курсор) при редактировании какой-либо ячейки.
Думал, из-за того, что использую подкрашивание некоторых ячеек.
Но и при отключении "раскраски" каретка не появляется.
Если создаю новый проект со StringGrid, то каретка есть.

Подскажите как отобразить пропавшую каретку?

И второй вопрос, при клике на ячейке текст в ячейке выделяется.
Можно ли сделать так, чтобы он не выделялся, а сразу показывал каретку?

[Stilet]

Впервые такое слышу...
Проблема только в конкретном проекте? - удали DCU и EXE, перекомпилируй проект заново

[cawendish]

Удалил и перекомпилировал - не помогает.

[cawendish]

Ха-ха, каретка появилась, когда увеличил высоту строки...
Забавно, выходит если я хочу узкие строки, то останусь без каретки.

[cawendish]

Итак остается такой вопрос:
Первое нажатие на ячейку перемещает на нее синее выделенеие, второе нажатие делает выделение текста, третие нажатие снимает выделение и ставит каретку.
Вопрос - как пропустить действие с выделением?

[Stilet]

Може глюкан в генофонде?
Попробуй на чистом проекте такое же сотворить ради интереса.

как пропустить действие с выделением?

Выделением ячейки? В Options включи goEditing и goAlwaysShowEditor

[cawendish]

Напишу конкретнее вопрос:
Первое нажатие на ячейку перемещает на нее синее выделение, второе нажатие делает выделение текста, третье нажатие снимает выделение и ставит каретку.

Вопрос - как пропустить действие с выделением текста?

То есть чтобы первый клик - синее выделение ячейки, второй клик появление каретки без выделения текста.

[Stilet]

Ясно...
Ответа не знаю.

[Аватар]

Опции как Stilet сказал + примерно так

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  lSelected:=1;
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  if lSelected=2 then StringGrid1.EditorMode:=True;
  Inc(lSelected);
end;

Как каретку при этом в начало текста не знаю

[kropotkina-alice]

Сообщение от cawendish

Можно ли сделать так, чтобы он [текст] не выделялся, а сразу показывал каретку?

Да вроде ничего сложного...

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
keybd_event(VK_HOME, 0, 0, 0);
//keybd_event(VK_HOME, 0, KEYEVENTF_KEYUP, 0);
Application.ProcessMessages;
keybd_event(VK_HOME, 0, 0, 0);
//keybd_event(VK_HOME, MapVirtualKey(vk_control, 0), KEYEVENTF_KEYUP, 0);
end;

Это - всё, что нужно...
goAlwaysShowEditor должно быть TRUE...

З.Ы. Тут 2 лишние строки затесались, на работоспособность не влияют, поставила комменты.