Как сделать кнопку нестандартной формы?

← →
kazaam © (2002-09-13 08:25) [0]

А нестандартную форму?

← →
RV © (2002-09-13 08:50) [1]

procedure TForm1.FormCreate(Sender: TObject);
const
n = 1;
var
nn : integer;
ResultReg, Reg : HRGN;
P : array[0..n-1] of TPoint;
begin
//Put Ellipse
//инициализация ResultReg
ResultReg := CreateEllipticRgn(111,92,427,261);
//Put Ellipse
Reg := CreateEllipticRgn(255,108,288,252);
CombineRgn(ResultReg,ResultReg,Reg,RGN_DIFF);
SetWindowRgn(Handle, ResultReg, False);
end;

хошь утилитку, дабы ручками не писать, пиши

Как сделать кнопку нестандартной формы? Найти похожие ветки