как сделать нестандартную форму

[steck]

Здраствуйте!!!
у меня такой вопрос: как зделать нестандартную форму например треугольную или чтоб внутри формы была дыра ?

[НЕ_АЙС]

У формы меняешь значения:
BorderStyle в bsNone
Color в clFuchsia
TransparentColor в True
TransparentColorValue в clFuchsia
Добавляешь Image1 с рисунком твоей будущей формы.
Всё!!!

[steck]

а как с параметрами бордер стайл -bsnone можно мышай перемещать форму

[mrandrey]

Так будет правильнее, SF_RgnWindow устанавливает форму
например
SF_RgnWindow(sender,SF_RGN_OnlyButt on(sender));
остануться только контрол элементы
розбирайся:

unit SuperForm;
interface
uses forms,windows;
//const
Function SF_RGN_OnlyButton(sender:tObject):Thandle;//Определить контрольные элементы
Function SF_RGN_Tile(sender:tObject):Thandle; //Определить заголовок
Function SF_RGN_Border(sender:tObject):Thandle; //Определить обрамление
Procedure SF_RgnWindow(Sender:Tobject;Rgn:THandle);//Установить форму
Function SF_RgnToHandle(Rgn:array of tpoint):thandle;//Определить с массива точек (по типу Poligone)
Function SF_CombineRGN(Rgn1,Rgn2:thandle;Mode:byte):thandle;//комбинировать два обрезка
Function SF_RectRGN(x1,y1,x2,y2:integer):thandle;//Определить прямоугольник
           

implementation

Function SF_RGN_OnlyButton;
var
  Rgn: THandle;
  X,Y, I: Integer;
begin
with (sender as tform) do
 begin
 // определяем относительные координаты клиентской части
 X:= (Width - ClientWidth) div 2;
 Y:= Height - ClientHeight -X;
 // создаем регион для всей формы
 result:= CreateRectRgn(0, 0, 0,0);
 // теперь добавляем к FullRgn регионы каждого контрольного элемента
 for I:= 0 to ControlCount -1 do
  with Controls[I] do
   begin
   Rgn:= CreateRectRgn(X+Left,Y+Top,X+Left+Width,Y+Top+Height);
   CombineRgn(result, result, Rgn, rgn_Or);
   end;
 end;
end;
Function SF_RGN_Tile(sender:tObject):Thandle;
var X,Y: Integer;
Begin
with (sender as tform) do
 begin
 X:=(Width - ClientWidth) div 2;
 Y:=Height - ClientHeight - X;
 result:=CreateRectRgn(x, x,Width-x,Height-ClientHeight-x);
 end;
end;
Function SF_RGN_Border(sender:tObject):Thandle;
var X,Y: Integer;
Begin
with (sender as tform) do
 begin
 X:=(Width - ClientWidth) div 2;
 Y:=Height - ClientHeight -X;
 result:=CreateRectRgn(0,0,Width, Height);
 SF_CombineRGN(result,CreateRectRgn(X,x,X+ClientWidth,Y+ClientHeight),4);
 end;
end;
Function SF_CombineRgn;
begin
CombineRgn(Rgn1, Rgn1, Rgn2, Mode);
result:= Rgn1;
end;
Procedure SF_RgnWindow(Sender:Tobject;Rgn:THandle);
begin
with (sender as tform) do
SetWindowRgn(Handle, Rgn, True);
end;
Function SF_RgnToHandle(Rgn:array of tpoint):thandle;
begin
result:=CreatePolygonRgn(rgn,length(rgn),1);
end;
Function SF_RectRGN(x1,y1,x2,y2:integer):thandle;
begin
result:=CreateRectRgn(x1,y1,x2,y2);
end;
end.

[НЕ_АЙС]

to mrandrey:
Интересно чем же правильней. Результат один и тот же, так зачем писать больше))
to steck:
Форму перетаскивать так:
Ставишь для твоего рисунка, который у тебя повторяет очертания формы обработчик MouseDown такого вида:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(WM_SysCommand,$F012,0);
end;

И всё...двигай сколько душе угодно.
Обработчик можно поставить не только для рисунка, но например для панельки на форме и таскать форму за панельку)

[mrandrey]

а правильней тем, что попробуй свой вариант, ну скажем на Win 98 и увидишь что выйдет!! Да и заголовок иногда нужен.
А если форму менять нужно раз 15, что 15 картинок за собой тянуть?

[Shuraken]

procedure TForm1.FormCreate(Sender: TObject);
var
hRgn1, hRgn2: Cardinal;
begin
ClientWidth := ClientHeight;
hRgn1 := CreateEllipticRgn(0, 0, ClientWidth, ClientHeight); //Первый эллипс, все параметры - координаты начала и конца отрисовки
hRgn2 := CreateEllipticRgn(ClientWidth div 2 - 100, ClientHeight div 2 - 100, ClientWidth div 2 + 100, ClientHeight div 2 + 100);
CombineRgn(hRgn1, hRgn2, hRgn1, RGN_XOR); //объединяем два региона, вычитая второй из первого и помещая результат в первый
SetWindowRgn(Handle, hRgn1, true); // выводим результат
end;

В результате получается грамотный бублик

[НЕ_АЙС]

to mrandrey:
Ну 98, слава богу, сейчас за редким исключением только в страшном сне увидишь, а вот с твоим вариантом попробуй сделать действительно сложную форму. С моим вариантом это дело пяти секунд.

[zetrix]

Есть такая вещь: FormRGN - набор компонентов, облегчающих работу с регионом самой формы и её заголовка. (В архиве набор компонентов, инструкция, хелп, примеры)

[steck]

а чё удобная вёщь