ورود

View Full Version : سوال: كامپوننت نويسي و يه مشكل



دلفــي
یک شنبه 09 اسفند 1388, 10:02 صبح
با سلام

من يه كامپوننت براي استفاده از USB نوشتم و تقريبا كارش تموم شده و حتما اينجا هم آپلودش مي كنم تا ساير دوستان هم ازش استفاده كنند ولي يه مشكل كوچولو دارم ، اونم اينكه نمي تونم رو پروپرتي About طوري كد بنويسم كه با كليك بر روي آن يه فرم ديگه نمايش داده بشه !
من اين كار رو در بعضي از كامپوننتها ديدم .
اگه از دوستان كسي در اين مورد اطلاعاتي داره لطفا راهنمايي كنيد .
( در ضمن من اون فايل Pdf كه 44 صفحه است و نحوه ايجاد كامپوننت رو توضيح ميده دارم ، ولي توش چيزي در اين مورد پيدا نكردم !)

دلفــي
یک شنبه 09 اسفند 1388, 12:45 عصر
كسي نيست به ما كمك كنه ؟!!! :افسرده:

بذاريد سوالم رو به اين صورت بيان كنم :
چه طوري ميشه در كنار يه خاصيت (مثل همون About) يه دكمه انتخاب (مثل دكمه انتخاب خاصيت Font) ايجاد كرد ؟؟

vcldeveloper
یک شنبه 09 اسفند 1388, 13:19 عصر
برای این کار از Property Editor استفاده می کنند. در منابعی که برای نوشتن کامپوننت برای دلفی مطالعه کردید، احتمالا درباره نوشتن Property Editorها هم توضیح داده شده.

دلفــي
یک شنبه 09 اسفند 1388, 15:45 عصر
برای این کار از Property Editor استفاده می کنند. در منابعی که برای نوشتن کامپوننت برای دلفی مطالعه کردید، احتمالا درباره نوشتن Property Editorها هم توضیح داده شده.

ممنون از توضيحي كه دادين ، ولي من نتونستم با توضيحات اون مقاله كاري رو كه مي خوام انجام بدم ، حرف شما درسته ، بايد با Property Editor اين كار رو انجام بدم ولي من هر كاري ميكنم دكمه انتخاب در كنار نام خاصيت About نمياد و به جاش يه منوي آبشاري ايجاد ميشه كه خاليه !
اين هم از نمونه كدي كه نوشتم : لطفا راهنمايي كنيد .



uses
SysUtils, Classes, Registry, Masks, Windows, Messages, AboutBox;

type
TUSB = class(TComponent)
private
FAbout : TfrmAbout;
protected
procedure SetForm(const Value: TfrmAbout);
public
published
{ Published declarations }
property about: TfrmAbout read FAbout write SetForm stored False;

end;
procedure Register;

implementation
{$R TIUSB.RES}
procedure Register;
begin
RegisterComponents('USB', [TUSB]);
end;
{ TUsbC }
procedure TUSB.SetForm(const Value:TfrmAbout);
begin
with TfrmAbout.Create(Self) do
try
ShowAbout('USB Component');
finally
Free;
end;
end;
end.

alinikaein
یک شنبه 09 اسفند 1388, 23:32 عصر
سلام دوست عزيز؛
حتماً اون فايل 44 صفحه‌اي را درست مطالعه نكرديد. به صفحه‌ي 23 قسمت «-12 ویرایشگر کامپوننت، اضافه کردن امکانات به ویرایشگرهای دیگران» مراجعه كنيد.

SAASTN
یک شنبه 09 اسفند 1388, 23:51 عصر
سلام
ممکنه یک لینک از مرجع مورد اشاره قرار بدین؟ (فایل 44 صفحه ای)

Felony
دوشنبه 10 اسفند 1388, 06:15 صبح
تو همین بخش تاپیک ها قبلی رو ببینید ، حدود 1 ماه پیش قرار دادم .

دلفــي
دوشنبه 10 اسفند 1388, 11:41 صبح
سلام دوست عزيز؛
حتماً اون فايل 44 صفحه‌اي را درست مطالعه نكرديد. به صفحه‌ي 23 قسمت «-12 ویرایشگر کامپوننت، اضافه کردن امکانات به ویرایشگرهای دیگران» مراجعه كنيد.

من اين قسمت رو هم مطالعه كردم ولي نتونستم اون كاري رو كه مي خوام انجام بدم .
اگه شما مثالي در اين ضمينه داريد لطفا همنجا قرار بديد .

با تشكر

lena abbaszadeh
دوشنبه 17 اسفند 1388, 12:19 عصر
سلام دوست عزيز؛
حتماً اون فايل 44 صفحه‌اي را درست مطالعه نكرديد. به صفحه‌ي 23 قسمت «-12 ویرایشگر کامپوننت، اضافه کردن امکانات به ویرایشگرهای دیگران» مراجعه كنيد.


سلام
میبخشید پریدم وسط حرفتون
میشه این فایل 44 صفحه ای رو اینجا برای من بذارین؟:بامزه:
مرسی

SAASTN
دوشنبه 17 اسفند 1388, 22:08 عصر
سلام
میبخشید پریدم وسط حرفتون
میشه این فایل 44 صفحه ای رو اینجا برای من بذارین؟:بامزه:
مرسی
با اجازه دوستان
http://barnamenevis.org/forum/showthread.php?t=192694