Скачать: CL | DM;

ComboBox   Найти похожие ветки 

← →
Bumer   (2004-08-03 12:15) [0]

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

---

← →
Iconka ©   (2004-08-03 12:22) [1]

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

---

← →
Kurtevich   (2004-08-03 12:23) [2]

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;

---

← →
Bumer   (2004-08-03 12:24) [3]

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

---

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

you"re wellcome! :)

---

← →
Sandman25 ©   (2004-08-03 12:25) [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;

---

← →
Kurtevich   (2004-08-03 12:27) [6]

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

---

← →
ламер ©   (2004-08-03 12:27) [7]

> Kurtevich   (03.08.04 12:23) [2]

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

>  ComboBox := TComboBox.Create(Self);  

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

> if ComboBox<>nil then Combobox.Free;

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

---

← →
Sandman25 ©   (2004-08-03 12:28) [8]

[6] Kurtevich   (03.08.04 12:27)

procedure TMainForm.OnDestroy;
begin
 Combobox.Free;
end

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c