델파이의 하이퍼 링크처럼 tlabel 행동을하려면 어떻게해야합니까?
문제
델파이의 하이퍼 링크처럼 tlabel 행동을하려면 어떻게해야합니까?
참고 : 거꾸로 호환성 문제로 인해 tlinklabel을 사용하는 데 관심이 없습니다.
해결책
파란색을 색칠하고 밑줄을 긋고 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;
다른 팁
하이퍼 링크에 필요한 것에 따라 다릅니다. 난 그냥 ...
- 글꼴 색상을 파란색으로 설정하십시오
- Onmouse [Enter | Leave | Move] 이벤트를 사용하여 밑줄 스타일을 글꼴에 적절하게 적용하십시오.
- OnClick 이벤트를 사용하여 브라우저를 생성하고 원하는대로 글꼴 색상을 변경하십시오.
어떤 버전의 델파이를 사용하고 있습니까? 내 Delphi 4 IDE를 보면 Tlabel은 OnMouseEnter/OnMouseleave 이벤트가 없으며, 사용자가 "링크"를 가리킬 때 커서를 "손"으로 변경해야합니다.
OnClick 이벤트가있어 사용자의 웹 브라우저를 시작할 수 있습니다.
브라우저의 링크에 초점을 맞출 수 있습니다. 따라서이 작업을 위해 창 제어 (소유자로 그린 Tbutton과 같은)를 사용하는 것을 고려할 것입니다.
제휴하지 않습니다 StackOverflow