كيف يمكنني صنع 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 | إجازة | نقل] الأحداث لتطبيق نمط التسطير بشكل مناسب على الخط
- استخدم حدث OnClick لتفرخ متصفح وتغيير لون الخط، حسب الرغبة.
ما هو إصدار دلفي الذي تستخدمه؟ بالنظر إلى بلدي دلفي 4 IDE، لا يوجد لديه حدث onmouseenter / onmouseleave، والذي سيكون من الضروري تغيير المؤشر إلى "يد" عندما يحوم المستخدم عبر "الرابط".
يحتوي على حدث OnClick، والذي يمكنك سحبه لإطلاق مستعرض الويب الخاص بالمستخدم:
يمكن لمرء التبويب علامات التبويب وإعطاء التركيز على الروابط في متصفح. لذلك أود أن أعتبر استخدام عنصر تحكم إطارات (مثل TButton مالك رسميا) لهذه المهمة.
لا تنتمي إلى StackOverflow