كيف يمكنني صنع 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 | إجازة | نقل] الأحداث لتطبيق نمط التسطير بشكل مناسب على الخط
• استخدم حدث OnClick لتفرخ متصفح وتغيير لون الخط، حسب الرغبة.

Answer 3

ما هو إصدار دلفي الذي تستخدمه؟ بالنظر إلى بلدي دلفي 4 IDE، لا يوجد لديه حدث onmouseenter / onmouseleave، والذي سيكون من الضروري تغيير المؤشر إلى "يد" عندما يحوم المستخدم عبر "الرابط".

يحتوي على حدث OnClick، والذي يمكنك سحبه لإطلاق مستعرض الويب الخاص بالمستخدم:

كيفية إحضار متصفح الأمامي أو الإطلاق في دلفي

Answer 4

يمكن لمرء التبويب علامات التبويب وإعطاء التركيز على الروابط في متصفح. لذلك أود أن أعتبر استخدام عنصر تحكم إطارات (مثل TButton مالك رسميا) لهذه المهمة.