procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBox(handle,'这是警告文字','警告框',MB_OKCANCEL+MB_ICONWARNING);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
MessageBox(handle,'这是出错文字','出错框',MB_OKCANCEL+MB_ICONERROR);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
MessageBox(handle,'这是询问文字','询问框',MB_YESNO+MB_ICONQUESTION);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
MessageBox(handle,'这是提示文字','提示框',MB_OK+MB_ICONINFORMATION);
end;
