![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как нарисовать на форме поверх всех контролов [D6, D7]
karton © (2006-12-27 07:45:00)Здравствуйте, уважаемые!!!
Можно ли нарисовать на форме поверх всех контролов?
Elen (2006-12-27 12:24:00) [1]
> Можно ли нарисовать на форме поверх всех контролов?
На контроле который поверх всех. (А если у него еще можно прозрачность выставить - вообще красота). А ты что скины делаешь?
DimaBr (2006-12-27 09:33:00) [2]Можно, но не нужно - пропадаем смысл всех контролов
VAR ScreenDC: hDC;
begin
ScreenDC := GetDC(0); {получить контекст экрана}
Ellipse(ScreenDC, 0, 0, 200, 200); {нарисовать}
ReleaseDC(0,ScreenDC); {освободить контекст}
end;
Какое отношение это имеет к созданию компонентов ???