摘要:
this.WindowState = FormWindowState.Minimized;最小化this.WindowState = FormWindowState.Maximized;最大化 阅读全文
摘要:
procedure TForm1.SpeedButton2Click(Sender: TObject);beginsendmessage(form1.WindowHandle,WM_SYSCOMMAND,SC_ICON,0);//窗体最小化 任务栏中end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowState := wsMaximized;//窗体最大化end;procedure TForm1.SpeedButton2Click(Sender: TObject);beginform1.WindowS 阅读全文
摘要:
Var CRect:TRect; Width,Height:integer;Begin CRect:=Rect(10,10,50,60); Width:=WidthOf(CRect);//取宽度 Height:=HeighthOf(CRect);//取高度End; 阅读全文