![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ComboBox от TMS
alexdn © (2014-03-20 00:25:00)Поставил ComboBox (AdvOfficeComboBox) от TMS на форму, там нижеприведенный код, и что странно, почему то выполняется два раза, т.е. соответствующее сообщение высвечивается дважды. Может кто работал с tms компонентами и в курсе почему такое странное поведение?
procedure TForm1.AdvOfficeComboBox1Select(Sender: TObject);
begin
case AdvOfficeComboBox1.ItemIndex of
0:
begin
ShowMessage('русский');
end;
1:
begin
ShowMessage('английский');
end;
2:
begin
ShowMessage('немецкий');
end;
end;
end;
alexdn (2014-03-20 12:29:00) [1]поставил ограничение
xc:=xc+1;
if xc>1 then begin xc:=0; exit; end;
alexdn (2014-03-20 12:20:00) [2]при ручном
clickmaker (2014-03-20 11:37:00) [3]2 раза именно при ручном выборе?
sniknik (2014-03-20 10:31:00) [4]так он вроде с исходниками был... поставь точку останова в конце этой процедуры, и трассируй до выхода из нее (1 шаг). увидишь откуда вызывается 2 раза, и виноват ли в этом сам TMS.