Как создать круглую форму на Delphi

Опубиковано: 15.07.2008 г., автор: , просмотров: 54501

Создаем круглую форму на Delphi

Сегодня я хочу показать вам как вы с легкостью можете создать, форму нестандартного вида, например круглую.
Открываем Delphi и создаем новый проект, после ключевого слова private дописываем

procedure CreateParams(var Params: TCreateParams); override;

Жмем комбинацию клавиш Ctrl+Shift+C

Delphi генерирует пустую процедуру.
Посмотрите что получилось у меня и пропишите то что не хватает у вас.

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

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

Полный листинг процедуры OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
var
FormRgn: hRgn;
begin
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;

Вот и все запускайте проект и наслаждайтесь результатом.

До встречи www.delphiexpert.ru

P.S не забываем подписываться на бесплатную мультимедийную рассылку. Форма для подписки расположена с права и с лева.



Похожие материалы

Последние из рубрики

Платим за лайки! - Выплаты ежедневно! 13 Июн 2017 в 17:11 #
Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.

Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и зарабатывать за это деньги.

Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,

достаточно просто зарегистрироваться на нашем сервисе. > oplata-vklike.tk <

Вывод заработанных средств ежедневно в течении нескольких минут.
Dude, right on there 06 Окт 2014 в 15:57 #
Dude, right on there brtheor.
Настя 20 Фев 2013 в 00:00 #
проект не запустился выбил ошибку и антивирус обнаружил вирус в папке проекта, жаль хотелось попробывать прикольное оформление...
Олег,14лет 20 Янв 2013 в 00:00 #
я не очень понял можно по подробней =(
:(
Михаил 05 Май 2012 в 00:00 #
дааааааааа!!!!! у меня наконец получилось найти окно нужное!!!))))))

ОтменитьДобавить комментарий