Как создать полигон для формы (в виде треугольника, облака или др.), подкинете исходник буду благодарен!

На фигуру помощнее не хватило фантазии, ну да ладно:

Код

var  Shape:Array[1..3] of TPoint; begin  Shape[1] := Point(1,1);  Shape[2] := Point(100,1);  Shape[3] := Point(100,500);  SetWindowRgn(Form1.Handle,CreatePolygonRgn(Shape,3,WINDING),true); end;

Коментарии нужны или сам разберёшся?

Yanis!
ты что! Он же даже не знает про handle(не в обиду тебе fire!). Надо-бы объяснить:

var
Shape:Array[1..3] of TPoint; - Это создает массив типа "ТОЧКА" на 3 элемента

Shape[1] := Point(1,1);
Shape[2] := Point(100,1);
Shape[3] := Point(100,500); - Тут в этот массив заносятся координаты (Point(x,y)). как видишь-
фигурка та еще

SetWindowRgn(Form1.Handle,CreatePolygonRgn(Shape,3,WINDING),true); - сам процесс
Аргументы процедуры:
Form1.Handle - объяснение, что полигон твоей форме делать!
CreatePolygonRgn(Shape,3,WINDING)- Создание полигона из массива(я тебе говорил)
true- может быть активно?

Кстати, полигон можно дать любому handle`y? Будет здорово если мой Delphi отреуголиться!!!

Это сообщение отредактировал(а) SoWa - 17.12.2004, 05:38

Может я конечно, консервативен, но помоему, программа должна быть ростой и надежной как Т-34, а неудобства с фигурной формой еще впереди (у меня такая форма медленно отрисовывалась причем это проблемы винды я так понимаю.), так что не стоит самому себе усложнять жизнь... без необходимости конечно.