unit u_op_memo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, StdCtrls, DBCtrls, bsSkinCtrls;

type
  Tfrm_op_memo = class(TForm)
    bsSkinButton5: TbsSkinButton;
    DBMemo1: TDBMemo;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Label1: TLabel;
    procedure bsSkinButton5Click(Sender: TObject);
    procedure DBMemo1Click(Sender: TObject);
    procedure DBMemo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_op_memo: Tfrm_op_memo;

implementation

{$R *.dfm}

procedure Tfrm_op_memo.bsSkinButton5Click(Sender: TObject);
begin
  close;
  
end;

procedure Tfrm_op_memo.DBMemo1Click(Sender: TObject);
var
   iTmp: integer;
begin
{

   iTmp := DBMemo1.CaretPos.Y;
   Label1.Caption:='ÐÐ×Ö·ûÊý:'+Inttostr(Length(DBMemo1.Lines.Strings[iTmp]));
}   
  Label1.Caption:='Num:'+IntToStr(Length(DBMemo1.Lines[DBMemo1.CaretPos.Y]));
end;

procedure Tfrm_op_memo.DBMemo1Change(Sender: TObject);
begin
  Label1.Caption:='Num:'+IntToStr(Length(DBMemo1.Lines[DBMemo1.CaretPos.Y]));
end;

end.