كتآبة دآلة تغنيني عن تكرار بعض العمليّات

[kachwahed]

وعليكم السلام ورحمة الله
حدد جميع مكونات TLabel واكتب في الحدث OnMouseMove:

كود :

(Sender as Tlabel).Font.Color := clBlue;

نفس الأمر لبقية الأحداث...
هناك حل آخر...
في إصدارات دلفي الحديثة (2006 فما فوق) يمكن استخدام المكون TLinkLabel
ضعه واكتب في الـ Caption وسم HTML الذي تريد مثل:

PHP كود :

<a href="www.delphi4arab.net">Delphi4arab</a> 


يمكنك استقبال الرابط ونوعه في الحدث OnLinkClick من الثابت Link والنمط TSysLinkType بشيء مثل:

PHP كود :

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; const Link: string;
  LinkType: TSysLinkType);
begin
  if LinkType = sltURL then
    ShowMessage('It''s URL')
  else
    ShowMessage('It''s ID');

  ShowMessage(Link);
end; 


بالتوفيق أخي المبرمج.