Текущий архив: 2004.02.10;
Скачать: CL | DM;

Вниз

TEdit - курсор   Найти похожие ветки 

← →
rel_   (2004-01-29 10:55) [0]

Мастера, подскажите, как высчитать расстояние между курсором и левым краем Edit"а.

---

← →
[lamer]Barmaglo   (2004-01-29 11:20) [1]

http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988624334&n=17 - выясняешь позицию.

Длинну текста получаешь примерно так:


procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
s:="W";
Edit1.text:=inttostr(Form1.Canvas.TextWidth(s));
end;


---

← →
Zz_   (2004-01-29 11:23) [2]

var pc,pe:TPoint;
begin
GetCaretPos(pc);
Windows.ClientToScreen(Edit1.handle,pc);

pe.x := Edit1.left; pe.y := Edit1.top;
Windows.ClientToScreen(Form1.handle,pe);

Application.MessageBox(PChar(IntToStr(pc.x-pe.x)),"",0);

---

← →
rel_   (2004-01-29 11:35) [3]

Спасибо !!!

---

Страницы: 1 вся ветка

Текущий архив: 2004.02.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c