![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() VelueListEditor используется в программе для того, что бы при нажатии нужной кнопки туда загурзился нужный список параметров, а значения пользователь должен вводить. Но имя параметра изменять пользователь не должен! Только значение!
Свойства компонента VelueListEditor установила такие: goEditing = true; keyEdit = false; Но при запуске программы до нажатия кнопок, пока VelueListEditor еще пуст, если установить курсор в поле, где имя параметра, то его можно изменить, т. е. ввести свое имя параметра. Потом при нажатии кнопки появляется список параметров и потом нельзя уже менять имя, только значение. Но вот самый первый раз можно! Как это устранить? |
#2
|
|||
|
|||
![]() Запрети данный компонент до момента загрузки списка (enabled := false).
|
#3
|
||||
|
||||
![]() Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, ValEdit, StdCtrls; type TForm1 = class(TForm) Button1: TButton; ValueListEditor1: TValueListEditor; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin ValueListEditor1.KeyOptions:=[]; // хотя по умолчанию и так ValueListEditor1.Options:=ValueListEditor1.Options-[goEditing]; end; procedure TForm1.Button1Click(Sender: TObject); begin ValueListEditor1.Values['bill']:='gates'; ValueListEditor1.Values['steven']:='ballmer'; ValueListEditor1.Options:=ValueListEditor1.Options+[goEditing]; end; end. Пишу программы за еду. __________________ |