Làm cách nào để tạo một TLabel hoạt động giống như siêu liên kết trong Delphi?Làm cách nào để tạo một TLabel hoạt động giống như siêu liên kết trong Delphi?
Lưu ý: Tôi không quan tâm đến việc sử dụng TLinkLabel do các vấn đề tương thích ngược.
Màu xanh lam, đặt kiểu để gạch chân và thêm sự kiện 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;
Tùy thuộc vào những gì bạn yêu cầu của siêu liên kết. Tôi muốn chỉ ...
OnMouseEnter và OnMouseLeave không có sẵn trong D7 và trước đó (không chắc chắn về D2005) để nhận xét về TLinkLabel cũng loại trừ điều này. Bạn sẽ phải sử dụng OnMouseMove –
Tôi vừa kiểm tra - Delphi 7 chắc chắn nhất có OnMouseEnter và OnMouseLeave:} – moobaa
@Gerry: Vâng, chúng là; bạn chỉ phải làm việc chăm chỉ hơn một chút.
Bạn đang sử dụng phiên bản Delphi nào? Nhìn vào IDE Delphi 4 của tôi, TLabel không có sự kiện OnMouseEnter/OnMouseLeave, điều cần thiết để thay đổi con trỏ thành "Bàn tay" khi người dùng di chuột qua "liên kết".
Nó có sự kiện OnClick, mà bạn có thể dây lên để khởi động trình duyệt web của người dùng:
Delphi 2009. Có lẽ di chuột qua là sai. Trong các thuộc tính cho TLabel, trong D2009, bạn có thể chỉ định con trỏ nào sẽ được sử dụng cho nhãn này. – Rowan
Một lon tab để và đưa ra tập trung vào các liên kết trong trình duyệt. Vì vậy, tôi sẽ xem xét sử dụng một điều khiển cửa sổ (như một TButton chủ sở hữu rút ra) cho nhiệm vụ này.
Vâng, đó là những gì tôi đang tìm kiếm. Tôi sẽ chấp nhận nó trong một hoặc hai ngày, để đảm bảo không ai khác có bất kỳ ý tưởng nào khác. Chúc mừng. – Rowan
Phải là 'SW_SHOWNORMAL'. –
Đừng quên thêm "sử dụng ShellApi;" –