Добавил:
korayakov
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
unit Unit1;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, WPRich, WPRuler, WPTbar;
type
TForm1 = class(TForm)
WPToolBar1: TWPToolBar;
WPRuler1: TWPRuler;
WPRichText1: TWPRichText;
Panel1: TPanel;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure WPRichText1HyperLinkEvent(Sender: TObject; text,
stamp: String; LineNumber: Longint);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
WPRichText1.Init;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WPRichText1.Done;
end;
procedure TForm1.WPRichText1HyperLinkEvent(Sender: TObject; text,
stamp: String; LineNumber: Longint);
var
c : array[0..255] of Char;
begin
StrPcopy(c,text);
MessageBox(0,c,'Hyperlink clicked',0);
end;
end.
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls, WPRich, WPRuler, WPTbar;
type
TForm1 = class(TForm)
WPToolBar1: TWPToolBar;
WPRuler1: TWPRuler;
WPRichText1: TWPRichText;
Panel1: TPanel;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure WPRichText1HyperLinkEvent(Sender: TObject; text,
stamp: String; LineNumber: Longint);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
WPRichText1.Init;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
WPRichText1.Done;
end;
procedure TForm1.WPRichText1HyperLinkEvent(Sender: TObject; text,
stamp: String; LineNumber: Longint);
var
c : array[0..255] of Char;
begin
StrPcopy(c,text);
MessageBox(0,c,'Hyperlink clicked',0);
end;
end.
Соседние файлы в папке DEMO