odacdemoframe.pas

来自「odac for oralce 8i,10g,11g easy to conn」· PAS 代码 · 共 36 行

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.