| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как преобразовать Self в pCotrol :-) [Delphi, Windows]
Delphi5.01 © (2004-05-06 20:25:00)Вот уже вторая неделя кончается а я так и не нашел решения моей проблемы
Вполне возможно вопрос очень легкий но все же:
Как преобразовать 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-07 07:06:00) [1]:-)
SPeller (2004-05-07 04:54:00) [2]@Self
Gandalf (2004-05-06 22:39:00) [3]FAQ!
Delphi5.01 (2004-05-06 20:59:00) [4]Self.fCurrentControl
| |
