窗口在中英:form.position:=poScreenCenter用一长gif图,一个timage,用align设为alclient;窗口设为最大化就可以了
解决方案 »
- 自制控件有一个属性是TLitView,删除TLitView时出错。
- 邹大哥在吗/
- TSocketServer,TClientSocket难题
- 李维说话真哆嗦,从xzgyb (老达摩) 的帖子可以看得出来!
- 如何把WINDOWS某一文件夹里的所有文件的文件名生成一张数据表
- 求:Greatis Form Designer 源代码!!!,急急急
- 在HOSTS 文件增加指定记录。(记录在程序内添加)
- 在Timage中加入一个Onmouseleave事件,但老是出错,帮我看看吧
- 关于播放器的初级问题
- 请问一下,D6做查询显示什么控件最方便?
- 在一个工程中怎样加入外部的.pas和.dfm文件呢??
- 如何判断一个程序是否已死了(象2000中的任务管理器!)
begin
//也可以直接属性
Position := poDesktopCenter;
Image1.Align := alClient;
Image1.Stretch := True;
end;
begin
//也可以直接属性
Position := poDesktopCenter;
Image1.Align := alClient;
Image1.Stretch := True;
end;
begin
//也可以直接属性
Position := poDesktopCenter;
Image1.Align := alClient;
Image1.Stretch := True;
end;
设一张图为背景,始终充满屏幕,随屏幕分辨率拉伸,缩小:
Form2.Align := alClient;
Form2.BorderStyle := bsNone;
Form2.Image1.Align := alClient;
Form2.Image1.Stretch := True;
Form2.Image1.Picture设置为你的图片;
Form2.Visible := true;
Form1.Position设为 poScreenCenter,不会受分辨率的影响,
你可以试试
procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized;
end;全FORM显示图像
将IMAGE控件里属性里的align设置为alclient,STRETCH设置为true;