引言: 系統的 showmessage 沒有辦法設定字體的大小, 用個變通的方法, 動態產生一個 form 模擬 showmessage, 以下為程式碼, 其中的參數可以自行調整, 以達到最佳的視覺效果 , 其中 class="code"> procedure TForm1.Button3Click(Sender: TObject); begin myShowmessage('my my message: not bad', 15); end; procedure myShowmessage(const msg: string; fontsize: integer); var f1: TForm; b1: TButton; l1: TLabel; begin try f1 := TForm.Create(nil); b1 := TButton.Create(f1); l1 := TLabel.Create(f1); l1.Top := 15; l1.Font.Size := fontsize; l1.Caption := msg; l1.Left := 20; l1.Parent := f1; f1.Width := l1.Width 20 * 2; f1.Height := l1.Height 120; f1.Top := screen.Height div 2 - f1.Height div 2; f1.Left := screen.Width div 2 - f1.Width div 2; f1.BorderStyle := bsSingle; f1.BorderIcons := [biSystemMenu]; f1.Caption := 'Message'; b1.Parent := f1; b1.Top := f1.Height - b1.Height - 50; b1.Left:= f1.Width div 2 - b1.Width div 2; b1.Caption := 'OK'; b1.ModalResult := mrOK; f1.ShowModal; finally f1.Free; 在網站看到test後,出現message,雖不影響程式run ,如何讓它更完美,謝謝 [Warning] Unit1.pas(55): Variable 'f1' might not have been initialized end; end;

引言: 在網站看到test後,出現message,雖不影響程式run ,如何讓它更完美,謝謝 [Warning] Unit1.pas(55): Variable 'f1' might not have been initialized

procedure myShowmessage(const msg: string; fontsize: integer);
var
  f1: TForm;
  b1: TButton;
  l1: TLabel;
begin
  f1 := TForm.Create(nil);
  try
    b1 := TButton.Create(f1);
    l1 := TLabel.Create(f1);
//......