delphi7 怎么全屏显示一个图片

Question

在delphi7环境下，怎么样实现点击一个按钮，全屏显示一个图片，要求图片比超出窗体，全屏显示整个电脑屏幕~delphi ，图片全屏显示delphi全屏显示图片

Answer 1

procedure Tfrm.btn1Click(Sender: TObject);
begin
  if Self.WindowState = wsMaximized then
  begin
    Self.WindowState := wsNormal;
    Self.BorderStyle := bsSizeable;
  end
  else
  begin
    Self.WindowState := wsMaximized;
    Self.BorderStyle := bsNone;
  end;
end;

Answer 2

不好意思，我可能说法有点问题，我想要的效果是让图片全屏显示，但是这样的全屏form的四边是不是还存在显示，而且电脑下端的任务栏，开始菜单，时间等依然显示~

Answer 3

unit Unit13;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm13 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
    L, T, W, H : integer;
  public
    { Public declarations }
  end;var
  Form13: TForm13;implementation{$R *.dfm}procedure TForm13.btn1Click(Sender: TObject);
begin
  if Self.BorderStyle = bsNone then
  begin
    Showwindow(Findwindow('Shell_TrayWND',nil), SW_SHOWDEFAULT);
    Self.Left := L;
    self.Top := T;
    Self.Width := W;
    self.Height := H;
    Self.BorderStyle := bsSizeable;
  end
  else
  begin
    Showwindow(Findwindow('Shell_TrayWND',nil), SW_HIDE);    L := Self.Left;
    T := self.Top;
    W := Self.Width;
    H := self.Height;    Self.width:=screen.width;
    Self.height:=screen.height;
    Self.Top := 0;
    Self.Left := 0;
    Self.BorderStyle := bsNone;
  end;
end;end.

Answer 4

图片控件有一个属性：CLIENT
这个是最大化的
无论是　窗体怎么更改大小，图片都会最大化在这个窗体中的

Answer 5

6楼代码实现了窗体全屏功能
窗体上的Image显示问题, 你自己设置就行

Answer 6

您说的是不是image的stretch属性啊，我设置成true了，图片还是显示在左上角，还是其他什么内容需要设置呢？

Answer 7

谢谢您，是再加行image代码就好~