каретка в edit

[оскар топотушка]

здравствуйте
не подскажите как определить позицию каретки в edit?
делаю проверку на ввод минуса, но не хочу стирать все содержиоме едита всякий раз когда хочу просто минус дописать
спасибо

[DeKot]

var x,y: integer;
    p: TPoint;
procedure TForm1.Timer1.Timer(Xp,Yp: integer;...
begin
  GetCursorPos(p);
  x:= p.Xp; // позиция в строке
  y:= p.Yp; // номер строки
end;

[russian-stalker]

var
p:tpoint;
begin
getcaretpos(p);
caption:=inttostr(p.x);
end;

[оскар топотушка]

спасибо большое

[DomiNick]

делаю проверку на ввод минуса, но не хочу стирать все содержиоме едита всякий раз когда хочу просто минус дописать

Проверку на ввод? Куда дописать?

Если вы делаете нечто вроде "калькулятора", то лучше делать как-то так:

Procedure TForm1.Edit1KeyPress(Sender: TObject; Var Key: Char);
Begin
If Key='-' Then
      Begin
      Edit1.Text:=FloatToStr(-1*StrToFloat(Edit1.Text));
      Key:=#0;
      End;
End;

[Stilet]

На всякий случай дополню что позиция курсора еще получается из TEdit.SelStart.

[FantomasRUS]

Сообщение от Stilet

На всякий случай дополню что позиция курсора еще получается из TEdit.SelStart.

Это самое то Спасибо.