Здравствуйте, в данной статье хотел бы рассказать как я реализовал в одном своем проекте всплывающее окно. Да я знаю есть достаточно компонентов, которые позволяют сделать всплывающее окно, а также навести красоту в этом, но мне не надо было наводить красоту, обычное окно, которое будет информировать пользователей о чем-то. Может это метод, который делал я не совсем правильный, но я как-то так реализовал это. Использовал я в первую очередь TTimer, ну а остальное только на таймере я подвигал окно, конечно вместо таймера можно было использовать цикл, или что-то еще, но мне почему-то приглянулся он. На форме у меня
- TTimer
- TLabel
Ну и конечно надо настроить как-то более-менее красиво нашу форму, чтобы было похоже на красивое окно, можно конечно в дальнейшем свой дизайн придумать, нарисовать и украсить, но пока что сделаем ее чуть-чуть прозрачной и просто изменим стиль нашей формы, кроме этого, мы на нашем TLabel напишем что-нибудь, например, «Hello World» =).
Давайте поставим свойство формы AlphBlend в True, а AlphaValue в 180 установим. В свойстве Caption уберем надпись, а в свойстве BorderStyle установим в bsToolWindow, установим нужный размер нашей формы в нужный, а затем на событии OnShow необходимо нам написать первоначальное установление появление окна, по идее все всплывающие окна появляются рядом с треем. Но нам необходимо, чтобы наше окно первоначально появилось ниже панели задач, а из-за панели задач затем уже будет появляться наше окно — всплывать, итак на событии OnShow написан следующий код
procedure TForm1.FormShow(Sender: TObject);
begin
Left:=Screen.Width-Width;
Top:=Screen.Height-Height+90;
end;
Таким образом у нас окно появиться ниже панели задач и как раз в правой стороне экрана и таким образом будет появляться вверх. Теперь нам необходимо сделать якобы движение окна, то есть эффект его появления. Для этого в свойстве TTimer - Interval установим в 1 и на событие OnTimer напишем следующий код
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Top:=Top-1;
if Top=Screen.Height-Height-30 then
Timer1.Enabled:=False;
end;
Тут если окно полностью появилось, то мы останавливаем наш таймер. Можно добиться и другого эффекта, просто уберем TTimer и на OnShow формы напишем следующий код
procedure TForm1.FormShow(Sender: TObject);
begin
Left:=Screen.Width-Width;
Top:=Screen.Height-Height-30;
AnimateWindow(Handle,500,AW_CENTER or AW_SLIDE);
end;
Достаточно неплохо, так что можно делать и свои всплывающие окна, только их приукрасить
| В настоящее время очень популярна аренда квартир, дач, участков и так далее. Это очень удобно, потому что снимается это все на определенное время. Квартиры в Одессе можно снять на неопределенный срок и за очень умеренные цены, а также очень комфортабельную квартиру. |
Два вида окон с исходниками можно скачать тут
Автор статьи - Andrey53
Метки: TTimer, всплывающие окна, окна
Loading ...
немножко по сабжу:
http://blog.karelia.ru/teran/?tag=popups
AnimateWindow — хорошая функция
http://www.delphisources.ru/pa.....indow.html
Посмотрите еще на такую реализацию
http://narod.ru/disk/204193670.....ow.7z.html
ter да там красивые всплывающие окна реализованы
Sergey тоже неплохо, спасибо всем
Спасибо, то что надо
Спасибо за статью,но я не как не могу понять поместил такое вспыхивающее окно на кнопку как Form14.Show(); ,а окно срабатывает
только один раз,после закрытия формы Form14 и при нажатии на кнопку,выезжает только верхушка и всё.Подскажите пожалуйста что сделать.
можете скинуть Ваш полностью проект, можно для всплывающих окон воспользоваться готовыми компонентами
Что у меня получилось:
В Project1 пишем:
program Project9;usesForms,
Unit9 in 'Unit9.pas' {Form9};
{$R *.res}beginApplication.Initialize;
Application.MainFormOnTaskbar := False;//Скрываем окно из панели задач.
Application.CreateForm(TForm9, Form9);
Application.Run;
end.
В Unit1 пишем:
implementation{$R *.dfm}procedure TForm1.FormActivate(Sender: TObject);begin
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE, //Скрываем окно из панели задач.
GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW);
end;
procedure TForm9.FormCreate(Sender: TObject);begin
Form1.Hide;
Trayicon1.Visible:= True; //Отображаем иконку в трее(компонент tray icon).
end;
procedure TForm1.FormShow(Sender: TObject);begin
Left:=Screen.Width-Width;
Top:=Screen.Height-Height+150;
end;procedure TForm1.Timer1Timer(Sender: TObject);begin
Top:=Top-1;SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); //Не перемещать мышкой.
if Top=Screen.Height-Height-30 then
begin
Timer1.Enabled:=False;
end;
end;
procedure TForm1.TrayIcon1Click(Sender: TObject);begin
Form1.Show;
end;
end.
end.
Прошу прощения за коммент в строке:
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); //Не перемещать мышкой.Правильный :
SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); //Поверх всех окон.Чтобы окно не перемещалось необходимо установить свойство BorderStyle в bsNone или в bsSingle.
спасибо за корректировку