24.01.2018, 12:06 [+3 UTC]
в нашей команде: 2 496 чел. | участники онлайн: 7 (рекорд: 21)

:: РЕГИСТРАЦИЯ

:: консультации

:: задать вопрос

:: все разделы

:: правила

:: новости

:: участники

:: доска почёта

:: форум

:: блоги

:: поиск

:: статистика

:: наш журнал

:: наши встречи

:: наша галерея

:: отзывы о нас

:: поддержка

:: руководство

Версия системы:
7.42 (30.12.2017)

Общие новости:
02.01.2018, 09:46

Форум:
23.01.2018, 17:49

Последний вопрос:
24.01.2018, 11:08

Последний ответ:
24.01.2018, 11:21

Последняя рассылка:
24.01.2018, 02:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
18.01.2017, 21:58 »
svrvsvrv
Спасибо за доступное объяснение! [вопрос № 190434, ответ № 274554]
17.01.2011, 15:40 »
Denis Loran
Благодарю за еще один вариант [вопрос № 181899, ответ № 265466]
28.09.2009, 18:03 »
AkaProc
Огромное спасибо! В Mozilla Firefox все отлично показывает! [вопрос № 172676, ответ № 254800]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 362
Вадим Исаев ака sir Henry
Статус: Старший модератор
Рейтинг: 58
Евгений/Genia007/
Статус: Профессионал
Рейтинг: 21

Перейти к консультации №:
 

Консультация онлайн # 140101
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Хукаленко Дмитрий
Отправлена: 16.07.2008, 23:56
Поступило ответов: 1

Уважаемые эксперты, подскажите как узнать позицию текстового курсора в элементах TEdit и TStringGrid и вставить символ в это место.

Состояние: Консультация закрыта

Ответ # 226105 от Абельхарисов Руслан/Marked One

Здравствуйте, Хукаленко Дмитрий!
В свойстве Edit'а SelStart хранится позиция курсора.
Вот процедура которая вставляет строку в Edit:

{Edit-компонент TEdit, str-строка для вставки}
procedure InsertToEdit(var Edit: TEdit; const str: ShortString);
var
 {Временная строка}
 s: string;
begin
 {Копируем в s содержимое Edit'а, т.к. напримую с Edit'ом процедура Insert не может}
 s:=edit.Text;
 {Вставляем str туда где находится курсор
 insert(source: ShortString; var s: openstring; index: Integer;
 source - строка которую надо вставит в строку s, Index-позиция куда вставить}

 insert(str, s, edit.SelStart+1);
 {Обновляенм содержимое Edit'а}
 Edit.Text:=s;
end;

Удачи!!!


Консультировал: Абельхарисов Руслан/Marked One
Дата отправки: 17.07.2008, 15:11

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 140101

Посетитель

ID: 4837

# 1

= общий = | 18.07.2008, 21:07 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Чтобы выполнить поставленную задачу с StringGrid, можно создать собственный класс, наследуемый от TStringGrid с собственным обработчиком редактирования ячеек (с самим TStringGrid у меня получился один вариант, но он достаточно криво работает).


Посетитель

ID: 177738

# 2

= общий = | 20.07.2008, 21:47 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Создавать собственные классы для меня пока слишком круть, зато теперь я знаю, что в TStringGrid нет свтроенной функции для этих целей. Спасибо за внимание!

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.13339 сек.

© 2001-2018, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.42 от 30.12.2017