unit3.pas

创建动画光标 创建异形窗体 滚动式面板 获取任务栏尺寸 利用WINDOWS GDI实现文字倾斜 巧用DELPHI制作溅射屏幕 实现WINAMP形式窗口拖动的方法 为控件加边框 在系统菜

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, Grids, DBGrids, DB, DBTables, StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Table2BDEDesigner: TStringField;
    Table2BDEDesigner2: TStringField;
    Table2BDEDesigner3: TFloatField;
    Table2BDEDesigner4: TStringField;
    Table2BDEDesigner5: TStringField;
    Table2BDEDesigner6: TStringField;
    Table2BDEDesigner7: TStringField;
    Table2BDEDesigner8: TStringField;
    Table2BDEDesigner9: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

end.