Activate و نمایش برنامه Minimize شده

چطور می توان یک window یا یک فرم را در حالی که خود برنامه minimize شده باشد به user نشان داد. فرض کنیم برنامه minimize شده و user در حال کار کردن با اینترنت اکپلورر هست و می خوهیم User را از روی دادن یک Event مطلع کنیم در ضمن نمی خواهیم از گزینه StayOnTop استفاده کنیم چون ممکن است user نخواهد در آن لحظه به window عکس العمل نشان دهد و با click روی Explorer بخواهد فعلا به کار خود ادامه دهد. من یه چیزی تو MSDN پیدا کردم(SetForegroundWindow) ولی 10000 تا شرط و شروط و اما اگر داره که نتونستم راش بندازم. ممنون میشم اگه کسی بتونه کمک کنه.

نقل قول:

---

نوشته شده توسط Delphi Coder

چطور می توان یک window یا یک فرم را در حالی که خود برنامه minimize شده باشد به user نشان داد. فرض کنیم برنامه minimize شده و user در حال کار کردن با اینترنت اکپلورر هست و می خوهیم User را از روی دادن یک Event مطلع کنیم در ضمن نمی خواهیم از گزینه StayOnTop استفاده کنیم چون ممکن است user نخواهد در آن لحظه به window عکس العمل نشان دهد و با click روی Explorer بخواهد فعلا به کار خود ادامه دهد. من یه چیزی تو MSDN پیدا کردم(SetForegroundWindow) ولی 10000 تا شرط و شروط و اما اگر داره که نتونستم راش بندازم. ممنون میشم اگه کسی بتونه کمک کنه.

---

چه شرطی
این جوری ازش استفاده میکنید??

SetForegroundWindow(Form1.Handle);

معمولا برای اینجور کارها کاری میکنن که پنجره در حالت Minimaz
در همون حالت شروع کنه به چشمک زدن. بهتر از این روش استفاده کنید
از تابع FlashWindowEx
استفاده کنید

ممنون از راهنماییتون. ولی قبلا تست کردم جواب نداد. عملا کار FlashWindow رو انجام میده.

برای اینکه بتونید پنجره کوچک شده رو بزرگ کنید باید از طریق خود برنامه اصلی این کار انجام بشه.
اگر این کار رو برای اینکه هنگامی که نسخه دومی از برنامه شما میخواد اجرا شه نسخه قبلی رو بیاره بالا انجام میدید، دستور SetForegroundWindow یا حتی Application.BringToFront رو بعد از اینکه تو نسخه قبلی اجرا شده Application.Restore رو اجرا کردید فراخوانی کنید.

قبلا همچین مشکلی داشتم که اینطوری حلش کردم:

procedure ForceForegroundWindow(hwnd: THandle);

var

  hlp: TForm;

begin

  hlp := TForm.Create(nil);

  try

    hlp.BorderStyle := bsNone;

    hlp.SetBounds(0, 0, 1, 1);

    hlp.FormStyle := fsStayOnTop;

    hlp.Show;

    mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);

    mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);

    SetForegroundWindow(hwnd);

  finally

    hlp.Free;

  end;

end;



// Uses

begin

  if not SetForegroundWindow(Form1.Handle) then ForceForegroundWindow(Form1.Handle);

end;

یا حق ...

حمید جان مرسی. واقعا دست خوش. با اینکه خلاف قانون اینجاست ولی نمی شد ازت با Text تشکر نکنم. اینو من خیلی وقته دنبالش بودم. هر چند با حقه و کلک انجام شده ولی خب کار منو که راه انداخت. بازم ممنون.

ببخشید ولی حالا یه مشکل جدید درست شد وقتی User میاد این window رو میبنده بعدش صفحه Editor (فرم اصلی ) برنامه هم یادش میاد که بپره بالای Explorer

با سلام خدمت شما
مثلا شما می خواهید برنامه بعد از 10 ثانیه اجرا یه پیغام بده یک تایمر گذاشته و دستورات زیر را در آن کپی نمائید.
Form1.FormStyle:= fsStayOnTop;
ShowMessage('salam');
Timer2.Enabled:=true;
Timer1.Enabled:=false;
و در تایمر دو نوشته زیر را بگذارید
Form1.FormStyle:= fsNormal;
Timer2.Enabled:=false;
و برنامه را اجرا کنید.

عالی بود ...ممنون دوست گرام