odacdemoframe.pas

ODAC 6 最新版的﹐網上找了好久才找到﹐不太好找啊﹐大家一起共享

unit OdacDemoFrame;

interface

uses
{$IFDEF LINUX}
  QControls, QStdCtrls,
{$ELSE}
  Controls, StdCtrls,
{$ENDIF}
  Classes, DemoFrame;

type
  TOdacDemoFrame = class(TDemoFrame)
  public
    procedure SetDirect(Value: boolean); virtual;
  end;

implementation

{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}

procedure TOdacDemoFrame.SetDirect(Value: boolean);
begin  
end;

end.