Другой курсор над текстом, который находится в Edit-е

← →
Dmitry_177 (2007-05-15 00:40) [0]

Есть в Edit-е текст, точнее ссылка.. как можно сделать так, что если курсор сейчас над текстом, то курсор отображался в виде руки с пальцем(crHandPoint) т.е. что это ссылка и если на нее нажать то она откроется, а если вне текста, но на этом-же Edit-е курсор то обычный курсор в виде буквы "I"

← →
{RASkov} © (2007-05-15 01:01) [1]

> [0] Dmitry_177 (15.05.07 00:40)

Не тот компонент для этого выбрал.... Вообще можно конечно, но это глупо. имхо.

← →
Германн © (2007-05-15 01:01) [2]

Однако странное сочетание понятий. "Однострочное поле ввода текста" и "Гипертекст". Может не надо таких извратов, а?

← →
Dmitry_177 (2007-05-15 01:17) [3]

понадобилось вот...

← →
Германн © (2007-05-15 01:32) [4]

> Dmitry_177 (15.05.07 01:17) [3]
>
> понадобилось вот...
>

То бишь приспичило что ли? Объясни зачем понадобилось.
Не той дорогой идёшь, имхо. Есть много всякого, на что стоит потратить время с гораздо большей пользой и для себя и для общества. :)

← →
{RASkov} © (2007-05-15 01:36) [5]

> [3] Dmitry_177 (15.05.07 01:17)
>понадобилось вот...

Подумай еще раз, пока не поздно :)
procedure TForm.EditMouseMove();
begin
if X<Canvas.TextWidth(Edit.Text) then Screen.Cursor:=crHandPoint else Screen.Cursor:=crDefault;
end;
Только здесь нет различия и проверка ширины текста идет по канве формы а текст берется из Edit"а, как все впорядок привести, думаю сам догадаешься, я тебе идею подкинул.... Подсказка: Данный пример правильно будет работать если Font Edit"а и канвы формы будет одинаковым.
А вообще прислушайся к советам [1,2,4]

← →
Dmitry_177 (2007-05-15 08:56) [6]

вобщем мне нужно так что есть текст, т.е. ссылка, и надо сделать так что по нажатию на нее открывалась эта ссылка, но это я сделал.. нужно еще при наведении мышкой чтобы курсор становился crHandPoint, а еще нужно чтобы эту ссылку можно было выделить и скопировать..

> [6] Dmitry_177 (15.05.07 08:56)

может RichEdit проще использовать?

Другой курсор над текстом, который находится в Edit-е Найти похожие ветки