[Lost_Fish]

Есть

Код:

TDBLookupComboboxHide = class(TDBLookupComboboxEh)
    private
    { Private declarations }
        ...
        FOnDropDown:TNotifyEvent;
        FOnCloseUp:TCloseUpNotify;
        procedure MyDropDown(Sender: TObject);
        procedure MyCloseUp(Sender: TObject; Accept: Boolean);
        procedure btnClearClick(Sender: TObject;var Handled: Boolean);
    protected
    { Protected declarations }
    public
    { Public declarations }
        constructor Create(AOwner:TComponent);Override;
    published
    { Published declarations }
        ...
    end;
....

procedure TDBLookupComboboxHide.btnClearClick(Sender: TObject;var Handled: Boolean);
begin <--Сюда даже не заходит
    if Assigned(TDBLookupComboboxEh(TEditButtonControlEh(Sender).Parent)) then
        TDBLookupComboboxEh(TEditButtonControlEh(Sender).Parent).KeyValue:=Null;
end;

constructor TDBLookupComboboxHide.Create(AOwner:TComponent);
begin
    inherited;
    ...
    FOnCloseUp:=Self.OnCloseUp;
    FOnDropDown:=Self.OnDropDown;
    Self.OnCloseUp:=MyCloseUp;
    Self.OnDropDown:=MyDropDown;
    With EditButtons.Add do
    begin
        Style:=ebsGlyphEh;
        Glyph.LoadFromResourceName(HInstance,'cmbCloseHide');
        OnClick:=btnClearClick;  <---Вот тут присвоение остановка по BreakPoint есть
    end;
end;

Это всё в пакете, компонент регистрируется нормально, события OnCloseUp и OnDropDown переопределяются нормально, а вот при создании дополнительной кнопки событие на ней не переопределяется, в btnClearClick по BreakPoint даже не переходит.

Помогите понять в чём дело пожалуйста.

[Lost_Fish]

Ну хоть какие-то идеи, хотяб направление где искать

[Alegun]

Попробуйте процедуру Inherited выполнять в самом конце.

[poli-smen]

Сообщение от Alegun

Попробуйте процедуру Inherited выполнять в самом конце.

Скорее всего вряд ли это поможет. Вот если бы наоборот inherited был в конце, то перенос его в начало могло дать результат.
Ксожалению я не пользуюсь TDBLookupComboboxEh, поэтому мне негде глянуть его исходники, но если ты просишь "хоть какие-то идеи", то попробуй избавиться от with, т.е. вместо:

Код:

    With EditButtons.Add do
    begin
        Style:=ebsGlyphEh;
        Glyph.LoadFromResourceName(HInstance,'cmbCloseHide');
        OnClick:=btnClearClick;  <---Вот тут присвоение остановка по BreakPoint есть
    end;

напиши:

Код:

    переменная:=EditButtons.Add;
    переменная.Style:=ebsGlyphEh;
    переменная.Glyph.LoadFromResourceName(HInstance,'cmbCloseHide');
    переменная.OnClick:=btnClearClick;  <---Вот тут присвоение остановка по BreakPoint есть

Может у этой кнопки нет свойства OnClick (или оно сокрыто) и из-за with обработчик события btnClearClick присваивается вовсе не ей?

[Alegun]

Сообщение от poli-smen

Скорее всего вряд ли это поможет. Вот если бы наоборот inherited был в конце, то перенос его в начало могло дать результат...

Странно, а у меня например, процедура контроля изменения размеров формы вот так работает:

Код:

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120);

inherited
end;

а так вот нет:

Код:

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;

Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120)
end;

Смотрел\проверял специально - инхирайтед в конце работает.

[poli-smen]

Сообщение от Alegun

Странно, а у меня например, процедура контроля изменения размеров формы вот так работает:

Код:

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120);

inherited
end;

а так вот нет:

Код:

procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;

Msg.MinMaxInfo^.ptMinTrackSize := Point(235, 120)
end;

Смотрел\проверял специально - инхирайтед в конце работает.

Странно. У меня и так и так работает...

[Lost_Fish]

Сообщение от poli-smen

переменная:=EditButtons.Add;
переменная.Style:=ebsGlyphEh;
переменная.Glyph.LoadFromResourceName(HInstance,'c mbCloseHide');
переменная.OnClick:=btnClearClick;

пробовал не помогает, событие у кнопки есть, определяется если на форме всё это делаешь ручками, пробовал через PostMessage вызывать процедуру которая делала присвоение FClearBtn.OnClick:=btnClearClick; тоже не помогает.

Попробуйте процедуру Inherited выполнять в самом конце.

Придерживаюсь правила в конструкторах Inherited вызывать в самом начале.

[Pyro]

можно через rtti извратиться, я видел работающий пример, но там жесть, лучше не пытаться угадать а поискать пример, который точно работает

[lmikle]

Что такое EditButtons и что получается после Add от него?
Ну и в дизайнере создай и посмотри, может там какое свойство доп. надо установить, что бы начало работать (можно еще по исходникам посмотреть). И есть ли у этой кнопки этот самый OnClick??? А то мож в итоге ты обработчик на форму навешиваешь... - попробуй написать без With и посмотреть, что тебе компилятор скажет.

[Lost_Fish]

Сообщение от lmikle

Что такое EditButtons и что получается после Add от него?

В EhLib есть компонент TDBLookupComboBoxEh, список с возможностью добавлять кнопки такие же как для разворота списка, Add добавляет кнопку, в свойствах ничего интересного, событие OnClick есть на каждом экземпляре кнопки, и если ручками прописывать о6но работает.

Сообщение от lmikle

попробуй написать без With и посмотреть, что тебе компилятор скажет.

кнопка-то создается и картинка на нее из ресурса ставится

пробовал через переменную, как локальную так и глобальную(переопределял позже создания вызывая переопределение через PostMessage), вобщем испробовав ряд ректальных ухищрений пришёл к выводу что действие буду прописывать в ручную.