Рисование в контроле

← →
Ocean (2002-06-10 17:58) [0]

Например, в TButton по событию click хотелось бы нарисовать что-нибудь. А можно ли рисовать в экране?

← →
Song (2002-06-10 21:49) [1]

Рисовать можно что угодно и где угодно. Выбирай в классе TCanvas

← →
Ocean (2002-06-11 10:30) [2]

В TButton, как и в TScreen, нет Canvas.
Я пробовал так:

Var DC : hDC;
C : TCanvas;

DC := GetDC(Button1.Handle);
C := TCanvas.Create;
C.Handle := DC;
C.Rectangle(10,10,30,20);
C.TextOut(1,1,"VT!!!");
ReleaseDC(Button1.Handle,DC);
C.Free;
Button1.Invalidate;

Впечатление, что Button1 перерисовывается поверх моего прямоугольника.

← →
Song (2002-06-11 14:30) [3]

>>В TButton, как и в TScreen, нет Canvas.

:))
Дык всё-равно же через TCanvas рисуете!!!

Рисование в контроле Найти похожие ветки