Форум: "WinAPI";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.06.03;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.006 c