无 无所居 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-11 #2 procedure TForm1.Button1Click(Sender: TObject);<br><br>begin<br> label1.Caption:=IntToStr(Screen.Width);<br> label2.Caption:=IntToStr(Screen.Height);<br><br>end;<br>
procedure TForm1.Button1Click(Sender: TObject);<br><br>begin<br> label1.Caption:=IntToStr(Screen.Width);<br> label2.Caption:=IntToStr(Screen.Height);<br><br>end;<br>
