摘要： procedure TForm1.FormCreate(Sender: TObject);begin Visible := True; //把窗体显示出来 ShowMessage('窗体已经显示出来了');end; 阅读全文