function WndProc override

← →
SKA1997 © (2006-11-03 00:23) [0]

Добрый вечер.

Пытаюсь немного откорректировать полученный "Flash_TLB", а в частности, убрать когда это нужна полность (а не частично) Popup и делаю так ...

PShockwaveFlash = ^TShockwaveFlash;
TShockwaveFlash = object(TOleCtl)
private
...
protected
...
function WndProc(var Msg: TMsg): Integer; override;

...

function TShockwaveFlash.WndProc(var Msg: TMsg): Integer;
begin
if (Msg.Msg = WM_RBUTTONDOWN ) and (not Menu) then
begin
Msg.Result := 0;
end else inherited WndProc(Message);
Exit;
end;
inherited WndProc(Message);
end;

И выдают мне ошибку:
Declaration of "WndProc" differs from previous declaration

Как правильно сделать в KOL ???

← →
vampir_infernal (2006-11-03 06:49) [1]

Смотрите в коде родителя, как объявлена WndProc, и сделайте у себя такие же параметры.

← →
SKA1997 © (2006-11-03 10:41) [2]

Искал.
Родитель в модуле KOL.
Там прописано - function WndProc(var Msg: TMsg): Integer;

Других WndProc не нашел :(

← →
Thaddy (2006-11-03 10:56) [3]

function WndProcShockwave(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean; begin if (Msg.Msg = WM_RBUTTONDOWN) and (not Menu) then begin Msg.Result: = 0; Result :=True; //stop handling end end; // Now call AttachProc and don"t forget to call DetachProc afterwards: var SW:PShowwave begin SW.AttachProc(WndProcShockWave); end.

← →
Thaddy (2006-11-03 10:59) [4]

Too fast:
function WndProcShockwave(Sender: PControl; var Msg: TMsg; var Rslt: Integer): Boolean; begin Result := False; if (Msg.Message = WM_RBUTTONDOWN) and (not Menu) then // do not know what menu is, but begin Rslt := 0; Result :=True; //stop handling end end;

Спасибо большое, Thaddy :)

function WndProc override Найти похожие ветки