TLabel을 Delphi에서 하이퍼 링크처럼 동작하게하려면 어떻게해야합니까?

델파이에서 TLabel이 하이퍼 링크처럼 동작하도록하려면 어떻게해야합니까?TLabel을 Delphi에서 하이퍼 링크처럼 동작하게하려면 어떻게해야합니까?

참고 : 이전 버전과의 호환성 문제로 인해 TLinkLabel을 사용하는 데 관심이 없습니다.

2009-08-25 Rowan

색상은 파란색이며 스타일을 밑줄로 설정하고 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;

출처

2009-08-25 06:58:30 DmitryK

그래, 그게 내가 찾고 있던거야. 아무도 다른 아이디어가 없다는 것을 확인하기 위해 1-2 일 안에 받아 들일 것입니다. 건배. – Rowan

은'SW_SHOWNORMAL'이어야합니다. –

"Use ShellApi;"를 추가하는 것을 잊지 마십시오. –

하이퍼 링크에 필요한 항목에 따라 다릅니다. 적절하게

가 OnClick 이벤트를 사용하는 글꼴에 밑줄 스타일을 적용하는 이벤트를 [이동 | | 남겨 입력] 난 그냥 ...

는 OnMouse를 사용 블루
에 글꼴 색상을 설정할 것 브라우저 & 원하는대로 글꼴 색상을 변경하십시오.

출처

2009-08-25 06:59:11 moobaa

OnMouseEnter 및 OnMouseLeave는 D7 및 이전 버전 (D2005에 대해 확실하지 않음)에서 사용할 수 없으므로 TLinkLabel에 대한 주석은이 사실을 배제합니다. 당신은 OnMouseMove –

을 사용해야 할 것입니다. Delphi 7에는 OnMouseEnter와 OnMouseLeave가 있습니다.} – moobaa

@Gerry : 예, 그렇습니다; 당신은 조금 더 열심히 일해야합니다. CM_MOUSEENTER 및 CM_MOUSELEAVE 메시지에 대한 처리기를 추가하기 만하면됩니다. –

어떤 델파이 버전을 사용하고 있습니까? 델파이 4 IDE를 보면 TLabel에는 OnMouseEnter/OnMouseLeave 이벤트가 없습니다.이 이벤트는 사용자가 "링크"위로 마우스를 가져갈 때 커서를 "손"으로 변경하는 데 필요합니다.

그것은 당신이 사용자의 웹 브라우저를 실행하도록 연결할 수 있습니다 OnClick 이벤트 가질 않습니다에

How to bring front or launch browser in Delphi

출처

2009-08-25 07:06:35

Delphi 2009. 아마도 마우스 오버라는 용어가 잘못되었습니다. TLabel의 속성에서 D2009에서는이 레이블에 사용할 커서를 지정할 수 있습니다. – Rowan

한 캔 탭을하고 브라우저의 링크에 포커스를. 따라서 나는이 작업을 위해 윈도우 컨트롤 (owner-drawn TButton과 같은)을 사용하는 것을 고려할 것이다.

출처

2009-08-25 07:26:15

TLabel을 Delphi에서 하이퍼 링크처럼 동작하게하려면 어떻게해야합니까?

답변

관련 문제