нестандартная кнопка

← →
pound © (2007-01-04 14:51) [0]

» Подскажите, как сделать нестандартную кнопку, в частности мне нужна треугольная. Заранее благодарен, Андрей.

← →
Calibr © (2007-01-04 15:23) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
aPoints: array[0..3] of TPoint ;
Rgn: hRgn;
begin
aPoints[0].X := Button1.Left;
aPoints[0].Y := Button1.Width;

aPoints[1].X := Button1.Width;
aPoints[1].Y := Button1.Width;

aPoints[2].X := Button1.Width div 2;
aPoints[2].Y := Button1.Left;

aPoints[3].X := Button1.Left;
aPoints[3].Y := Button1.Width;

Rgn := CreatePolygonRgn(aPoints, length(aPoints), 1);
SetWindowRgn(Button1.Handle, Rgn, true);
end;

нестандартная кнопка Найти похожие ветки