uinshyperlink.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 45 行

unit uInsHyperlink;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, TBXDkPanels, ActnList, TB2Dock,
  TB2ToolWindow, TBX, TB2Item, TB2ExtItems, TBXExtItems, TB2Toolbar;

type
  TfrmHyperlink = class(TForm)
    TBXToolWindow1: TTBXToolWindow;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Bevel1: TBevel;
    Label1: TLabel;
    TBXToolbar1: TTBXToolbar;
    Edit1: TTBXEditItem;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TfrmHyperlink.Action1Execute(Sender: TObject);
begin
  ModalResult:=mrOK; 
end;

procedure TfrmHyperlink.Action2Execute(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.