【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：MessageForm.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    unit MessageForm;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls, Buttons,SysInterface;
    
    type
      TFrmMessage = class(TForm,IMessageForm)
        Panel1: TPanel;
        Panel2: TPanel;
        Memo1: TMemo;
        SpeedButton1: TSpeedButton;
        SpeedButton2: TSpeedButton;
        procedure SpeedButton1Click(Sender: TObject);
        procedure SpeedButton2Click(Sender: TObject);
      private
        { Private declarations }
      protected
        function ShowMessage(MessageText:string;MessageTitle:string = ''):TModalResult;virtual;
      public
        { Public declarations }
      end;
    
    var
      FrmMessage: TFrmMessage;
    
    implementation
    
    {$R *.dfm}
    
    { TFrmMessage }
    
    function TFrmMessage.ShowMessage(MessageText,
      MessageTitle: string): TModalResult;
    begin
      Memo1.Text := MessageText;
      if MessageTitle <> '' then
        Caption := MessageTitle;
      Result := ShowModal;
    end;
    
    procedure TFrmMessage.SpeedButton1Click(Sender: TObject);
    begin
      ModalResult := mrOk;
    end;
    
    procedure TFrmMessage.SpeedButton2Click(Sender: TObject);
    begin
      ModalResult := mrCancel;
    end;
    
    initialization
      RegisterClass(TFrmMessage);
    
    finalization
      UnRegisterClass(TFrmMessage);
    end.