Как преобразовать Self в pCotrol :-)

← →
Delphi5.01 © (2004-05-06 20:25) [0]

Вот уже вторая неделя кончается а я так и не нашел решения моей проблемы
Вполне возможно вопрос очень легкий но все же:
Как преобразовать Self в pCotrol,
function TCrazyButton.ProcessMesages(var Msg: TMsg; var Rslt: Integer ): Boolean;
begin
case Msg.message of
WM_LBUTTONDOWN:
begin
Self.fMouseDown((Self as pControl),SmallPointToPoint(TSmallPoint(Msg.LParam)));
end;
end
end;
Это надо сделать для того что, Sender является pControl типа. А Sender-ом является сам конторол.
Спасибо

← →
Delphi5.01 © (2004-05-06 20:59) [1]

Self.fCurrentControl

← →
Gandalf © (2004-05-06 22:39) [2]

FAQ!

← →
SPeller © (2004-05-07 04:54) [3]

@Self

:-)

Как преобразовать Self в pCotrol :-) Найти похожие ветки