unit13.pas

导航软件源码

unit Unit13;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, viArrow, RXCtrls, cxPC, cxControls, LBCtrls,
  cxLookAndFeelPainters, StdCtrls, cxButtons, ImgList;

type
  TForm1 = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    viArrowEx1: TviArrowEx;
    viArrowEx2: TviArrowEx;
    viArrowEx3: TviArrowEx;
    LBSpeecButton1: TLBSpeecButton;
    LBSpeecButton2: TLBSpeecButton;
    LBSpeecButton3: TLBSpeecButton;
    LBSpeecButton4: TLBSpeecButton;
    LBSpeecButton5: TLBSpeecButton;
    LBSpeecButton6: TLBSpeecButton;
    viArrowEx4: TviArrowEx;
    viArrowEx5: TviArrowEx;
    LBSpeecButton7: TLBSpeecButton;
    viArrowEx6: TviArrowEx;
    LBSpeecButton8: TLBSpeecButton;
    cxTabSheet3: TcxTabSheet;
    cxTabSheet4: TcxTabSheet;
    LBSpeecButton9: TLBSpeecButton;
    viArrowEx7: TviArrowEx;
    LBSpeecButton10: TLBSpeecButton;
    viArrowEx8: TviArrowEx;
    viArrowEx9: TviArrowEx;
    LBSpeecButton11: TLBSpeecButton;
    LBSpeecButton12: TLBSpeecButton;
    LBSpeecButton13: TLBSpeecButton;
    viArrowEx10: TviArrowEx;
    LBSpeecButton14: TLBSpeecButton;
    viArrowEx11: TviArrowEx;
    viArrowEx12: TviArrowEx;
    LBSpeecButton15: TLBSpeecButton;
    LBSpeecButton16: TLBSpeecButton;
    ImageList1: TImageList;
    procedure LBSpeecButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.LBSpeecButton1Click(Sender: TObject);
begin
SHOWMESSAGE('还没有进行开发');
end;

end.