labelunit1.pas

来自「wptools5 pro 完整源代码 Msword界面的文本编辑器源代码」· PAS 代码 · 共 39 行

unit LabelUnit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, WPRTEDefs, WPCTRMemo, WPCTRRich, WPRuler, WPTbar;

type
  TForm1 = class(TForm)
    WPToolBar1: TWPToolBar;
    WPRuler1: TWPRuler;
    WPVertRuler1: TWPVertRuler;
    WPRichText1: TWPRichText;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses WPLabelFrm;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    WPLabelForm.LoadAddress( WPRichText1 );
    WPLabelForm.Show;
end;

end.