mainfrm.~pas

功能强大的报表生成和管理工具

unit MainFrm;

interface

uses
  Forms, Dialogs, Graphics, StdCtrls, Controls, ExtCtrls, Classes,
  dxCore, dxButton, ActnList, ImgList, ComCtrls, dxContainer;

type
  TMainForm = class(TForm)
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    ActionList1: TActionList;
    ActionList2: TActionList;
    ImageList1: TImageList;
    ImageList2: TImageList;
    ImageLogo: TImage;
    LabelInfo: TLabel;
    LabelTitle: TLabel;
    Shape1: TShape;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    dxButton1: TdxButton;
    dxButton2: TdxButton;
    dxButton3: TdxButton;
    dxButton4: TdxButton;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    dxButton8: TdxButton;
    dxButton9: TdxButton;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    dxButton5: TdxButton;
    dxButton7: TdxButton;
    dxContainer1: TdxContainer;
    dxContainer2: TdxContainer;
    dxContainer3: TdxContainer;
    Label4: TLabel;
    dxContainer4: TdxContainer;
    dxContainer5: TdxContainer;
    dxContainer6: TdxContainer;
    dxContainer7: TdxContainer;
    Label5: TLabel;
    dxContainer8: TdxContainer;
    Edit2: TEdit;
    dxContainer9: TdxContainer;
    ListBox1: TListBox;
    dxButton6: TdxButton;
    procedure FormCreate(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure dxButton8Click(Sender: TObject);
    procedure dxButton9Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

{-----------------------------------------------------------------------------
  Procedure: TMainForm.FormCreate
  Author:    mh
  Date:      11-Apr-2002
  Arguments: Sender: TObject
  Result:    None
-----------------------------------------------------------------------------}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Caption := Application.Title;
  LabelTitle.Caption := Caption;
  ImageLogo.Picture.Icon := Application.Icon;
  PageControl1.ActivePageIndex := 0;
end;

{-----------------------------------------------------------------------------
  Procedure: TMainForm.Action1Execute
  Author:    mh
  Date:      11-Apr-2002
  Arguments: Sender: TObject
  Result:    None
-----------------------------------------------------------------------------}

procedure TMainForm.Action1Execute(Sender: TObject);
begin
  ShowMessageFmt('Button "%s" clicked!', [TAction(Sender).Caption]);
end;

{-----------------------------------------------------------------------------
  Procedure: TMainForm.Action5Execute
  Author:    mh
  Date:      11-Apr-2002
  Arguments: Sender: TObject
  Result:    None
-----------------------------------------------------------------------------}

procedure TMainForm.Action5Execute(Sender: TObject);
begin
  //
end;

{-----------------------------------------------------------------------------
  Procedure: TMainForm.dxButton8Click
  Author:    mh
  Date:      11-Apr-2002
  Arguments: Sender: TObject
  Result:    None
-----------------------------------------------------------------------------}

procedure TMainForm.dxButton8Click(Sender: TObject);
begin
  ShowMessage('You''ve clicked the OK-Button...!');
end;

{-----------------------------------------------------------------------------
  Procedure: TMainForm.dxButton9Click
  Author:    mh
  Date:      11-Apr-2002
  Arguments: Sender: TObject
  Result:    None
-----------------------------------------------------------------------------}

procedure TMainForm.dxButton9Click(Sender: TObject);
begin
  ShowMessage('You''ve clicked the Cancel-Button...!');
end;

end.