[Amzi]

Здравствуйте ,нужна помощь.
Задача заключается в том что,нужно поместить в редактируемое поле ссылку,нажать enter и ссылка стала кликабельной и открылась в браузере самой программы,есть идеи как это сделать?

[NumLock]

TEdit, OnKeyPress, TWebBrowser, Navigate();

[Amzi]

Можно по подробнее?

[NumLock]

добавить на форму TEdit и TWebBrowser, у TEdit создать обработчик события OnKeyPress, в нем проверить что нажат именно Enter. в случае успешной проверки вызвать у TWebBrowser метод Navigate() с передачей ему в качестве параметра значение свойства Text TEdit'а.

[Amzi]

Ок, спасибо попробую

[Edit1]

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

Здравствуйте ,нужна помощь.
Задача заключается в том что,нужно поместить в редактируемое поле ссылку,нажать enter и ссылка стала кликабельной и открылась в браузере самой программы,есть идеи как это сделать?

ShellExecute

[Amzi]

Ссылка открывается после нажатия Enter мне нужно что-бы она застыла в Edit1 и стала кликабельной....

Код:

procedure TForm2.edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
 ShellExecute(0, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
end;

[YVitaliy]

В onClick'е обрабатывай

Код:

Procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then 
  begin
   Edit1.BorderStyle:=bsNone;
   Edit1.ReadOnly:=True;
   Edit1.Font.Style:=[fsUnderline];
   Edit1.Font.Color:=clBlue;
   ...........
end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
 if Edit1.ReadOnly then
   begin
    ShellExecute(0, 'open', PChar(Edit1.Text), '', '', SW_SHOWNORMAL);
   end;
end;

[poli-smen]

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

В onClick'е обрабатывай

Код:

Procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then 
  begin
   Edit1.BorderStyle:=bsNone;
   Edit1.ReadOnly:=True;
   Edit1.Font.Style:=[fsUnderline];
   Edit1.Font.Color:=clBlue;
   ...........
end;

Ещё можно добавить:

Код:

  Edit1.Cursor := crHandPoint;

А чтобы ещё и руку сделать более человеческой добавить:

Код:

Screen.Cursors[crHandPoint] := LoadCursor (0, IDC_HAND);

Или же можно вместо TEdit использовать TRichEdit который умеет подсвечивать гиперссылки: Подсветить ссылки в TRichEdit

[angvelem]

ТС ты надеялся, что получив ответ на одном форуме, на другом тебе скажут что-либо другое? Вроде ты уже написал, что разобрался и вновь задаёшь тот же вопрос.

[Amzi]

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

ТС ты надеялся, что получив ответ на одном форуме, на другом тебе скажут что-либо другое? Вроде ты уже написал, что разобрался и вновь задаёшь тот же вопрос.

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

[Amzi]

Найс спасибо большое!