Рисование на TButton

← →
MSTX (2004-07-25 14:18) [0]

Здравствуйте!

Подскажите пожалуйста, как можно рисовать на компоненте TButton, ведь у него нет свойства Canvas?

Заранее благодарен

← →
P.N.P. © (2004-07-25 14:23) [1]

Сделать наследника с Canvas

type TMyBtn = class(TButton) private FCanvas: TCanvas; ....

Посмотри, как сделана TBitBtn

← →
vertex © (2004-07-25 14:27) [2]

проще:

var canvas:tcanvas; begin canvas:=tcanvas.create; canvas.handle:=GetDC(Button.Handle); ...

← →
MSTX (2004-07-25 16:58) [3]

Т.е. если этого свойства нет, его следует создать? Всего-то!
Первый способ мне больше подходит, т.к. это мне надо именно для создания компонента.

P.N.P., vertex, благодарю за ответы!

> vertex © (25.07.04 14:27) [2]
> проще:
>
> var canvas:tcanvas;
> begin
> canvas:=tcanvas.create;
> canvas.handle:=GetDC(Button.Handle);
> ...

Прикольно вот только нужно еще момент КОГДА делать отрисовку поймать.

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