u_editdescrizione.pas

基于OOP设计的一套较好的ERP系统

unit u_editdescrizione;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Buttons, ExtCtrls;

type
  TEditDescrizione_form = class(TForm)
    DBMemo1: TDBMemo;
    Panel1: TPanel;
    OKBtn: TBitBtn;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditDescrizione_form: TEditDescrizione_form;

implementation

uses Doc_mod;

{$R *.DFM}

procedure TEditDescrizione_form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     Descrizione_visibile := False ;
end;

procedure TEditDescrizione_form.DBMemo1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
 if (key = 13) and
    (Shift = [ssCtrl]) then
    begin
     key := 0 ;
     okBtn.SetFocus ;
     ModalResult := mrOk ;
    end ;

 if key = 113 then
    begin
      key := 0 ;
      okBtn.Setfocus ;
      modalResult := mrYes ;
    end ;
end;

end.