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;
onshow
最新推荐文章于 2023-11-15 23:54:54 发布