الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال حول انشاء اضافة لدلفي

بدأه fkugd2003 في 8 نوفمبر 2009 · 5 رد · 702 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

لدي سؤال للاخوة الذين جربو من قبل كتامة مكون او اضافة لدلفي 7

احاول ان اجرب كتابة اضافة للمحرر يتم تفعيلها بالضغط على زر معين .. لكنني للاسف لا اعرف من اي نقطة ابحث في الانترنت :wub: ببساطة

احتاج فقط الى التوجيه (مواقع او كتب ) ... انا مبتدأ في دلفي :huh:

اكون شاكرا لكم :happy:

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#2

امين هل تقصد محرر لمكون انت تبرمجه .

بالمناسبة لقد نسيت تحرير :

t_Sections و t_Rows انظر من السطر 180 .

في الوحدة myIniFileUnit

1

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#3

شكرا اخي محمد..

لا . انا اقصد اضافة تشبه

http://www.gexperts.org/

او CnWizards

شكرا على الملاحظات بخصوص myIniFileUnit ... ساضيفها و اعيد رفع الكود بارك الله فيك

على العموم تتكرر في رأسي فكرة كتابة اضافة لدلفي 7 ليحاكي دلفي 2010 خاصة ال ide insight.. ما رأيك؟؟

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#4

اقراء هذا

http://www.drbob42.com/delphi/wizards.htm >>>> :thumb_up:

نعم فكرة جيدة ولكن حط في راسك فكرة Compatibility

تم تعديل هذه المشاركة بواسطة mohfa في 8 نوفمبر 2009 في 01:30

عزيزي :

لاتنسى ان تصلي على حبيبنا و شفيعنا يوم لا ينفع مال ولا بنون .

فاللهمّ صّل وسّلم على سيدي و شفيعي وحبيبي محمد عليك الف صلاة وازكى تسليم

*****

2_header.png

#5

روعة بارك الله فيك اخي محمد

-----

ساحاول و اعلمكم بالجديد اول بألول :thumb_up:

العمل كثير و الوقت قليل أعاننا الله

seo zen SEO Enlightment amazon danbo

#6

يمكن أن يساعدك هذا:

{
This unit can be compiled into a package and will then appear in the delphi
Help menu.
}
unit SDCSimpleExpert;

interface

uses ToolsApi;

type
  TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard)
  public
	function GetIDString: string;
	function GetName: string;
	function GetState: TWizardState;
	procedure Execute;
	function GetMenuText: string;
  end;

procedure Register;

implementation

uses Dialogs;

procedure Register;
begin
  {register expert}
  RegisterPackageWizard(TSDCSimpleExpert.Create);
end;

{ TSDCSimpleExpert }

procedure TSDCSimpleExpert.Execute;
begin
  {code to execute when menu item is clicked}
  ShowMessage('Hello SwissDelphiCenter Simple Expert.');
end;

function TSDCSimpleExpert.GetIDString: string;
begin
  {unique expert identifier}
  Result := 'SwissDelphiCenter.SimpleExpert';
end;

function TSDCSimpleExpert.GetMenuText: string;
begin
  {caption of menu item in help menu}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetName: string;
begin
  {name of the expert}
  Result := 'SwissDelphiCenter Simple Expert';
end;

function TSDCSimpleExpert.GetState: TWizardState;
begin
  Result := [wsEnabled];
end;

end.
1

مواضيع مشابهة