مخفی یا ظاهر ساختن عنوان فرم

Procedure Hide_ShowCaption(fForm:Tform;fHide:Boolean);
var
  Save:LongInt;
Begin
  If fform.BorderStyle=bsnone then exit;
  Save:=GetWindowLong(fform.Handle,gwl_Style);
  If Fhide then begin
    If (Save and Ws_Caption )=ws_Caption then begin
      Case fform.BorderStyle of
        bsSizeable,
        bsSingle:
          SetWindowLong(fform.Handle,gwl_style,
                        save and (not (ws_Caption)) or ws_Border);
        bsDialog:
          SetWindowLong(fform.Handle,gwl_style,
                        save and (not (ws_Caption)) or
 			DS_MODALFRAME or ws_DlgFrame);
      end;
      fform.Height:= fform.Height-GetSystemMetrics(sm_CyCaption);
      fform.Refresh;
    end;
  end else begin
    If (Save and Ws_Caption )=ws_Caption then begin
      Case fform.BorderStyle of
        bsSizeable,
        bsSingle:
          SetWindowLong(fform.Handle,gwl_style,
                        save or ws_Caption or ws_Border);
        bsDialog:
          SetWindowLong(fform.Handle,gwl_style,
                        save or ws_Caption or 
			DS_MODALFRAME or ws_DlgFrame);
      end;
      fform.Height:= fform.Height+GetSystemMetrics(sm_CyCaption);
      fform.Refresh;
    end;
  end;
end;

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: