restore کردن فرم

[baboozadeh]

سلام دوستان، چجوری میشه یه فرم که minimize هست، دوباره restore کرد؟
فرض کنید میخوایم با کلیک روی آیکن برنامه در sys tray اونو restore کنیم، کد restore???
ممنون

[mzjahromi]

Form2.WindowState:=wsNormal;

[baboozadeh]

کد شمارو امتحان کرده بودم آقای جهرمی، جواب نمیده


procedure RestoreWindow;
var hParent,hChild: THandle;
begin
hChild := findWindow(nil,Pchar(TargetForm.Caption));
if hChild <> 0 then
begin
hParent := GetWindowLong(hChild,GWL_HWNDPARENT);
if hParent <> 0 then
begin
sendMessage(hParent,wm_Syscommand,sc_Restore,0);
SetForegroundWindow(hParent);
end;
end;
end ;

این کد فرم مورد نظر رو با استفاده از کپشن اش پیدا میکنه و restore میشه ولی ایرادش اینه که در صورتی که فرم اصلی برنامه hide باشه، show میکندش!!! خدا داند
مرسی

[mzjahromi]

کد شمارو امتحان کرده بودم آقای جهرمی، جواب نمیده
ولی من اون کد رو اول تست کردم.
شاید منظور شما چیز دیگه هست