Изменение стандартной формы

[qwerra]

Здравствуйте помогите пожалуйста...мне нужно изменение стандартной формы...

[Neeter]

Используйте AlphaControls: http://www.alphaskins.com/index_rus.php

[MaTBeu]

А конкретнее ничего сказать не можете? Это всеравно, что я скажу "Мне нужно ололо".

[qwerra]

Воть так вот надо...))помогите плиз....

[Vladya]

что бы сделать так как на вашей картинке, вам наверное нужно читать о прозрачности определенных частей формы. Или сделать форму прозрачной и как фон поставить имейдж и туда такую обрезанную картинку, или же можно скачать набор компонентов Jadi и ищите там, там есть определенный компонент, можно менять его форму и размер, компонент предназначен для того что бы сделать некоторые места на форме прозрачными, жаль не помню как он называется а искать, если честно, то лень, их же очень много...

[qwerra]

to Vladya

можно скачать набор компонентов Jadi и ищите там, там есть определенный компонент

мы не проходили дополнительные компоненты и утилиты для дельф,в классе у нас стоит 5-я версия без дополнений,дома я юзаю 7-ю тут наверно чтото другое

[Vladya]

Ну тогда делайте на Image, если немножко потрудиться можно сделать очень даже симпатичную формочку. Вот сами посмотрите, я когда-то делал в техе.

[qwerra]

to Vladya
Большое спс,буду пытаца)
ЗЫ.
Вроде у тя хакерская ава)) ?

[Greblin]

Это делается при помощи так называемых регионов. Ловите примерчик из DRKB, я думаю его хватит чтобы разобраться, там всё простенько. Соответственно для своей формы рассчитаете, что надо отрезать от прямоугольника, чтобы получить требуемую форму

procedure TForm1.FormCreate(Sender: TObject);
var
R1,R2 : HRgn;
P : array [0..2] of TPoint; 
// Массив для создания полигона
begin
  // Создаем начальный прямоугольник
  R1 :=CreateRectRgn(0,0,270,233);
  // Отрезаем сверху слева
  R2:= CreateEllipticRgn(-20,-20,135+5,20);
  CombineRgn(R1,R1,R2,RGN_DIFF);
  // Отрезаем сверху справа
  R2:= CreateEllipticRgn(135-5,-20,270+20,20);
  CombineRgn(R1,R1,R2,RGN_DIFF);
  // Отрезаем левый бок
  R2:= CreateEllipticRgn(-15,10,8,233);
  CombineRgn(R1,R1,R2,RGN_DIFF);
  // Отрезаем правый бок
  R2:= CreateEllipticRgn(270-7,10,270+16,233);
  CombineRgn(R1,R1,R2,RGN_DIFF);
  // Добавляем овал снизу
  R2:= CreateEllipticRgn(0,150,270,320);
  CombineRgn(R1,R1,R2,RGN_OR);
  // Добавляем острие (треугольник) снизу
  P[0] := Point(135-40, 310);
  P[1] := Point(135+40, 310);
  P[2] := Point(135, 335);
  R2 := CreatePolygonRgn(P, 3, WINDING);
  CombineRgn(R1,R1,R2,RGN_OR);
  // Назначаем итоговый регион нашей форме
  SetWindowRgn(Handle, R1, True);
end;

Советую почитать в DRKB, там эта тема очень хорошо освещена

[qwerra]

Классная форма..спс большое)