onshow

来源:互联网 发布:linux 网络配置 详细 编辑:程序博客网 时间:2024/06/18 15:50

procedure TForm1.FormShow(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
close;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Brush.Style:=bsclear;
end;

原创粉丝点击