摘要:
this.WindowState = FormWindowState.Minimized;最小化this.WindowState = FormWindowState.Maximized;最大化 阅读全文
posted @ 2011-04-06 12:31
许明吉博客
阅读(615)
评论(0)
推荐(0)
摘要:
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 阅读全文
posted @ 2011-04-06 12:23
许明吉博客
阅读(14423)
评论(0)
推荐(0)
摘要:
Var CRect:TRect; Width,Height:integer;Begin CRect:=Rect(10,10,50,60); Width:=WidthOf(CRect);//取宽度 Height:=HeighthOf(CRect);//取高度End; 阅读全文
posted @ 2011-04-06 09:46
许明吉博客
阅读(1189)
评论(0)
推荐(0)
浙公网安备 33010602011771号