Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите!

Le! © (2002-12-01 09:00:00)
Народ посоветуйте! как в обыкновенном ComboBox сделать только на выбор чтобы в него ничего нельзя было писать!

TTCustomDelphiMaster (2002-12-02 19:07:00) [1]
var
Form1: TForm1;
CbChange, CbDropDown: TNotifyEvent;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.Insert(0, "Вставте строку");
ComboBox1.ItemIndex := 0;
CbChange := ComboBox1.OnChange;
CbDropDown := ComboBox1.OnDropDown;
ComboBox1.OnChange := DeleteFirst;
ComboBox1.OnDropDown := DeleteFirst;
end;

procedure TForm1.DeleteFirst(Sender: TObject);
begin
ComboBox1.Items.Delete(0);
ComboBox1.ItemIndex := 0;
ComboBox1.OnChange := CbChange;
ComboBox1.OnDropDown := CbDropDown;
end;

SergeyKatruk (2002-12-02 18:35:00) [2]
Чё то у меня так не выходит

sandima (2002-12-02 10:06:00) [3]
Пиши
with ComboBox do
begin
Text:="dkfhjd";
ItemIndex:=-1;
end;
и все...

Le! (2002-12-02 08:14:00) [4]
А если вот так: нужно чтобы при первом виде этого ComboBox на нем было "Выбрать" а когда на него нажимаешь то эту надпись выбрать было нельзя, и при этом чтобы в него нельзя было ничего писать. а?

snv-soft (2002-12-02 06:25:00) [5]
Да уж..

Le! (2002-12-02 01:32:00) [6]
Спасибо! Люди добрые!

Tano (2002-12-01 20:36:00) [7]
Чтобы какой-то пункт был сразу виден:
ComboBox1.IntemIndex:=номер //чаще всего просто 0
иначе получишь беленькое окошко - просто выглядит несуразно.

KA_ (2002-12-01 11:10:00) [8]
ComboBox1.Style := csDropDownList;
или тоже самое в Object Inspector.

Николай Быков (2002-12-01 09:07:00) [9]
свойство style у Combobox"a установи в csOwnerDrawFixed и будет тебе счастье

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »