Скачать: CL | DM;

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

← →
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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c