کامپوننت نویسی

[Delphi Skyline]

درس 1 (کامپاننت چیست؟)




با سلام
از وقتی که محیط های برنامه نویسی visual شد (از دلفی 1 تا دلفی 2005) کامپاننت ها

آمدند. کامپاننت ها اشیایی هستند که حتی بعضی از آن ها visual هم نیستند (مانند timer)

هر کامپاننت در دلفی خاصی قابل دسترسی است . به عنوان مثال کامپاننت vcl skin برای موارد زیر موجود است :

delphi 7

delphi 2005

delphi 6

delphi 5

و ...

البته اکثر کامپاننت های دلفی 7 روی دلفی 2005 نیز کامپایل می شه .

برای قرار دادن کاماننت ها در دلفی باید آن ها را در بسته(package) قرار داد.

بعد باید بسته را compail کرد.

بعد هم باید از component ها استفاده کرد .

طریقه نصب دلفی 2005 را من در یک ebook نوشتم . برای دریافت ebook اینجا را کلیک کنید.

درس اول تمام شد . تا درس دوم بای ...


منبع : سایت خودم

[Delphi Skyline]

با سلام
می خواهیم در این درس به کامپاننت button رویداد onmouseleave را اضافه کنیم.

برای افزودن یک رویداد به یک کامپاننت :

گام 1 : اول دلفی را باز کنید و در منوی component روی new component کلیک کنید.

گام 2 : در صفحه new component یک کامپاننت از کلاس دکمه تعریف کنید و روی دکمه ok

کلیک کنید .


گام 3 : حالا به قسمت private کد زیر را اضافه کنید :


qonmouseleave : Tnotifyevent;
procedure qonmouseleave(var msg: tmessage);message CM_mouseleave;

گام 4 : حالا به قسمت protected کد زیر را اضافه کنید :


Procedure Doonmouseleave;dynamic;

گام 5 : حالا به قسمت published کد زیر را اضافه کنید :


property onmouseleave : tnotifyevent read qonmouseleave write qonmouseleave;

گام 6 : حالا بعد از :


procedure Register;
begin
RegisterComponents('Sample', [TformW]);
end;

این کد را اضافه کنید :


procedure TformW.qonmouseleave(var msg : tmessage);
begin
Doonmouseleave;
end;
procedure TformW.Doonmouseleave;
begin
if assigned(qonmouseleave) then qonmouseleave(self);
end;



حالا کامپاننت را نصب کنید و لذت ببرید .