Minimized بدون تایمر

[AliReza Vafakhah]

سلام دوستان

می خواستم بدونم آیا راهی هست که بدون استفاده از تایمر تشخیص داد چه موقع پنجره مینیمایز (Minimized)شده؟

اگر هست به چه شکل

با تشکر

[mafazel]

type
TForm1 = class(TForm)
....
private
{ Private declarations }
procedure WMSysCommand(var Message: TMessage);message WM_SYSCOMMAND;
public
{ Public declarations }
end;
........
procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if Message.WParam=SC_MINIMIZE then ShowMessage('Minimizing...');
inherited;
end;

[AliReza Vafakhah]

دوست عزیز ممنون

فقط میشه یه توضیحی درباره ساختار پروسیجر بدی و نقش message که به چه نهوی فراخوانی می شوند


در خود پروسیجر هم از inherited استفاده کردید ، این چه عملی انجام میده (من که پاک کردم دیگه برنامه ام خاصییت Enable نداشت ، چرا؟)

از کمکتون ممنونم