|
|
Создаем круглую форму на 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;
Вот и все запускайте проект и наслаждайтесь результатом.
|
| Категория: Примеры на Delphi7 | Добавил: DelphiAiX (19.03.2011)
|
| Просмотров: 1136
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
