| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как поднять форму на передний план?

skywalker ©   (2002-03-11 17:55:00) 

ну и все, собственно.....

---

Dimka Maslov   (2002-04-01 19:41:00) [1]

Лично я пользуюсь такой процедурой

procedure JumpUp;
var
Info:TAnimationInfo;
Animation:LongBool;
hApp: hWnd;
begin
hApp:=Application.Handle;
if IsIconic(hApp) then Application.Restore else begin
SetActiveWindow(hApp);
Info.cbSize:=SizeOf(Info);
if SystemParametersInfo(SPI_GETANIMATION,SizeOf(Info),@Info,0)
then Animation:=Info.iMinAnimate<>0 else Animation:=False;
Info.iMinAnimate:=nFalse;
SystemParametersInfo(SPI_SETANIMATION,SizeOf(Info),@Info,0);
ShowWindow(hApp, SW_MINIMIZE);
ShowWindow(hApp, SW_RESTORE);
Info.iMinAnimate:=integer(Animation);
SystemParametersInfo(SPI_SETANIMATION,SizeOf(Info),@Info,0);
end;
Application.MainForm.Repaint;
end;

---

Donal_Graeme   (2002-04-01 17:16:00) [2]

If IsIconic (Handle) then OpenIcon (Handle);
SetForegroundWindow (Handle);

---

amamed_3071   (2002-04-01 11:24:00) [3]

ShowWindow(HandleWindow,SHOW_OPENWINDOW);
SetForegroundWindow(HandleWindow);

---

Pupsik   (2002-04-01 10:28:00) [4]

Удалено модератором

---

skovorodka   (2002-03-28 18:56:00) [5]

application.bringtofront

---

ATLANTIDO   (2002-03-12 15:16:00) [6]

<< Эти варианты не всегда работают
Думаю, это получше :
SetWindowPos(Form1.Handle, hwnd_TopMost, Form1.Left, Form1.Top, Form1.Width, Form1.Height, swp_noActivate);

---

Song   (2002-03-11 18:27:00) [7]

StayonTop

---

Devid   (2002-03-11 18:01:00) [8]

Form1.formstyle := fsNormal;

---

Наверх