| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnPaint
Dy1 © (2009-08-07 13:08:00)пожалуйста не игнорируйте глупый вопрос
procedure DrawArr(d: Pointer; Sender: PControl; DC: HDC);//OnPaint
как передать Sender не через d? < MakeMethod(nil, DrawArr ? ) >
MTsv DN (2009-08-07 17:09:00) [1]Тогда объявляй в объекте и приравнивай к OnDraw.
PMyObj = ^TMyObj
...
public
procedure DrawArr(Sender: PControl; DC: HDC);
end;
...
procedure TMyObj.DrawArr(Sender: PControl; DC: HDC);
begin
end;
...
var
MO : TMyObj;
begin
New(MO);
...
Где-то так...
Dy1 (2009-08-07 16:02:00) [2]хочу человеческого Sender: PControl; DC: HDC, а не передачу через запись (d: Pointer)
Демьян (2009-08-07 14:56:00) [3]Что-то не понял, в чём проблема... Зачем тебе это нужно?
| |
