![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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. |