| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

ComboBox [D6, WinXP]

Bumer ©   (2004-08-03 12:15:00) 

Как можно создать в процессе работы программы свой ComboBox и определить у него методы, например onChange и т.д.. Буду благодарен за ссылку на пример

---

Sandman25   (2004-08-03 12:28:00) [1]

[6] Kurtevich   (03.08.04 12:27)

procedure TMainForm.OnDestroy;
begin
 Combobox.Free;
end

---

Kurtevich   (2004-08-03 12:27:00) [2]

да, насчет FreeAndNil - это очень правильно, учитывая Delphi's stupidity...

---

ламер   (2004-08-03 12:27:00) [3]

> Kurtevich   (03.08.04 12:23) [2]

но всё-таки желательно строчку

>  ComboBox := TComboBox.Create(Self);  

вынести за try...except.
а т.к. Owner'ом указан Self (т.е. TMainForm), то

> if ComboBox<>nil then Combobox.Free;

этого не надо.

---

Kurtevich   (2004-08-03 12:25:00) [4]

you're wellcome! :)

---

Sandman25   (2004-08-03 12:25:00) [5]

[2] Kurtevich   (03.08.04 12:23)

ComboBox := TComboBox.Create(Self);  
try
 ComboBox.Parent := Self;
 ComboBox.Left := 10;
 ComboBox.Top := 10;
 ComboBox.OnChange := Self.ComboBoxOnChange;
except
 FreeAndNil(ComboBox);
 raise;
end;

---

Bumer   (2004-08-03 12:24:00) [6]

Большое спасибо!

---

Kurtevich   (2004-08-03 12:23:00) [7]

procedure TMainForm.CreateComboBox;
begin
 try
  ComboBox := TComboBox.Create(Self);  
  ComboBox.Parent := Self;
  ComboBox.Left := 10;
  ComboBox.Top := 10;
  ComboBox.OnChange := Self.ComboBoxOnChange;
 except
  ComboBox.Free;
  raise;
 end;
end;

procedure TMainForm.ComboBoxOnChange(Sender: TObject);
begin
{}
end;

procedure TMainForm.OnDestroy;
begin
if ComboBox<>nil then Combobox.Free;
end;

---

Iconka   (2004-08-03 12:22:00) [8]

MyCombo:= TComboBox.Create(self);
MyCombo.OnChange:= MyProc;
понятно?

---

Наверх