www.pudn.com > sybase_dblib4.zip > ansistringedit.pas

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.