caret position i memo angives forkert

Det er vist nok ikke positionen i hele bufferen, men positionen i den synlige del.

Jeg har ikke 579 linier synlige.

prøv det her:

procedure CARETPos(H: THandle; var L,C : Word);
begin
  L := SendMessage(H,EM_LINEFROMCHAR,-1,0);
  C := LoWord(SendMessage(H,EM_GETSEL,0,0)) - SendMessage(H,EM_LINEINDEX,-1,0);
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  LineNum,ColNum : Word;
begin
  CARETPos(Memo1.Handle,LineNum,ColNum);
  Edit1.Text := IntToStr(LineNum) + '  ' + IntToStr(ColNum);
end;

Det virker perfekt - super

tak,

Rune

Det virker ikke når jeg acceptere :-(

Jeg ved ikke om det er min browser opsætning

Jeg har prøvt fra flere computer - det virker bare ikke

Det har medført at jeg har fået en dårlig karma :-(

Jeg fik det tilat virke :-)