odsform.pas

Delphi高级开发指南是开发程序的好帮手

unit OdsForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, Grids, DBGrids, ExtCtrls, DBCtrls, DdhObjDs, DdhDsOne,
  Buttons;

type
  TForm1 = class(TForm)
    DdhObjectDataSet1: TDdhObjectDataSet;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    BtnGet: TButton;
    BtnAdd: TButton;
    BtnCreate: TButton;
    CheckBox1: TCheckBox;
    DBNavigator1: TDBNavigator;
    ScrollBox1: TScrollBox;
    Splitter1: TSplitter;
    DdhObjectDataSet1Name: TStringField;
    DdhObjectDataSet1Tag: TIntegerField;
    DdhObjectDataSet1Left: TIntegerField;
    DdhObjectDataSet1Top: TIntegerField;
    DdhObjectDataSet1Width: TIntegerField;
    DdhObjectDataSet1Height: TIntegerField;
    DdhObjectDataSet1Cursor: TIntegerField;
    DdhObjectDataSet1Hint: TStringField;
    DdhObjectDataSet1HelpContext: TIntegerField;
    DdhObjectDataSet1Cancel: TBooleanField;
    DdhObjectDataSet1Caption: TStringField;
    DdhObjectDataSet1Default: TBooleanField;
    DdhObjectDataSet1DragCursor: TIntegerField;
    DdhObjectDataSet1DragMode: TIntegerField;
    DdhObjectDataSet1Enabled: TBooleanField;
    DdhObjectDataSet1ModalResult: TIntegerField;
    DdhObjectDataSet1ParentFont: TBooleanField;
    DdhObjectDataSet1ParentShowHint: TBooleanField;
    DdhObjectDataSet1ShowHint: TBooleanField;
    DdhObjectDataSet1TabOrder: TIntegerField;
    DdhObjectDataSet1TabStop: TBooleanField;
    DdhObjectDataSet1Visible: TBooleanField;
    BitBtn1: TBitBtn;
    DdhObjectDataSet1ClassName: TStringField;
    procedure BtnCreateClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnGetClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DdhObjectDataSet1.TableName :=
    ExtractFilePath (ParamStr (0)) +
    'Buttons.otl';
end;

procedure TForm1.BtnCreateClick(Sender: TObject);
begin
  DdhObjectDataSet1.CreateTable (TButton);
  DdhObjectDataSet1.Open;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  DdhObjectDataSet1.Active := CheckBox1.Checked;
end;

procedure TForm1.BtnAddClick(Sender: TObject);
begin
  if DdhObjectDataSet1.Active then
  begin
    DdhObjectDataSet1.AddObject (Sender as TComponent);
    // edit the name field of the new record randomly
    DdhObjectDataSet1.Edit;
    DdhObjectDataSet1.FieldByName('Name').AsString :=
      (Sender as TComponent).Name + IntToStr (Random (10000));
    DdhObjectDataSet1.Post;
  end;
end;

procedure TForm1.BtnGetClick(Sender: TObject);
var
  NewControl: TControl;
begin
  // owner is the form, parent is the scrollbox
  NewControl := DdhObjectDataSet1.CreateObject (
    self, ScrollBox1) as TControl;
  NewControl.Left := Random (ScrollBox1.ClientWidth);
  NewControl.Top := Random (ScrollBox1.ClientHeight);
  NewControl.SetTextBuf (PChar (NewControl.Name));
  if NewControl is TButton then
    TButton(NewControl).OnClick := BtnAddClick;
end;

initialization
  Randomize;
  RegisterClass (TButton);
  RegisterClass (TBitBtn);
end.