example.txt

《Kylix程序设计》一书中附带的例程源代码

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