Скачать: CL | DM;

Как преобразовать 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

---

← →
Delphi5.01 ©   (2004-05-07 07:06) [4]

:-)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.027 c