example.txt

来自「《Kylix程序设计》一书中附带的例程源代码」· 文本 代码 · 共 12 行

procedure TFrmEditor.MnuItmHelpAboutClick(Sender: TObject);
var
  AboutBox: TAboutBox;
begin
  AboutBox := TAboutBox.Create( Application );
  try
    ABoutBox.ShowModal();
  finally
    AboutBox.Free();
    AboutBox := nil;
  end;
end;