procedure
TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;Shift:
TShiftState);
var ligne,colo :integer;
begin ligne:=SendMessage(Memo1.Handle,EM_LineFromChar,Memo1.SelStart,0);
colo:= Memo1.Selstart-sendMessage(memo1.Handle,EM_LineIndex,ligne,0)+1;
edit1.text:='Ligne :'+inttostr(ligne+1)+' Colonne :'+inttostr(colo);
end;
|