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...

> Kurtevich (03.08.04 12:23) [2]

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

> ComboBox := TComboBox.Create(Self);

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

> if ComboBox<>nil then Combobox.Free;

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

[6] Kurtevich (03.08.04 12:27)

procedure TMainForm.OnDestroy;
begin
Combobox.Free;
end

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