如何设置和修改showmessage或者messagebox这类对话框的字体大小和窗体的大小?

Question

如题所说的!不知道该怎么去弄!是不是修改消息?具体如何做?

Answer 1

procedure myshowmessage(s:String);
var fForm:Tform;
    fButton:Tbutton;
    flabel:Tlabel;
begin
    fForm:=Tform.Create(nil);
    fButton:=Tbutton.Create(fForm);
    fButton.ModalResult:=mrok;
    fButton.Parent:=fForm;
    fButton.Left:=10;
    fbutton.Top:=10;
    fbutton.Caption:='确定';
    flabel:=Tlabel.Create(fForm);
    flabel.Parent:=fForm;
    flabel.Caption:=s;
    flabel.Left:=10;
    flabel.Top:=50;
    fForm.ShowModal;
    fForm.Free;
end;