جلوگیری از مینیمایز شدن فرم

[hamidoooo]

میشه اساتید لطف کنن بگن که چه کار میشه کرد که وقتی روی آیکن شو دسکتاپ توی تسکبار کلیک شد فرم مون مینیمایز نشه؟
ممنون :oops:

[Delphi_Developer]

میشه یه کلک رشتی سرش بزنی ! :sunglass:
یه تایمر تو فرمت بذار و Interval اون رو برابر قرار بده >>> حالا تو Event تایمر کد زیر رو وارد میکنی :


Form1.show;

:D :D :D البته این یه نوع کار بچه بازیه --- اینو گفتم که اگه دید راه بهتری پیدا نکردی از این روش استفاده کنی !.

[koosha system]

یک ApplicationEvents تو فرم بزار بعد OnMinimize رو
Form1.WindowState:=wsNormal قرار بده

[محمد میرمصطفی]

ببخشید که به زبان BCB هست. آخه من دلفی بلد نیستم. اینو تو OnCreate بنویس:
SetWindowLong( Handle, GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) & ~WS_MINIMIZEBOX );
SetWindowLong( Application->Handle, GWL_STYLE, GetWindowLong( Application->Handle, GWL_STYLE ) & ~WS_MINIMIZEBOX );

[Hamid_PaK]

می تونی از این استفاده کنی . . .



...
public
procedure WMSysCommand
(var Msg: TWMSysCommand) ;
message WM_SYSCOMMAND;
...

implementation
...
procedure TForm1.WMSysCommand;
begin
if Msg.CmdType <> SC_MINIMIZE then
DefaultHandler(Msg) ;
end;


فقط روی فرم . . ..
:wink:

[hamidoooo]

واقعا از همگی ممنون و متشکرم