问个简单的问题(100分) 我想实现 按下Button1后 出来个FORM(没有边框的那种) 然后FORM里面有个Lalel1显示WELCOME 3秒后Form渐渐消失 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 WelFm:=TWelFm.Create(Application)WelFm.Show;WelFm不要自动动创建然后在WelFm里放个timer 时间间隔为3000timer事件里的代码为WelFm.Close;没有测试过.. var Test: TForm2;procedure TForm1.Button1Click(Sender: TObject);begin Test := TForm2.Create(Application); Test.Show; SetWindowLong(Test.Handle, GWL_STYLE, GetWindowLong(Test.Handle, GWL_STYLE) xor WS_OVERLAPPEDWINDOW); Timer1.Enabled := True;end;procedure TForm1.Timer1Timer(Sender: TObject);begin AnimateWindow(Test.Handle,1000,AW_HIDE or AW_BLEND); Test.Close;end; procedure TForm1.Button1Click(Sender: TObject);begin with TForm2.Create(nil) do begin Show; end;end;form2为无边框窗体可以在form2上放置一个timer设置为3秒,然后close 无边框窗体设定form属性中borderstyle=bsNone 乖乖,都被你们给抢先了。dbmh的比较实在一点。入门级。呵呵 Form1:unit Unit1;interfaceuses 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 with Form2 do begin ShowModal; Free; end;end;end.Form2:unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm2 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2; i: Integer;implementation{$R *.dfm}procedure TForm2.Timer1Timer(Sender: TObject); begin Inc(I); if I > 2 then self.Close;end;end. 初学者的悲哀 发布一免费视频控件. 和一个自称可以搞到1月8号4级考试答案的人的聊天记录!(惊爆4级舞弊内幕) 我是一个初学者希望各位高手在这方面多给予我指点 请问有什么控件可以很快的将网页文件读进来显示出来 某个字段所有记录求和的问题。 我应该怎么样才能列出本机的网卡数目呢,包括网卡名称? 急,delphi生成的apache模块程序(*.so), 怎么个用法啊?怎么看到我的编的东西的运行效果?? 请教delphi中有关sql语句的问题 急!!!怎么打开指定格式的文件? webservices运行一段时间后报webappdbg错误 这样的SQL语句只能作成存储过程执行?
WelFm.Show;WelFm不要自动动创建
然后在WelFm里放个timer 时间间隔为3000
timer事件里的代码为WelFm.Close;没有测试过..
var
Test: TForm2;procedure TForm1.Button1Click(Sender: TObject);
begin
Test := TForm2.Create(Application);
Test.Show;
SetWindowLong(Test.Handle, GWL_STYLE, GetWindowLong(Test.Handle, GWL_STYLE) xor
WS_OVERLAPPEDWINDOW);
Timer1.Enabled := True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
AnimateWindow(Test.Handle,1000,AW_HIDE or AW_BLEND);
Test.Close;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(nil) do
begin
Show;
end;
end;form2为无边框窗体可以在form2上放置一个timer设置为3秒,然后close
form属性中borderstyle=bsNone
unit Unit1;interfaceuses
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
with Form2 do
begin
ShowModal;
Free;
end;
end;end.Form2:
unit Unit2;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm2 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;
i: Integer;implementation{$R *.dfm}procedure TForm2.Timer1Timer(Sender: TObject);
begin
Inc(I);
if I > 2 then
self.Close;
end;end.