|
توسط مدیر سایت
تاریخ آخرین بروز رسانی :دو شنبه 84/11/10
هدف از این بخش آموزش کامپاننت نویسی و همچنین قرار دادن
کامپاننت ها و ابزارهایی که خودم نوشتم به بازدیدکنندگان است .
با سلام
امکانات برنامه Component Writer :
ساخت کامپاننت برای دلفی 7 یا 2005
ساخت package
قرار دادن event در یک component فقط با یک کلید (دیگه نمی خواهد بشینین
برنامه نویسی
کنین) .
build کردن package
قرار دادن مستقیم یک کامپاننت در package
چاپ
IDE زیبا
Syntax خوان دلفی (یعنی کلمات کلیدی را پررنگ می زنه . مثلا : begin)
این برنامه رایگان است .
جهت دریافت رایگان نرم افزار به ایمیل
mehrdaddelphi@yahoo.com
ایمیل بزنید.
با سلام از وقتی که محیط های برنامه نویسی visual
شد (از دلفی 1 تا دلفی 2005) کامپاننت ها آمدند.
کامپاننت ها اشیایی هستند که حتی بعضی از آن ها visual
هم نیستند (مانند timer) هر کامپاننت در دلفی
خاصی قابل دسترسی است . به عنوان مثال کامپاننت vcl
skin برای موارد زیر موجود است :
delphi 7
delphi 2005 delphi 6
delphi 5 و ... البته
اکثر کامپاننت های دلفی 7 روی دلفی 2005 نیز کامپایل می شه .
برای قرار دادن کاماننت ها در دلفی باید آن ها را در بسته(package)
قرار داد. بعد باید بسته را compail
کرد. بعد هم باید از component
ها استفاده کرد . طریقه نصب دلفی 2005 را من در یک
ebook نوشتم . برای دریافت
ebook
اینجا را کلیک کنید. درس اول تمام شد . تا درس دوم بای
...
با سلام
می خواهیم در این درس به کامپاننت 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; حالا
کامپاننت را نصب کنید و لذت ببرید . |