Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.08;
Скачать: CL | DM;

Вниз

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]

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



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

Текущий архив: 2002.07.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
14-23762
lipskiy
2002-06-06 20:26
2002.07.08
Люди! Счас с ума сойду... Как это может быть???


14-23736
SPeller
2002-06-05 11:28
2002.07.08
Английский


3-23457
VAleksey
2002-06-14 09:47
2002.07.08
Теоретический вопрос про фильтры


3-23465
PashketSiniz
2002-06-14 15:37
2002.07.08
Копирование файла


1-23640
nimble
2002-06-26 02:42
2002.07.08
Thread