uhtmlmessagedlg.pas

自己写的一个 RSS 阅读器

unit uHtmlMessageDlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, JvExStdCtrls, JvHtControls;

type
  TDefaultBtn = (Btn_Yes,Btn_No);
  TfmHTMLMessageDlg = class(TForm)
    BtnYes: TButton;
    BtnNo: TButton;
    HTMLabel: TJvHTLabel;
    procedure FormCreate(Sender: TObject);
    procedure BtnYesClick(Sender: TObject);
    procedure BtnNoClick(Sender: TObject);
  private
    { Private declarations }
    ResultValue:Boolean;
  public

    { Public declarations }
  end;

var
  fmHTMLMessageDlg: TfmHTMLMessageDlg;

function HTMLMessageDlg(Title:string;Str:String;DefaultBtn:TDefaultBtn=Btn_Yes):Boolean;

implementation

uses FastStrings,Comm;

{$R *.dfm}

function HTMLMessageDlg(Title:string;Str:String;DefaultBtn:TDefaultBtn=Btn_Yes):Boolean;
begin
  Application.CreateForm(TfmHTMLMessageDlg, fmHTMLMessageDlg);
  with fmHTMLMessageDlg do
  begin
    Str:=FastReplace(Str,'\n','<BR>');
    Caption:=title;
    HTMLabel.Caption:=Str;
    if HTMLabel.Width>700 then
      HTMLabel.Width:=700;

    Width:=HTMLabel.Width+30;
    Height:=HTMLabel.Height+82;
    HTMLabel.Top:=8;
    HTMLabel.Left:=ClientWidth-HTMLabel.Width-8;
    if Width<300 then
      width:=300;
    BtnYes.Top:=ClientHeight-32;
    BtnNo.Top:=ClientHeight-32;
    BtnYes.Left:=TRUNC(Width/2)-85;
    BtnNo.Left:=TRUNC(Width/2)+5;
    BtnYes.Caption:=TranslateStr('Dialog',9002);
    BtnNo.Caption:=TranslateStr('Dialog',9003);

    case DefaultBtn of    //
      Btn_Yes: BtnYes.TabOrder:=0;
      Btn_No:  BtnNo.TabOrder:=0;
      else
        BtnNo.TabOrder:=0;
    end;    // case

    ShowModal;

  end;
  Result:=fmHTMLMessageDlg.ResultValue;
  fmHTMLMessageDlg.Free;
end;

procedure TfmHTMLMessageDlg.FormCreate(Sender: TObject);
begin
  ResultValue:=False;
end;

procedure TfmHTMLMessageDlg.BtnYesClick(Sender: TObject);
begin
  ResultValue:=True;
  Close;
end;

procedure TfmHTMLMessageDlg.BtnNoClick(Sender: TObject);
begin
  ResultValue:=False;
  Close;
end;

end.