OnCange у DBLookupComboBox

[elshir]

есть DBLookupComboBox на событие OnCange которого выполняется sql-запрос
Подскажите, как в при нажатии кнопки button1 повторить это событие, точнее что писать после
DBLookupComboBox. OnChange:= ??????
просто кризис мысли какой-то

[Little_Roo]

DBLookupComboBox. OnChange:=

Ну....это... как-то...
Событие впихнуть в свойства и еще присвоить ( := ) что-то --- это верхний пилотаж

Текст процедуры можно глянуть, а то телепаты в отпуске (с) местное

[Лекс Айрин]

elshir, а может, проще сделать наоборот? При наступлении события программно нажимать на button1?

[SeZuka]

Либо в свойстве события ONClick кнопки выбрать обработчик от вашего DBLookupComboBox и тогда все будет делаться автоматом,
либо если вам еще какие-то действия надо сделать при нажатии кнопки, то в самом обработчике ONClick вызвать процедуру обработчика OnCange, что-то типа такого:

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  DBLookupComboBox1Change(nil);
end;


[elshir]

Событие впихнуть в свойства и еще присвоить ( := ) что-то --- это верхний пилотаж

это лазарус так требует... с делфи перешел недавно, потому трудности иногда возникают

что-то типа такого:
КОД: ВЫДЕЛИТЬ ВСЁ
procedure TForm1.Button1Click(Sender: TObject);
begin
  DBLookupComboBox1Change(nil);
end;

Вот, то что нужно! спасибо большое!