Mask
پنج شنبه 01 دی 1390, 18:31 عصر
با سلام
با کد زیر کپشن فرم رو بر میدارم . اما نمیدونم چرا وقتی میخام کپشن رو بر گردونم مشکل داره.
اگه دوستان یه نگاه بندازند ،خیلی خوبه.
ممنون.
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
Hide_ShowCaption(Form1,False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Hide_ShowCaption(Form1,True);
end;
با کد زیر کپشن فرم رو بر میدارم . اما نمیدونم چرا وقتی میخام کپشن رو بر گردونم مشکل داره.
اگه دوستان یه نگاه بندازند ،خیلی خوبه.
ممنون.
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;
procedure TForm1.Button1Click(Sender: TObject);
begin
Hide_ShowCaption(Form1,False);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Hide_ShowCaption(Form1,True);
end;