Текущий архив: 2002.06.03;
Скачать: CL | DM;

Вниз

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

← →
skywalker ©   (2002-03-11 17:55) [0]

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

---

← →
Devid ©   (2002-03-11 18:01) [1]

Form1.formstyle := fsNormal;

---

← →
Song ©   (2002-03-11 18:27) [2]

StayonTop

---

← →
ATLANTIDO ©   (2002-03-12 15:16) [3]

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

---

← →
skovorodka ©   (2002-03-28 18:56) [4]

application.bringtofront

---

← →
Pupsik   (2002-04-01 10:28) [5]

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

---

← →
amamed_3071 ©   (2002-04-01 11:24) [6]

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

---

← →
Donal_Graeme   (2002-04-01 17:16) [7]

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

---

← →
Dimka Maslov ©   (2002-04-01 19:41) [8]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.06.03;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.012 c