델파이의 하이퍼 링크처럼 tlabel 행동을하려면 어떻게해야합니까?

Question

델파이의 하이퍼 링크처럼 tlabel 행동을하려면 어떻게해야합니까?

참고 : 거꾸로 호환성 문제로 인해 tlinklabel을 사용하는 데 관심이 없습니다.

Answer 1

파란색을 색칠하고 밑줄을 긋고 onclick 이벤트를 추가하도록 스타일을 설정하십시오!

procedure TForm1.Label1Click(Sender: TObject);
var
  MyLink: string;
begin
  MyLink := 'http://www.mysite.com/';
  ShellExecute(Application.Handle, PChar('open'), PChar(MyLink),    
   nil, nil, SW_SHOW);
end;

Answer 2

하이퍼 링크에 필요한 것에 따라 다릅니다. 난 그냥 ...

• 글꼴 색상을 파란색으로 설정하십시오
• Onmouse [Enter | Leave | Move] 이벤트를 사용하여 밑줄 스타일을 글꼴에 적절하게 적용하십시오.
• OnClick 이벤트를 사용하여 브라우저를 생성하고 원하는대로 글꼴 색상을 변경하십시오.

Answer 3

어떤 버전의 델파이를 사용하고 있습니까? 내 Delphi 4 IDE를 보면 Tlabel은 OnMouseEnter/OnMouseleave 이벤트가 없으며, 사용자가 "링크"를 가리킬 때 커서를 "손"으로 변경해야합니다.

OnClick 이벤트가있어 사용자의 웹 브라우저를 시작할 수 있습니다.

델파이에서 프론트 또는 런칭 브라우저를 가져 오는 방법

Answer 4

브라우저의 링크에 초점을 맞출 수 있습니다. 따라서이 작업을 위해 창 제어 (소유자로 그린 Tbutton과 같은)를 사용하는 것을 고려할 것입니다.