Access Violation при работе с TComboBox.

← →
Дельфятник (2002-06-26 17:37) [0]

У меня есть обработчик события OnChange для нескольких TComboBox. Вот его код:

procedure TInputForm.ComboBox1Change(Sender: TObject);
begin
if ((Sender as TComboBox).Text<>"") and ((Sender as TComboBox).Text<>" ") and
(not (Sender as TComboBox).DroppedDown)
then (Sender as TComboBox).OnClick(Sender)
end;

Проблема в том, что не у всех ComboBox"ов есть обработчик события OnClick, поэтому у них происходит Access Violation при попытке вызова этой процедуры. Как должно выглядеть условие проверки наличия обработчика события OnClick?

← →
MBo © (2002-06-26 17:41) [1]

if Assigned((Sender as TComboBox).OnClick) then ...

← →
rhf © (2002-06-26 17:47) [2]

with Sender as TComboBox do if (Text<>"") and (Text<>" ") and not DroppedDown and assigned(onClick) then OnClick(Sender) так и код приятней читать :)

← →
Дельфятник (2002-06-26 18:24) [3]

Всем спасибо!

Access Violation при работе с TComboBox. Найти похожие ветки