Гиперссылка

← →
Leyhont (2006-07-27 23:38) [0]

Как сделать, чтобы текст в компонентах вывода становился гиперссылкой и как привязать гиперссылку к TImage?

← →
KilkennyCat © (2006-07-27 23:52) [1]

Насчет привязки к имаджу не понял.
В тексте - легко.
1. Форматировать его вывод, если нужно и как нужно.
2. Определить, что курсор мыши находится над ним и поменять его на нужный, если нужно.
3. Обработать клик мыши, если условие 2 выполнено.

← →
Leyhont (2006-07-27 23:57) [2]

А каким образом выполнить пункт (3)? Как обработать?

← →
Leyhont (2006-07-27 23:59) [3]

В смысле что написать, чтобы гиперссылка открылась?

← →
KilkennyCat © (2006-07-28 00:08) [4]

Откуда мне знать, что Вы хотите...
Что Вы подразумеваете под открытием гиперссылки?

← →
Leyhont (2006-07-28 00:20) [5]

в смысле я нажимаю на лабел и открывается интернет-ресурс.

← →
Германн © (2006-07-28 00:21) [6]

> В смысле что написать, чтобы гиперссылка открылась?

Гиперссылка ОТКРОЙСЯ! :-)
Шутка.
Понятие гиперссылка это, имхо, для юзера. Видя гиперссылку где-либо он понимает, что по ней можно "кликнуть" и тогда он может либо получить дополнительную информацию, либо выполнить некие запрограммированные заранее действия типа сформировать письмо на определённый заранеее адрес и т.п. и т.д. И вот "Что Написать" в программе её автору зависит именно от этих т.п. и т.д.

← →
KilkennyCat © (2006-07-28 00:21) [7]

> и открывается интернет-ресурс.

открывается где?

← →
Leyhont (2006-07-28 00:23) [8]

в браузере.
прошу прошения, что так невнятно объясняюсь =)

← →
KilkennyCat © (2006-07-28 00:26) [9]

Как открыть? Оставив контроль или пустить в свободное плавание?

← →
Leyhont (2006-07-28 00:33) [10]

ну просто открыть страницу в браузере

← →
KilkennyCat © (2006-07-28 00:45) [11]

ShellExecute, WinExec, CreateProcess

← →
Игорь Шевченко © (2006-07-28 00:59) [12]

ShellExecute(Application.Handle,"open",PChar(Label4.Caption),"","",SW_SHOW);

← →
KilkennyCat © (2006-07-28 01:08) [13]

> [12] Игорь Шевченко © (28.07.06 00:59)

некрасиво выглядит :) можно спутать две одинарных кавычки с одной двойной.

← →
Chort © (2006-07-28 16:59) [14]

to Игорь Шевченко
Как объявить ShellExecute, ведь при компиляции Делфи не может его распознать.
ShellExecute(Application.Handle,"open",PChar(Label4.Caption),"","",SW_SHOW);
И как к примеру записать ссылку на http://delphimaster.net/view/2-1154029115/(в каких кавычках)?

← →
tesseract © (2006-07-28 17:07) [15]

> Как объявить ShellExecute, ведь при компиляции Делфи не
> может его распознать.

uses ShellApi имеется в виду?

← →
Мефисто (2006-07-28 17:09) [16]

> Chort © (28.07.06 16:59) [14]

uses
ShellAPI

← →
Zeqfreed © (2006-07-28 17:11) [17]

> [15] tesseract © (28.07.06 17:07)

Ну можно и без ShellAPI объявить, если есть желание :)

← →
Ega23 © (2006-07-28 17:13) [18]

ShellExecute(Application.Handle,"open",PChar(Label4.Caption),"","",SW_SHOW );

← →
Ega23 © (2006-07-28 17:14) [19]

ShellExecute(Application.Handle,"open",PChar("http://delphimaster.net/view/2-1154029115/"),"","",SW_SHOW);

← →
Ega23 © (2006-07-28 17:14) [20]

[18] - не считается. Промахнулся.

to Ega23
[19] самое оно.
to Мефисто
А насчет uses ShellAPI протупил я!

Кстати для запуска почты что нужно вместо Open писать ?

> Кстати для запуска почты что нужно вместо Open писать ?

Вы используете то, что Вам посоветовали, даже не прочитав справку????

to KilkennyCat
Справку искал: выделил слово ShellAPI и нажал F1, но ничего не нашлось!

MS SDK Help Files

> Chort ©
> Кстати для запуска почты что нужно вместо Open писать ?

//---------------------------------- procedure TAboutFrm.LabelClick(Sender: TObject); //---------------- if TLabel(Sender).Name = "MailLbl" then ShellExecute(Handle,Nil,PChar("mailto:"+MailLbl.Caption),Nil,Nil,SW_NORMAL); end;

> вместо Open писать

Можно вообще ни чего ни писать.

> [23] Chort © (28.07.06 19:37)
> to KilkennyCat
> Справку искал: выделил слово ShellAPI и нажал F1, но ничего
> не нашлось!

ага. Значит, нужно прочитать справку о том, как пользоваться справкой.
И открою страшную тайну: одной справкой делфи сыт не будешь, но от голода один фиг не подохнешь - емть куча матерьяла в сети великой интернетной...

to KilkennyCat
Но есть еще скорость 33.6 кбит/c и посекундный тариф по 8.60 грн в час

Гиперссылка Найти похожие ветки