delphi问题

如何让窗体由里向外慢慢张开

答案：
可以用个定时器来实现啊  如果你刚开始的窗体很小的 在变到一定大的时候把定时器再关掉  如

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form1.Width := Form1.Width + 10;
  Form1.Height  := Form1.Height  + 10;
  Form1.Left := Form1.Left - 5;
  Form1.Top := Form1.Top - 5;
  if Form1.Width > 500 then // 这里的值 看你要变多大了
    Timer1.Enabled := False;
end;

end.
用窗体渐变效果就行啊，要么就用GDI

上一个：delphi问题
下一个：Delphi简介