دخول

**kachwahed** · 04-01-2009, 12:59 PM

السلام عليكم ورحمة الله...
قمت مؤخرا بكتابة كود ينشئ مكون من النوع TLabel وأرفقت له حدث LinKto وها هو الكود:
إنشاء نوع المكون:

كود :
type TLabLink = class(TLabel)
     function Linkto (Caption: TCaption): String;
     procedure Click; override;
    end;

إنشاء المكون:

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
Lablink := TLablink.Create(Lablink);
  try
    Lablink.Parent := Self;
    Lablink.Left := 80;
    Lablink.Top := 104;
    Lablink.Caption := Lablink.Linkto(Edit1.Text);
    Lablink.Font.Color := clBlue;
    Lablink.Font.Style := [fsUnderline];
    Lablink.Cursor := crHandPoint;
  except
    Lablink.Free;
end;
end;

إرفاق حدث للمكون:

كود :
procedure TLabLink.Click;
begin
  inherited;
    ShellExecute(0,nil,pchar(Lablink.Caption),nil,nil,1);
end;

فهل يمكن إضافة حدث جديد لمكون تم إنشاؤه على الـ Form ؟؟؟
مثلا هل يمكن إضافة حدث OnMouseWheel الخاصة بالمكون TRichEdit إلى المكون TMemo مثلا؟؟؟

وهل يمكن التعديل بطريقة مباشرة في حدث معين أثناء تشغيل البرنامج ؟؟؟ (كإضافة سطر من الأوامر مثلا)

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة