有没有办法将已被拉伸过后的显示屏变小啊?就是当我们将它的DisplayRect变为全屏的话,它的DisplayRect.Right=800,DisplayRect.Left=0;但是这个不能赋值,我想把它变回原来的大小,有没有办法实现呢?
解决方案 »
- 上海耀华称重仪表相关开发
- Delphi6:使用TQuickRep设计报表打开时出现以下错误,不知什么原因,请高手指点,解决马上结帖。
- 有没有类似的控件,它的实现原理是什么?
- 多个Edit如何作
- 有谁知道Delphi7 Studio和Delphi7 Enterprise有什么不同?Studio的版本哪里能够下载?
- 怎样用Delphi做串口通讯程序。请给指条路啊!急!v
- 我的数据是用listview 显示的 ,如何把listview里的数据用Qreport 打印出来,
- 三层模式数据库开发问题 ???
- 一个奇怪的问题,关于Controls属性
- delphi的database..
- [email protected]过来接分!
- 有谁能帮我吗?在线等待!谢谢
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Top := 0;
Form2.Left := 0;
Form2.Width := Screen.Width;
Form2.Height := Screen.Height;
Form2.ShowModal;
end;end.
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm2 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Top := 10;
Form2.Left := 10;
Form2.Width := 100;
Form2.Height := 100;
Form2.Close;
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm2 = class(TForm)
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.FormClick(Sender: TObject);
begin
Close;
end;end.