| Статистика | 
|
|
Каталог статей
Создаем круглую форму на 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;
Вот и все запускайте проект и наслаждайтесь результатом.
|
|
|
Просмотров: 462
6
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
