IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.

> Форма
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Женский

Репутация: -  0  +


Извините мне давно было любопытно форму можно сделать какую-нибудь другую - не квадратную?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 8)
сообщение
Сообщение #2


Гость






Можно... В DRKB это описывается:
VCL -> TForm -> "Формы нестандартного вида"...

Тема переезжает в Дельфи ...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Женский

Репутация: -  0  +


Извини а можешь мне статью отправить на почту nany11@rol.ru, я просто ее не могу найти, заране спасибо -smile.gif)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Вот 3 статьй, а вообще что значит "не могу найти?"

Я привел полный путь к статьям... У тебя сам DRKB есть? Вот тут ссылка на него: Drkb

Цитата
Здесь приведён полный пример того, как создать круглую форму.
Не забудьте создать TButton, чтобы окно можно было закрыть.

unit Unit1;  

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, Buttons, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen}
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public-Deklarationen}
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);

{ удаляем заголовок и рамку }
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
FormRgn: hRgn;
begin
{clear form}
Form1.Brush.Style := bsSolid; //bsclear;
{ делаем круг формы }
GetWindowRgn(Form1.Handle, FormRgn);

{ удаляем старый объект }
DeleteObject(FormRgn);
{ делаем прямоугольник формы }
Form1.Height := 500;
Form1.Width := Form1.Height;
{ создаём круглую форму }
FormRgn := CreateRoundRectRgn(1, 1, Form1.Width - 1,
Form1.height - 1, Form1.width, Form1.height);

{ устанавливаем новое круглое окно }
SetWindowRgn(Form1.Handle, FormRgn, TRUE);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.close;
end;

end.



Цитата
Как создать форму в форме элипса?

procedure TForm1.FormCreate(Sender: TObject); 
var
Region: HRGN;
begin
Region := CreateEllipticRgn(0, 0, 300, 300);
SetWindowRgn(Handle, Region, True);
end;



Цитата
Создание окон произвольной формы (Статья)

Вопрос создания непрямоугольных окон часто интересует начинающих программистов и время от времени обсуждается на форумах разработчиков в среде Delphi. А вообще, нужно ли это кому-нибудь? Ответ - да! Это уже было нужно таким известным фирмам, как Symantec (Norton Utilities, Norton CrashGuard), Microsoft (Приложение "
Часы" в Windows NT4 может принимать круглую форму, Deluxe CD Player из MS Plus! 98 имеет вид прямоугольника со скругленными краями). У Borland Jbuilder 2 в окне начальной загрузки стрела крана "выскочила" за пределы прямоугольника. Программы для видеокарт TV Capture фирмы AverMedia имитируют пульт управления. Окно переводчика Magic Goody принимает вид гуся, разгуливающего по экрану.

Список можно продолжить, а вывод такой: окно "хитрой" формы – это "изюминка" оформления Вашей программы, нечто запоминающееся, дополнительный плюс в борьбе за потенциального покупателя. Главное в этом – не переборщить. Вряд ли будет удобно работать с текстовым редактором в треугольном окне. Окна произвольной формы неплохо смотрятся при начальной загрузке (Splash) и, возможно, в качестве окна "О программе … ".
Как это делается? Средствами Delphi – достаточно просто. Приведенные ниже примеры можно также перевести в C++ Builder или Visual C++.

type 
TForm1 = class(TForm)
// Данную процедуру будем использовать для задания
// формы окна
procedure FormCreate(Sender: TObject);
protected
// Данную процедуру необходимо переопределить,
// чтобы иметь возможность перемещать окно "мышкой"
// не только за за заголовок, который в данном
// случае отсутствует
procedure WMNCHitTest(var Message: TWMNCHitTest);message WM_NCHITTEST;
private
{ Private declarations }
public
{ Public declarations }
end;


При создании окна непрямоугольной формы используются API функции

CreateEllipticRgn, CreateRectRgn, CreatePolygonRgn, CreateRoundRectRgn, CombineRgn.

procedure TForm1.FormCreate(Sender: TObject); 
var
R1, R2: HRgn;
begin
// Создаем линзу (пересечение двух эллипсов)
R1 := CreateElliPticRgn(-150,-300,363,400); // Задаем
// координаты эллипса. Верхняя левая точка формы имеет
// координаты 0,0
R2 := CreateEllipticRgn(363+150,-300,5,400);
CombineRgn(R1,R1,R2,RGN_AND); // Получаем пересечение
// Отрезаем сверху слева
R2:= CreateEllipticRgn(-40,-30,182,20);
CombineRgn(R1,R1,R2,RGN_DIFF); // Вычитаем
// Отрезаем сверху справа
R2:= CreateEllipticRgn(180,-30,363+40,20);
CombineRgn(R1,R1,R2,RGN_DIFF);
// Назначаем полученный регион форме
SetWindowRgn(Handle, R1, True);
end;


Если Вы все ввели правильно, то при запуске проекта получите окно в виде щита, как у Norton CrashGuard. Как это получилось, можно понять из схемы 1. Зеленые эллипсы при пересечении образуют линзу, красные эллипсы вычитаются.

Размер формы должен позволить разместиться на ней щиту полностью, иначе Вы получите усеченный вариант изображения.

Переопределение функции WMNCHitTest позволит перетаскивать окно, захватив его мышкой.

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest); 
begin
inherited;
Message.Result := HTCAPTION;
end;


Теперь немного усложним задачу. Создадим фигурный щит

Синие фигуры складываются, красные вычитаются. Исходный код приведен ниже:

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;

Попробуем создать что-либо еще более сложное и непохожее на щит.

procedure TForm1.FormCreate(Sender: TObject); 
var
R1,R2 : HRgn;
P : array [0..2] of TPoint;
begin
R1:= CreateEllipticRgn(135-110, 45, 135-40, 105);
// Овал, образующий ухо
R2:= CreateEllipticRgn(135+40, 45, 135+110, 105);
// Овал, образующий ухо
CombineRgn(R1,R1,R2,RGN_OR);

// Отсекаем треугольником лишнюю часть овалов,
// тем самым завершаем формирование ушей
P[0] := Point(135-140, 40);

P[1] := Point(135+140, 40);
P[2] := Point(135, 140);
R2 := CreatePolygonRgn(P, 3, WINDING);
CombineRgn(R1,R1,R2,RGN_DIFF);

// Формируем полумесяц рогов
R2:= CreateEllipticRgn(135-90, 0, 135+90, 100);
CombineRgn(R1,R1,R2,RGN_OR);

R2:= CreateEllipticRgn(135-70, -5, 135+70, 70);
CombineRgn(R1,R1,R2,RGN_DIFF);

// Формируем морду
R2:= CreateEllipticRgn(135-70, 60, 135+70, 170);
CombineRgn(R1,R1,R2,RGN_OR);


R2:= CreateEllipticRgn(135-40, 150, 135+40, 210);
CombineRgn(R1,R1,R2,RGN_OR);

// Назначаем итоговый регион нашей форме
SetWindowRgn(Handle, R1, True);

end;


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

procedure TForm1.FormCreate(Sender: TObject); 
var
R1, R2 : HRgn;
P : array [0..2] of TPoint;
X : Word;
begin
// левое верхнее крыло
R1 :=CreateEllipticRgn(Round(-Width*0.4),
0,Round(Width*0.49),Round(Height*1.1));
// правое верхнее крыло
R2 :=CreateEllipticRgn(Round(Width*0.51),
0,Round(Width*1.4),Round(Height*1.1));
CombineRgn(R2,R1,R2,RGN_OR);
// отсекаем лишнее от верхних крыльев,
// остаются линзы на пересечении эллипсов

R1 :=CreateEllipticRgn(0,Round(-Height*0.3),
Width,Round(Height*0.71));
CombineRgn(R1,R1,R2,RGN_AND);

//эллипс - основа нижних крыльев
R2 :=CreateEllipticRgn(Round(Width*0.1),
Round(Height*0.65), Round(Width*0.9), Height);
CombineRgn(R1,R1,R2,RGN_OR);
// вырезаем эллипс - разрез между нижних крыльев
R2 :=CreateEllipticRgn(Round(Width*0.3),
Round(Height*0.7), Round(Width*0.7), Round(Height*1.5));
CombineRgn(R1,R1,R2,RGN_DIFF);

// вертикальный эллипс - туловище бабочки
R2 :=CreateEllipticRgn(Round(Width*0.46),
Round(Height*0.3), Round(Width*0.54),
Round(Height*0.8));
CombineRgn(R1,R1,R2,RGN_OR);

// голова - круг; за основу берем меньшую
// из двух величин - высоты и ширины окна
X := Width;
if Height < X then X := Height;
X := Round(X/18);
R2 :=CreateEllipticRgn(Round(Width*0.5)-X,
Round(Height*0.3)-X, Round(Width*0.5)+X,
Round(Height*0.3)+X);

CombineRgn(R1,R1,R2,RGN_OR);

// левый усик
P[0] := Point(Round(Width*0.5), Round(Height*0.3));
P[1] := Point(Round(Width*0.35), Round(Height*0.01));
P[2] := Point(Round(Width*0.355)+1, 0);
R2 := CreatePolygonRgn(P, 3, WINDING);
CombineRgn(R1,R1,R2,RGN_OR);

// правый усик
P[0] := Point(Round(Width*0.5), Round(Height*0.3));
P[1] := Point(Round(Width*0.655+1), Round(Height*0.01));
P[2] := Point(Round(Width*0.65), 0);
R2 := CreatePolygonRgn(P, 3, WINDING);

CombineRgn(R1,R1,R2,RGN_OR);

// острие на крыле слева снизу
P[0] := Point(Round(Width*0.15), Height);
P[1] := Point(Round(Width*0.2), Round(Height*0.8));
P[2] := Point(Round(Width*0.3), Round(Height*0.9));
R2 := CreatePolygonRgn(P, 3, WINDING);
CombineRgn(R1,R1,R2,RGN_OR);

// острие на крыле справа снизу
P[0] := Point(Round(Width*0.85), Height);
P[1] := Point(Round(Width*0.8), Round(Height*0.8));
P[2] := Point(Round(Width*0.7), Round(Height*0.9));

R2 := CreatePolygonRgn(P, 3, WINDING);
CombineRgn(R1,R1,R2,RGN_OR);

// Назначаем полученный регион форме
SetWindowRgn(Handle, R1, True);
end;


Если грамотно разложить фигуру на элементарные составляющие, то Вам вполне по силам создать окно абсолютно любой формы. Это похоже на детскую игру "конструктор", только Ваши "кубики" намного разнообразнее.
Для завершения проекта необходимо создать фоновую картинку, которая подчеркнет границы нового окна. И обязательно установить свойство формы Scaled = False, иначе фоновая картинка и форма могут "разъехаться" при использовании нестандартных видеорежимов или стилей оформления Windows.

В заключение следует сказать, что существуют готовые компоненты и библиотеки компонент для решения подобных задач, например, CoolForm, TPlasmaForm. Однако при использовании компонент от сторонних производителей могут возникнуть проблемы лицензионности их использования и проблемы перехода на новую версию компилятора. А приведенные в данной статье примеры компилируются без изменений в исходном коде на Borland Delphi 3.0 - 7.0 и, вероятно, будут совместимы с последующими версиями.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Женский

Репутация: -  0  +


Спасибо за помощь))) я скачаю его себе))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






извини я все сделала первым сособом она почему то так и осталась квадратной?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


Может, прикрепишь проект? (ехе-шник не надо)


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Не имею понятия, почему у тебя не сработало... Вот мой проект:
Прикрепленный файл  A_form.rar ( 2.39 килобайт ) Кол-во скачиваний: 413


Вот что выходит:
Прикрепленное изображение
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Новичок
*

Группа: Пользователи
Сообщений: 21
Пол: Женский

Репутация: -  0  +


да твой работает спасибо
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 21:26
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name