нестандартные формы

← →
kle[z]a © (2004-09-15 01:08) [0]

Как сделать ромбообразную форму,с тремя кнопками?
....т.е. первая слева,вторая справа, а третья в низу в виде треугольника!
P.S.... Если это возможно то просьба написать примерный код.

← →
][ncognito (2004-09-15 01:39) [1]

в дельфи 6 и выше, в свойствах главной, формы есть св-во TransparentColor и TransparentColorValue. Думаю, чем они занимаются и так ясно.
Теперь при помощи компонентов типа TShape или TImage+*.bmp можно делать приложение самой извращённой формы :))
Но, вроде, эта штука не работает, если приложение запустить в Win 9.x. В ХР пашет отменно.

Есть способ более надёжный, но и более нудный:

procedure TForm1.FormCreate(Sender: TObject);
var
WR1, WR2, WR3 : Integer;
T, D, M : array[1..6] of TPoint;
begin
T[1].X:=30-1; T[1].Y:=20; T[2].X:=50-1; T[2].Y:=0; T[3].X:=150; T[3].Y:=0; T[4].X:=170; T[4].Y:=20; T[5].X:=170; T[5].Y:=40; T[6].X:=30; T[6].Y:=40;
M[1].X:=0; M[1].Y:=20; M[2].X:=200; M[2].Y:=20; M[3].X:=200; M[3].Y:=230; M[4].X:=0; M[4].Y:=230;
D[1].X:=30; D[1].Y:=230; D[2].X:=50; D[2].Y:=210; D[3].X:=150; D[3].Y:=210; D[4].X:=170; D[4].Y:=230; D[5].X:=150; D[5].Y:=250; D[6].X:=50; D[6].Y:=250;
WR1:=CreatePolygonRgn(M,4,Alternate); WR2:=CreatePolygonRgn(T,6,Alternate); WR3:=CreatePolygonRgn(D,6,Alternate);
CombineRgn(WR1,WR1,WR2,rgn_or); CombineRgn(WR1,WR1,WR3,rgn_or);
SetWindowRgn(Handle,WR1,true);
end;

← →
][ncognito (2004-09-15 01:40) [2]

Это что касается формы. Кнопки можно резать с помощью второго способа + можно извратится с TImage

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