Не могу разобраться с полиморфизмом

← →
Fate (2004-07-30 11:57) [0]

ЕСТЬ простенький дельфовый код

TForm1=class(TForm)
private
procedure WMLButtonUp(var Message:TMessage); message WM_LBUTTONUP;
end;

implementation
procedure TForm1.WMLButtonUp(var Message:TMessage);
begin
inherited;
{..код не относящийся к делу..}
end;

ПЫТАЮСЬ это переложить на Builder:

class TForm1 : public TForm
{

__fastcall TForm1(TComponent* Owner);

private: void __fastcall WMLButtonUp(TMessage &Message);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_LBUTTONUP, TMessage, WMLButtonUp)
END_MESSAGE_MAP(TForm)

};

void __fastcall TForm1::WM_LBUTTONUP(TMessage &Message)
{
TForm::WM_LBUTTONUP(Message);
/*вот здесь и выскакивает ошибка (в этом полиморфизме),
компилятор говорит что TControl ::WM_LBUTTONUP(TMessage&) недоступен
и еще - когда в делфях принудительно указываю имя метода родителя
компилятор точно также ругается, а когда просто ставлю inherited без
имени все прокатывает*/

}
Помогите, pls, а то совсем не могу разобраться (то что вместо TMessage
нужно передовать TWMSize роли не играет - все равно метод не доступен)

← →
wicked © (2004-07-30 12:04) [1]

это
> TForm::WM_LBUTTONUP(Message);
заменить на это
> TForm::Dispatch(Message);

да и не полиморфизм это никакой.... так, ловля сообщений...

Не могу разобраться с полиморфизмом Найти похожие ветки