ansistringedit.pas

来自「sybase大全」· PAS 代码 · 共 46 行

unit ansistringedit;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ComCtrls, sybcombobox;

type
  TOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Memo   :TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    constructor create(AOwner:TComponent); override; {;dbname :string); override;}
  public        
    DbProc  :integer;
    dbname  :string;
    { Public declarations }
  end;

var
  OKBottomDlg: TOKBottomDlg;

implementation
uses dialogs;
{$R *.DFM}

constructor TOKBottomDlg.create(AOwner:TComponent);
begin
  inherited create(AOwner);
end;

procedure TOKBottomDlg.FormCreate(Sender: TObject);
begin
  memo.text:='';
end;

procedure TOKBottomDlg.FormActivate(Sender: TObject);
begin
  memo.setfocus;
end;

end.