Круглая кнопка

← →
Rina (2003-02-24 23:50) [0]

Привет! Как можно создать круглую кнопку не используя TImage?

← →
multik (2003-02-25 00:09) [1]

Попробуй следующее.
1 Способ
Использовать Shape. А в инспекторе выбрать в разделе shape равный stCircle
Получится полное гов.. Но вариант.
2 Способ
ИспользоватьSpeedButton. А в инспекторе выбрать в разделе glyph какой-нибудь рисунок, похожий на круглое что-то. А если flat поставить как true, то получиться прикольно.
Но и в 1 и во 2 способе в событие onclik вставить нужный код или чего-то там.

← →
jack128 (2003-02-25 03:28) [2]

3 Способ
Использовать регионы и получить полценную круглую(треугольную, в виде бублика - по желанию) кнопку (SetWindowRgn + F1)

← →
Nemo (2003-02-25 03:49) [3]

А можно пример?

← →
jack128 (2003-02-25 04:09) [4]

var EllipseRgn : THandle;

procedure TForm1.Button2Click(Sender: TObject);
begin
with Button1 do begin
EllipseRgn:=CreateEllipticRgn(Width div 4, Height div 4, 3*Width div 4, 3*Height div 4);
SetWindowRgn(Handle, EllipseRgn, True);
end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
DeleteObject(EllipseRgn);
end;

кроме того необходимо ещё и отрисовать кнопку при нажитии и отжатии, но это уже сам..

Круглая кнопка Найти похожие ветки