22.09.2018, 03:30 [+3 UTC]
в нашей команде: 2 971 чел. | участники онлайн: 2 (рекорд: 21)

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

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

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

:: правила

:: новости

:: участники

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

:: форум

:: блоги

:: поиск

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

:: наш журнал

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

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

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

:: поддержка

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

Версия системы:
7.50 (13.09.2018)

Общие новости:
13.04.2018, 10:33

Форум:
21.09.2018, 12:18

Последний вопрос:
21.09.2018, 18:35

Последний ответ:
21.09.2018, 15:04

Последняя рассылка:
22.09.2018, 00:45

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

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

Наша кнопка:

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

Отзывы о нас:
29.03.2010, 15:10 »
Botsman
Большое спасибо за развернутый ответ! [вопрос № 177540, ответ № 260441]
09.07.2010, 21:06 »
Dimon4ik
Спасибо. Отличный ответ! Все замечательно работает. [вопрос № 179453, ответ № 262476]
02.12.2010, 17:24 »
Андреев Дмитрий Фёдорович
Огромное спасибо за то что отозвались и помогли!!! [вопрос № 180974, ответ № 264479]

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

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

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

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

Зенченко Константин Николаевич
Статус: Модератор
Рейтинг: 349
Асмик Гаряка
Статус: Советник
Рейтинг: 0
Орловский Дмитрий
Статус: Мастер-Эксперт
Рейтинг: 0

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

Консультация онлайн # 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.16384 сек.

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