मैं डेल्फी में एक हाइपरलिंक की तरह एक TLabel व्यवहार कैसे करूं?मैं डेल्फी में एक हाइपरलिंक की तरह एक TLabel व्यवहार कैसे करूं?
नोट: मुझे पीछे की संगतता समस्याओं के कारण TLinkLabel का उपयोग करने में कोई दिलचस्पी नहीं है।
इसे नीला रंग दें, शैली को रेखांकित करने के लिए सेट करें और ऑनक्लिक ईवेंट जोड़ें!
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;
यह आपके हाइपरलिंक की आवश्यकता के आधार पर निर्भर करता है। मैं तो बस ...
OnMouseEnter और OnMouseLeave D7 और पहले (D2005 के बारे में निश्चित नहीं) में उपलब्ध नहीं हैं, इसलिए TLinkLabel के बारे में टिप्पणी भी इसे रोकती है। आपको ऑनमोउसमोव –
का उपयोग करना होगा, मैंने अभी चेक किया है - डेल्फी 7 में निश्चित रूप से ऑनमोउस एंटर और ऑनमोउसलेव है:} – moobaa
@Gerry: हाँ, वे हैं; आपको बस थोड़ा कठिन काम करना है।
डेल्फी का आप किस संस्करण का उपयोग कर रहे हैं? मेरे डेल्फी 4 आईडीई को देखते हुए, टीएलएबल में कोई ऑनमोउस एंटर/ऑनमोउसलेव इवेंट नहीं है, जो कर्सर को "हाथ" पर बदलना आवश्यक होगा जब उपयोगकर्ता "लिंक" पर होवर करता है।
यह ऑनक्लिक ईवेंट, जो आप उपयोगकर्ता के वेब ब्राउज़र को लॉन्च करने के लिए तार कर सकते हैं है:
डेल्फी 200 9। शायद माउस खत्म गलत शब्द था। TLabel के गुणों में, D2009 में, आप यह निर्दिष्ट करने में सक्षम हैं कि इस लेबल के लिए कौन से कर्सर का उपयोग किया जाना चाहिए। – Rowan
एक कर सकते हैं टैब पर और एक ब्राउज़र में लिंक करने के लिए ध्यान केंद्रित करने दे। इसलिए मैं इस कार्य के लिए एक खिड़कीदार नियंत्रण (मालिक द्वारा तैयार टीबीटन) का उपयोग करने पर विचार करता हूं।
हाँ, यही वह है जिसे मैं ढूंढ रहा था। यह सुनिश्चित करने के लिए कि किसी और के पास कोई अन्य विचार नहीं है, मैं इसे एक या दो दिनों में स्वीकार करूंगा। चीयर्स। – Rowan
'SW_SHOWNORMAL' होना चाहिए। –
"ShellApi का उपयोग करता है" जोड़ने के लिए मत भूलना; –