Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 01.05.2011, 00:55
yambbkru yambbkru вне форума
Прохожий
 
Регистрация: 01.05.2011
Сообщения: 1
Репутация: 10
По умолчанию Как зепретить редактирование имени параметра в VelueListEditor?

VelueListEditor используется в программе для того, что бы при нажатии нужной кнопки туда загурзился нужный список параметров, а значения пользователь должен вводить. Но имя параметра изменять пользователь не должен! Только значение!
Свойства компонента VelueListEditor установила такие:
goEditing = true;
keyEdit = false;
Но при запуске программы до нажатия кнопок, пока VelueListEditor еще пуст, если установить курсор в поле, где имя параметра, то его можно изменить, т. е. ввести свое имя параметра. Потом при нажатии кнопки появляется список параметров и потом нельзя уже менять имя, только значение. Но вот самый первый раз можно! Как это устранить?
Ответить с цитированием
  #2  
Старый 01.05.2011, 07:54
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,097
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Запрети данный компонент до момента загрузки списка (enabled := false).
Ответить с цитированием
  #3  
Старый 01.05.2011, 09:35
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
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.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 12:04.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025