demoframe.pas

来自「Crlab公司用来连接MySQL数据库的控件」· PAS 代码 · 共 47 行

PAS
47
字号
unit DemoFrame;

interface

uses
  Classes,
{$IFDEF LINUX}
  QControls, QStdCtrls, QGraphics, QForms{$ELSE}  Forms, Windows, Messages, SysUtils, StdCtrls, Graphics, Controls, Dialogs,  ComCtrls, ShellAPI, Buttons, ExtCtrls{$ENDIF}  {$IFNDEF VER130}, Variants{$ENDIF}
  ;

type
  TDemoFrame = class(TFrame)
  public
    procedure Initialize; virtual;
    procedure Finalize; virtual;
  end;

  TDemoFrameClass = class of TDemoFrame;


implementation

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

procedure TDemoFrame.Initialize;
begin
end;

procedure TDemoFrame.Finalize;
begin
end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?