VPF::Динамически создаваемый ComboBox.

ivan219

Дата 3.10.2006, 23:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

Создаю ComboBox:

Код


procedure CreateComboBox(const Name:PChar; Top,Left,Width:Integer;
 Items: array of PChar; Index:Integer); StdCall;
var
   I:Integer;

begin
 ComboBox:=TComboBox.Create(Form1);
 ComboBox.Name:=Name;
 ComboBox.Top:=Top;
 ComboBox.Left:=Left;
 ComboBox.Width:=Width;
 for I:=0 to 2 do ComboBox.Items.Add(Items[I]);
 ComboBox.ItemIndex:=Index;
 ComboBox.Parent:=Form1;
end;

При создании вылазиит ошибка.

Если зделать так:

Код


procedure CreateComboBox(const Name:PChar; Top,Left,Width:Integer;
 Items: array of PChar; Index:Integer); StdCall;
var
   I:Integer;

begin
 ComboBox:=TComboBox.Create(Form1);
 ComboBox.Name:=Name;
 ComboBox.Top:=Top;
 ComboBox.Left:=Left;
 ComboBox.Width:=Width;
// for I:=0 to 2 do ComboBox.Items.Add(Items[I]);
// ComboBox.ItemIndex:=Index;
 ComboBox.Parent:=Form1;
end;

То он создаётся но уже без меню.

Что я делаю не так smile

Это сообщение отредактировал(а) ivan219 - 3.10.2006, 23:25

--------------------

Мой первый сайт и моя первая программа!!!!!

Fedia

Дата 3.10.2006, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13

Код


procedure CreateComboBox(const Name:PChar; Top,Left,Width:Integer;
 Items: array of PChar; Index:Integer); StdCall;
var
  I:Integer;
  ComboBox: TComboBox;
begin
  ComboBox:=TComboBox.Create(Form1);
  ComboBox.Parent:=Form1;
  ComboBox.Name:=Name;
  ComboBox.Top:=Top;
  ComboBox.Left:=Left;
  ComboBox.Width:=Width;
  for I:=0 to High(Items) do
  ComboBox.Items.Add(Items[I]);
  ComboBox.ItemIndex:=Index;
end;

Parent нужно задать до добавления элементов.

--------------------

Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…

Guedda

Дата 4.10.2006, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

У меня получилось так:

Код


procedure CreateComboBox(const Name:PChar; Top,Left,Width:Integer;
 Items: array of PChar; Index:Integer); StdCall;
var
   I:Integer;
begin
 ComboBox:=TComboBox.Create(Form1);
 ComboBox.Parent:=Form1;
 ComboBox.Name:=Name;
 ComboBox.Top:=Top;
 ComboBox.Left:=Left;
 ComboBox.Width:=Width;
 for I:=0 to 2 do ComboBox.Items.Add(Items[I]);
 ComboBox.ItemIndex:=Index;
end;

--------------------

Ll 2

ivan219

Дата 4.10.2006, 09:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12

А ведть таки верно smile

вот только во многих примерах

Код


ComboBox.Parent:=Form1;

стоит в конце smile

Спасибо!!!

--------------------

Мой первый сайт и моя первая программа!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »