как сделать кнопки овальные

← →
ZEP © (2002-09-15 14:56) [0]

подскажите кто нибудь как сделать кнопки овальные

← →
Ketmar © (2002-09-15 15:05) [1]

обрезать им углы %-) CreateEllipticRgn

Satanas Nobiscum! 15-Sep-XXXVII A.S.

← →
zam2000 (2002-09-15 15:10) [2]

SetWindowRgn

← →
Безумный Кадастрат вер. 2.0 бета (2002-09-15 18:02) [3]

Это вопрос по написанию компонента?

Например так:

procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowRgn(Button1.Handle, CreateEllipticRgn(0,0,button1.width,button1.height), TRUE);
end;

где button1 - изменяемая кнопка

как сделать кнопки овальные Найти похожие ветки