Программное создание элемента формы

@M9sNik · Регистрация: 19.11.2009

Author24 — интернет-сервис помощи студентам

Создаю элемент с помощью процедуры.

Delphi

procedure TForm1.ComboCreate(i: Integer; name: string);
begin
Combo:=TsComboBoxEx.Create(Form1);
Combo.Parent:=???;
Combo.Left:=0;
Combo.Top:=(CoBuff+1)*21+5;
Combo.Name:='Combo'+IntToStr(CoBuff);
CoBuff:=CoBuff+1;
Combo.Text:='Наименование';
Combo.Visible:=true;
end;

Combo.Parent:= - просит TWinnControl, но он может быть любым. Как его получить и передать в процедуру?

@Puporev · 04.09.2012, 22:02

Если он будет на форме, то и parent:=Form1; или какая там форма.

@M9sNik · 04.09.2012, 22:11 **[ТС]**

Сообщение от Puporev

Если он будет на форме, то и parent:=Form1; или какая там форма.

Спасибо, сам уже разобрался. Вот так будет;

Delphi

1	procedure TForm1.ComboCreate(name: TWinControl);

Тогда чтоб не создавать новую тему: Если сделать запуск процедуры на ивэнт OnChange, как сделать чтобы процедура выполнялась только при первом изменении? А то у меня при каждом изменении она выполняется...

@Ev1l · 04.09.2012, 22:18

Не по теме:

кстати элемент по умолчанию видимый, у тебя не отображался из-за отсутствия парента, так что строку с показом можно убрать

@M9sNik · 05.09.2012, 13:07 **[ТС]**

Сообщение от M9sNik

Тогда чтоб не создавать новую тему: Если сделать запуск процедуры на ивэнт OnChange, как сделать чтобы процедура выполнялась только при первом изменении? А то у меня при каждом изменении она выполняется...

Вопрос уже не актуален. Появился новый вопрос: Создаем программно комбобокс, и необходимо чтобы у него так же срабатывал ивент ОнЧендж. Но в моем случае процедура вызывает саму себя, на что скорей всего и ругается программа:

Delphi

procedure TForm1.ComboCreate(name: TWinControl);
begin
Combo:=TsComboBoxEx.Create(Form1);
Combo.Parent:=name;
Combo.Left:=0;
Combo.Top:=(CoBuff+1)*21+5;
Combo.Name:='Combo'+IntToStr(CoBuff);
CoBuff:=CoBuff+1;
Combo.Text:='Наименование';
Combo.OnChange:=???;
end;

@M9sNik · 05.09.2012, 17:25 **[ТС]**

Сообщение от M9sNik

Вопрос уже не актуален. Появился новый вопрос: Создаем программно комбобокс, и необходимо чтобы у него так же срабатывал ивент ОнЧендж. Но в моем случае процедура вызывает саму себя, на что скорей всего и ругается программа:

Delphi

procedure TForm1.ComboCreate(name: TWinControl);
begin
Combo:=TsComboBoxEx.Create(Form1);
Combo.Parent:=name;
Combo.Left:=0;
Combo.Top:=(CoBuff+1)*21+5;
Combo.Name:='Combo'+IntToStr(CoBuff);
CoBuff:=CoBuff+1;
Combo.Text:='Наименование';
Combo.OnChange:=???;
end;

Delphi

1	Combo.OnChange:=Form1.ComboCreate(Combo.Parent);

Так тож ругается, а по другому не знаю как...

@Аватар · 05.09.2012, 21:56

Delphi

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  ...
end;
 
procedure TForm1.ComboCreate(name: TWinControl);
begin
  ...
  Combo.OnChange:=ComboBox1Change;
end;

@M9sNik · 05.09.2012, 22:28 **[ТС]**

Delphi

procedure TForm1.ComboCreate(name: TWinControl);
var CoName:TWinControl;
begin
Combo:=TsComboBoxEx.Create(Form1);
Combo.Parent:=name;
Combo.Left:=0;
Combo.Top:=(CoBuff+1)*21+5;
Combo.Name:='Combo'+IntToStr(CoBuff);
CoBuff:=CoBuff+1;
Combo.Text:='Наименование';
Combo.OnChange:=Form1.ComboChange;
end;
 
procedure TForm1.ComboChange;
begin
ComboCreate(combo.parent);
end;

Ошибка: [DCC Error] Unit1.pas(73): E2009 Incompatible types: 'Parameter lists differ'

murderer · 06.09.2012, 07:43

Delphi

1	procedure TForm1.ComboChange(Sender: TObject);

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	04.09.2012, 22:02	2
	Если он будет на форме, то и parent:=Form1; или какая там форма. 0

@Ev1l
	04.09.2012, 22:18 #4
	Не по теме: кстати элемент по умолчанию видимый, у тебя не отображался из-за отсутствия парента, так что строку с показом можно убрать 0

	06.09.2012, 07:43