![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Пользователь
Регистрация: 09.01.2007
Сообщений: 18
|
![]()
Делаю прогу-учебник для пользователей, также чтобы они могли сами менять текст программы, ну это у меня получается,суть в другом надо чтобы они смогли и поменять вопросы и ответы,ответ у меня реализуется через Radiobutton, т.е. чтобы выходил текст radiobuttona который ссылался бы на файл. Помогите пожалуйста заранее спасибо!
|
![]() |
![]() |
![]() |
#2 |
Участник клуба
Регистрация: 15.02.2007
Сообщений: 1,112
|
![]()
Редактирование текста обычного радиобуттона в процессе исполнения довольно сложно, если вообще возможно, но есть вариант пойти по пути найменьшего сопротивления: поставьте невидимый эдит. Реагируем на событие, которое предвещает смену текста радиобутона, делаете эдит видимым и его координаты изменяете в соответствии с положением радиобутона, затем по событию изменения текста в эдит присваиваете тот же текст и радиобутону. По нажатию ентера, или по событию выхода / потери фокуса эдита снова делаете его невидимым и обнуляете
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
procedure TForm1.FormActivate(Sender: TObject);
begin if fileexists('C:\config.int') then begin form1.Memo1.Lines.LoadFromFile('C:\ config.int'); if form1.Memo1.Lines.Count>=1 then form1.RadioButton1.Caption:=form1.M emo1.Lines.Strings[0]; end; end; Ну там Else всякие не писал(в одном случае если файла такого нет обычно создаёшь сам со значениями по умолчанию, а во внутреннем if если файл пустой). Поле Memo невидимое.Название и расширение сам какое хочешь делай. Если надо чтоб прога из директории запуска программы брала файл, то делаешь её запись в строковою переменную при Great'е основной формы и плюсуешь к ней имя файла. |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 09.01.2007
Сообщений: 18
|
![]()
Уже сделал , большое спасибо вам!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с текстом | Кронос | Общие вопросы Delphi | 2 | 07.05.2008 22:18 |
Помогите с текстом прграммы. | anuego | Помощь студентам | 1 | 25.04.2008 14:02 |
Помогите разобраться с текстом в ячейке!!! | Zorg | Microsoft Office Excel | 9 | 21.04.2008 14:12 |
помощь с radiobutton | paralitic | Компоненты Delphi | 1 | 06.06.2007 09:15 |