Универсальный DrawItem для нескольких ListBox/ComboBox

[Nik]

В программе есть куча ListBox/ComboBox, которые используют DrawItem с практически одинаковым кодом. В целях небольшого сокращения кода задался целью использовать для отрисовки всех схожих контролов одну универсальную функцию примерно такого вида:

Код: Выделить всё

procedure TMainForm.BillBoxDraw(Sender: TObject; Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin
...
with (Sender as TListBox) do
  begin
   txt:=Items[Index];
   Canvas.FillRect(ARect);
   ...
end;
...
end;

Вызывать её, соответственно, предполагал примерно так:

Код: Выделить всё

procedure TMainForm.BillBoxDrawItem(Control: TWinControl; Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin
BillBoxDraw(BillBox, Index, ARect, State);
end;

Код, вроде как, вполне логичный и компилируется без проблем. Но при запуске программы открытие ComboBox вызывает ошибку: RunError (219) (отладчик останавливается на строке with (Sender as TListBox) do). Что за ошибка - не понятно, из-за чего вылазит - тоже.
Кто-нибудь из вас, уважаемые коллеги, сталкивался с такой проблемой? Может есть другие пути использования универсальной DrawItem?

[Mr.Smart]

Так ведь TComboBox не наследуется от TListBox и являются "дальними" родственниками с общим предком TWinControl. Отсюда и траблы.

[Nik]

Функции для ComboBox и ListBox - разные. Код, который приведён в первом посте, используется только для ListBox, но всё равно вызывает ошибку.

[Odyssey]

219 Invalid typecast
Оператор as
Оператор as приводит объект к указанному типу или генерирует ошибку, если приведение невозможно. Поэтому:

1) Если нужно перебрать несколько типов без ошибок, и выполнить для каждого типа свой код -- тип нужно проверять, например так:

Код: Выделить всё

if Sender is TListBox then
  with TListBox(Sender) do

В текущем коде такой проверки типа не видно.

2) Если подразумевается, что в выбранном куске кода Sender по-любому должен быть TListBox'ом, иначе это ошибка, можно оставить as. Но тогда получается что в этот код по ошибке передаётся ссылка на другой компонент. Чтобы понять на какой, можно прямо перед приведением типа вывести в консоль или лог Sender.ClassName, и если это наследник от Component, то посмотреть ещё и TComponent(Sender).Name. А потом искать каким путём этот объект передаётся в ваш код, и что нужно исправить, чтобы вместо него передавался TListBox.

[Vadim]

Nik
Ошибка 219 - это классическая ошибка приведения типов. В связке с классом означает невозможность применения каких-то методов приводимого типа к тому из которого осуществляется привод.
Вы лучше вместо TObject поставьте TWinControl и напишите потом, что будет.

[Mr.Smart]

Функции для ComboBox и ListBox - разные. Код, который приведён в первом посте, используется только для ListBox, но всё равно вызывает ошибку.

Вы же сами написали в первом посте

...
Но при запуске программы открытие ComboBox вызывает ошибку: RunError (219) (отладчик останавливается на строке with (Sender as TListBox) do). Что за ошибка - не понятно, из-за чего вылазит - тоже.
...

[Nik]

В после напутал немного, извиняюсь Проблема решилась пересборкой Lazarus из последнего ночного билда.