列表8.4.txt

klinux书籍的配套光盘。可以学习学习。

【列表8.4】主题显示格式fromHelpTopic.pas。
unit frmHelpTopic;

interface
uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;
type
  TfrmshTopic := class(TForm)
     Memo1: TMemo;
  end;

var
  frmshTopic: TfrmshTopic;

procedure ShowTopic (const sTopicName: String; const sTopicText: String);
procedure ShutDown;
implementation
{SR *.xfm}
procedure ShowTopic (const sTopicName: String; const sTopicText: String);
begin
   if not Assigned (frmshTopic) then
      frmshTopic := TfrmshTopic.Create (nil);
   frmshTopic. Caption := Format ('Simple Help - %s', [sTopicName]);
   frmshTopic.Memo1. Lines.Text := sTopicText;
  
   frmshTopic. Show;
end; 
                                                       
procedure ShutDown;                                          
begin                                                                
   if Assigned (frmshTopic) then                                
      FreeAndNil (frmshTopic);                                 
end;

end.