T22-23 Components Firing Event

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Event
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Date3;

type TForm1 = class(TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedure Button1Click(Sender: TObject);

procedure MyDateChange(Sender: TObject); {user declared handler (any name). The Handler is called when “OnChange” event is fired by the MyDate (TDate3) component}
procedure Button2Click(Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
MyDate:= TDate3.Create(self); // construct TDate3 object MyDate.OnChange := MyDateChange; {associate handler with the standard “OnChange” event }
ShowMessage (IntToStr(today.Day)):
ShowMessage (IntToStr(today.Month)):
ShowMessage (IntToStr(today.Year)):

end;
procedure TForm1.myDateChange(Sender: TObject); {actual event handler} begin ShowMessage(‘The day has changed’); end;
procedure TForm1.Button2Click(Sender: TObject); begin MyDate.Day:=29; {writes to Day property, using SetDate() which from inside invokes DoChange() firing the event} end;
end.
unit Date3;
interface uses SysUtils, Classes;
TYPE TDate3 = class(TComponent) private FDay, FMonth, FYear : Word; DummyWord : word; { — event property —}
{1} FOnChange : TNotifyEvent; {system event type declared as: procedure (Sender:TObject) of object;}
protected procedure SetDay(newDay: Word);
{3} procedure DoChange; dynamic; {when invoked fires the event}
public constructor Create(AOwner: TComponent);
published property Day:word read FDay write SetDay; property Month:word read FMonth write DummyWord; property Year:word read FYear write DummyWord;
{2} property OnChange: TNotifyEvent read FOnChange write FOnChange; end;
procedure Register;
implementation
procedure Register; begin RegisterComponents(‘Samples’,[TDate3]); end;
constructor TDate3.Create(AOwner: TComponent); Begin inherited Create(AOwner);
DecodeDate(SysUtils.Date, FYear, FMonth, FDay); end;
{4} procedure TDate3.SetDay(newDay: Word); {invokes event – day is changed}
Begin FDay := newDay; {this is the event to be notified}
{4} DoChange; {this fires the event by invoking its associated procedure

FOnChange(self) which is actually call to the assigned event handler} end;
{3a} procedure TDate3.DoChange; Begin if Assigned (FOnChange) then FOnChange(self); {invokes associated event handler while passing it object which raised the event} end; end.

“——————————————————————————————————————————————————

Appoġġ traduzzjoni: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenti Firing Avveniment
unità Unit1;
interface
użi
Twieqi, Messaġġi, SysUtils, Varjanti, Klassijiet, Grafika, Kontrolli, Formoli, Dialogs,
StdCtrls, Date3;

tip TForm1 = klassi (tform) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Proċedura Button1Click (Sender: TObject);

Proċedura MyDateChange (Sender: TObject); {Handler (kwalunkwe isem) utent iddikjarat. Il Handler huwa msejjaħ meta avveniment € € œOnChangeâ jiġi sparat tir mill-MyDate (TDate3) komponent}
Proċedura Button2Click (Sender: TObject);
privata
{dikjarazzjonijiet privati}
pubbliku
{dikjarazzjonijiet pubbliċi}
tmiem;

var
Form1: TForm1;

implimentazzjoni
{$ R * .dfm}
Proċedura TForm1.Button1Click (Sender: TObject);
tibda
MyDate: = TDate3.Create (awto); // Jinbena TDate3 oġġett MyDate.OnChange: = MyDateChange; {Handler jassoċjaw mal-istandard avveniment € € œOnChangeâ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

tmiem;
Proċedura TForm1.myDateChange (Sender: TObject); {Handler avveniment attwali} jibda ShowMessage (kuljum € ~ Il ikun changedâ € ™); tmiem;
Proċedura TForm1.Button2Click (Sender: TObject); jibdew MyDate.Day:=29; {Jikteb lill-proprjetà Jum, bl-użu SetDate () li minn ġewwa tinvoka DoChange () isparar F’każ} aħħar;
tmiem.
unità Date3;
interface użi SysUtils, Klassijiet;
TIP TDate3 = klassi (TComponent) privat FDay, FMonth, FYear: Kelma; DummyWord: kelma; {- Proprjetà avveniment —}
{1} FOnChange: TNotifyEvent; {Sistema tip avveniment ikun iddikjarat li: Proċedura (Sender: TObject) tal-oġġett;}
Proċedura protetti SetDay (Newday: Word);
{3} DoChange proċedura; dinamiku; {Meta invokat nirien l-avveniment}
kostruttur pubbliku Oħloq (AOwner: TComponent);
Jum proprjetà ppubblikati: kelma aqra FDay write SetDay; proprjetà Xahar: kelma jaqraw FMonth jiktbu DummyWord; Sena proprjetà: kelma taqra FYear ikteb DummyWord;
{2} proprjetà OnChange: TNotifyEvent jaqraw FOnChange jiktbu FOnChange; tmiem;
Reġistru proċedura;
implimentazzjoni
Reġistru proċedura; tibda RegisterComponents (â € ~Samplesâ € ™, [TDate3]); tmiem;
TDate3.Create kostruttur (AOwner: TComponent); Tibda wiret Oħloq (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); tmiem;
{4} proċedura TDate3.SetDay (Newday: Word); {Tinvoka avveniment â € “”jum tinbidel}
Tinbeda FDay: = Newday; {Dan huwa l-avveniment li jiġu notifikati}
{4} DoChange; {Dan il nirien f’każ billi jinvoka proċedura assoċjat miegħu

FOnChange (awto) li huwa attwalment sejħa biex l assenjat avveniment handler} għan;
{3a} proċedura TDate3.DoChange; Tibda jekk Assenjat (FOnChange) imbagħad FOnChange (awto); {Tinvoka assoċjat handler avveniment filwaqt li tgħaddi hi toġġezzjona li qajmet l-avveniment} aħħar; tmiem.

“——————————————————————————————————————————————————

Ondersteuning vertaling: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 komponente Firing Event
eenheid Unit1;
koppelvlak
gebruike
Windows, boodskappe, SysUtils, Variante, klasse, Graphics, Beheer, Vorms, vensters,
StdCtrls, Date3;

tik TForm1 = klas (tform) Button1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
prosedure Button1Click (Sender: TObject);

prosedure MyDateChange (Sender: TObject); {Gebruiker verklaar hanteerder (enige naam). Die hanteerder is bekend as wanneer â € œOnChangeâ € geval is aangevuur deur die MyDate (TDate3) komponent}
prosedure Button2Click (Sender: TObject);
privaat
{Private verklarings}
openbare
{Openbare verklarings}
einde;

var
Form1: TForm1;

implementering
{$ R * .dfm}
prosedure TForm1.Button1Click (Sender: TObject);
begin
MyDate: = TDate3.Create (self); // Bou TDate3 voorwerp MyDate.OnChange: = MyDateChange; {Mede hanteerder met die standaard â € œOnChangeâ € geval}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

einde;
prosedure TForm1.myDateChange (Sender: TObject); {Werklike event handler} begin ShowMessage (â € ~The dag het changedâ € ™); einde;
prosedure TForm1.Button2Click (Sender: TObject); begin MyDate.Day:=29; {Skryf aan Dag eiendom, die gebruik van SetDate () wat van binne roep DoChange () die afvuur van die geval} end;
einde.
eenheid Date3;
koppelvlak gebruik SysUtils, Klasse;
TIPE TDate3 = klas (TComponent) private FDay, FMonth, FYear: Word; DummyWord: woord; {- Gebeurtenis eiendom —}
{1} FOnChange: TNotifyEvent; {Stelsel tipe gebeurtenis verklaar as: prosedure (Sender: TObject) van voorwerp;}
beskerm prosedure SetDay (newDay: Word);
{3} prosedure DoChange; dinamies; {Toe opgeroep brande die geval}
openbare konstruktor Skep (AOwner: TComponent);
gepubliseer eiendom Dag: woord gelees FDay skryf SetDay; eiendom Maand: woord gelees FMonth skryf DummyWord; eiendom Jaar: Woord lees FYear skryf DummyWord;
{2} eiendom OnChange: TNotifyEvent lees FOnChange skryf FOnChange; einde;
prosedure Register;
implementering
prosedure Register; begin RegisterComponents (â € ~Samplesâ € ™, [TDate3]); einde;
konstruktor TDate3.Create (AOwner: TComponent); Begin geërf Skep (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); einde;
{4} prosedure TDate3.SetDay (newDay: Word); {Roep geval â € “”dag verander}
Begin FDay: = newDay; {Dit is die geval in kennis gestel word}
{4} DoChange; {Hierdie brande die geleentheid deur sy verwante proses beroep

FOnChange (self) wat eintlik bel om die opgedra event handler} end;
{3a} prosedure TDate3.DoChange; Begin as Opgedra (FOnChange) dan FOnChange (self); {Beroep geassosieer event handler terwyl jy dit beswaar wat die geval opgewek} end; einde.

“——————————————————————————————————————————————————

përkthim Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Qitjes Event
Njësia Unit1;
ndërfaqe
përdor
Windows, Messages, SysUtils, Variantet, Klasat, Graphics, Kontrollet, Forms, Dialogët,
StdCtrls, Date3;

lloj TForm1 = klasit (TForm) butoni1: TButton;
MyDate: TDate3;
Button2: TButton;
Procedura Button1Click (Sender: TObject);

Procedura MyDateChange (Sender: TObject); {User deklaruar mbajtës (ndonjë emër). Mbajtës quhet kur â € ngjarje œOnChangeâ € është shkarkuar nga MyDate (TDate3) komponenti}
Procedura Button2Click (Sender: TObject);
privat
{deklaratat private}
publik
{deklaratat publike}
fund;

var
Form1: TForm1;

zbatim
{$ R * .dfm}
Procedura TForm1.Button1Click (Sender: TObject);
filloj
MyDate: = TDate3.Create (vetë); // Ndërtuar TDate3 objekt MyDate.OnChange: = MyDateChange; {Mbajtës shok me standarde â € ngjarje œOnChangeâ €}
ShowMessage (IntToStr (today.Day));
ShowMessage (IntToStr (today.Month));
ShowMessage (IntToStr (today.Year));

fund;
Procedura TForm1.myDateChange (Sender: TObject); {Aktuale mbajtës ngjarje} fillojnë ShowMessage (â € ~ ditë ka changedâ € ™); fund;
Procedura TForm1.Button2Click (Sender: TObject); fillojnë MyDate.Day:=29~~dobj; {Shkruan për pronën Dita, duke përdorur SetDate (), e cila nga brenda thirret DoChange () qitjes ngjarje} fund;
end.
Njësia Date3;
Ndërfaqja përdor SysUtils, Klasat;
TYPE TDate3 = klasë (TComponent) private FDay, FMonth, FYear: Word; DummyWord: fjala; {- Prona ngjarje —}
{1} FOnChange: TNotifyEvent; {Llojin e sistemit ngjarje deklaruar si: procedura (Sender: TObject) i objektit;}
mbrojtur Procedura SetDay (newday: Word);
{3} DoChange procedure; dinamik; {Kur thirret zjarret ngjarjen}
konstruktor publik Krijo (AOwner: TComponent);
Dita publikuar pronës: fjala lexuar FDay shkruaj SetDay; Muaji pronës: fjala lexuar FMonth shkruajnë DummyWord; Prona Viti: fjala lexuar FYear shkruani DummyWord;
{2} pronës OnChange: TNotifyEvent lexuar FOnChange shkruajnë FOnChange; fund;
Regjistrohu procedure;
zbatim
Regjistrohu procedure; fillojnë RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fund;
konstruktor TDate3.Create (AOwner: TComponent); Filloni trashëguar Krijo (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fund;
{4} Procedura TDate3.SetDay (newday: Word); {Thirret ngjarje â € “”Dita është ndryshuar}
Filloni FDay: = newday; {Kjo është ngjarja që të njoftohet}
{4} DoChange; {Kjo zjarret ngjarjen duke u thirrur në procedurën e saj lidhur

FOnChange (vetë), e cila është në fakt thirrje për} fund të caktuar mbajtës ngjarje;
{} 3a procedurë TDate3.DoChange; Filloni qoftë i caktuar (FOnChange), atëherë FOnChange (vetë); {Invokes lidhur mbajtës ngjarje duke kaluar atë të kundërshtojë e cila ngriti ngjarje} fund; end.

“——————————————————————————————————————————————————

ድጋፍ ትርጉም: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ክፍሎች ረሻኝ ክስተት
አሃድ Unit1;
በይነገጽ
አጠቃቀም
በ Windows, መልእክቶች, SysUtils, ዓይነቶችን, ክፍሎች, ግራፊክስ, ይቆጣጠራል, ቅጾች, መገናኛዎችን,
StdCtrls, Date3;

TForm1 = ክፍል (TForm) BUTTON1 ተይብ: TButton;
MyDate: TDate3;
BUTTON2: TButton;
አሰራር Button1Click (የላኪ: TObject);

ሥነ MyDateChange (የላኪ: TObject); {ተጠቃሚ ተቆጣጣሪ (ማንኛውም ስም) ተናግሯል. € œOnChangeâ € ክስተት በ MyDate (TDate3) አካል} በ ከሥራ ተባረረ ጊዜ አስተናጋጅ ተብሎ ነው
አሰራር Button2Click (የላኪ: TObject);
የግል
{የግል መግለጫዎች}
ሕዝባዊ
{ይፋዊ መግለጫዎች}
ማለቅ;

var
Form1: TForm1;

ተግባራዊ
{$ R * .dfm}
አሰራር TForm1.Button1Click (የላኪ: TObject);
ጀመረ
MyDate: = TDate3.Create (ራስን); // TDate3 ነገር MyDate.OnChange መገንባት: = MyDateChange; {መደበኛ â € œOnChangeâ € ክስተት ጋር ተባባሪ ተቆጣጣሪ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ማለቅ;
አሰራር TForm1.myDateChange (የላኪ: TObject); {ትክክለኛ ክስተት ተቆጣጣሪ} ShowMessage ይጀምራሉ (€ ~The ቀን € ™ changedâ አለው); ማለቅ;
አሰራር TForm1.Button2Click (የላኪ: TObject); MyDate.Day:=29 ይጀምራሉ; መጨረሻ {ከውስጥ ክስተት መተኮሱን) DoChange (invokes ይህም SetDate () በመጠቀም, ቀን ንብረት ላይ ጽፈዋል};
መጨረሻ.
አሃድ Date3;
በይነገጽ SysUtils, ክፍሎች ይጠቀማል;
TYPE TDate3 = ክፍል (TComponent) የግል FDay, FMonth, FYear: ቃል; DummyWord: ቃል; {- ክስተት ንብረት —}
{1} FOnChange: TNotifyEvent; {ነገር መካከል: (TObject የላኪ) ሥነ ሥርዓት ክስተት አይነት እንደ አወጀ;}
የተጠበቀ ሥነ SetDay (newDay: ቃል);
{3} ሂደት DoChange; ተለዋዋጭ; {ሲጠራ ክስተት የሚለቀቁትን}
የሕዝብ ግንበኛ (AOwner: TComponent) መፍጠር;
የታተመ ንብረት ቀን: ቃል ማንበብ FDay ጻፍ SetDay; ንብረት ወር: ቃል DummyWord መጻፍ FMonth ማንበብ; ንብረት ዓመት: ቃል FYear DummyWord መጻፍ ተነባቢ;
{2} ንብረት OnChange: TNotifyEvent FOnChange FOnChange መጻፍ ማንበብ; ማለቅ;
ሥነ ይመዝገቡ;
ተግባራዊ
ሥነ ይመዝገቡ; (€ ~Samplesâ € ™, [TDate3] ሀ) RegisterComponents ይጀምራሉ; ማለቅ;
ግንበኛ TDate3.Create (AOwner: TComponent); (AOwner) ይፍጠሩ የወረሰው ይጀምራሉ;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ማለቅ;
{4} ሥነ TDate3.SetDay (newDay: ቃል); {ቀን ተለውጧል ነው “”€ አንድ ክስተት invokes}
FDay ጀምር: = newDay; {ይህ ክስተት ማሳወቂያ ነው}
{4} DoChange; {ይህ ተያያዥ አሠራር የፈጸመው ክስተት የሚለቀቁትን

FOnChange የተመደበውን ክስተት ተቆጣጣሪ} መጨረሻ ጥሪ በተግባር ነው (ራስን);
{3 ሀ} ሂደት TDate3.DoChange; (FOnChange) ከዚያም FOnChange (ራስን) የተሰጠ ከሆነ ጀምር; መጨረሻ {ይህ ክስተት ያስነሣው መቃወም በማለፍ ላይ ሳለ invokes ክስተት ተቆጣጣሪ የተጎዳኙ}; መጨረሻ.

“——————————————————————————————————————————————————

ترجمة الدعم: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 مكونات إطلاق الحدث
وحدة Unit1.
السطح البيني
الاستخدامات
ويندوز، الرسائل، SysUtils إلى ما، المتغيرات، فئات، الرسومات، عناصر التحكم، نماذج، الحوارات،
StdCtrls، Date3.

اكتب TForm1 = فئة (TForm) BUTTON1: TButton.
MyDate: TDate3.
BUTTON2: TButton.
الإجراء Button1Click (المرسل: TObject)؛

MyDateChange الداخلي (المرسل: TObject)؛ {المستعمل أعلن معالج (أي اسم). ويطلق على معالج عندما حدث € € œOnChangeâ والتي أطلقها MyDate (TDate3) المكون}
الإجراء Button2Click (المرسل: TObject)؛
خاص
{الإعلانات الخاصة}
عامة
{الإعلانات العامة}
النهاية؛

فار
Form1: TForm1.

التنفيذ
{$ R * .dfm}
الإجراء TForm1.Button1Click (المرسل: TObject)؛
ابدأ
MyDate: = TDate3.Create (النفس)؛ // بناء TDate3 كائن MyDate.OnChange: = MyDateChange. {معالج مساعد مع معيار € € œOnChangeâ الحدث}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

النهاية؛
الإجراء TForm1.myDateChange (المرسل: TObject)؛ {معالج الحدث الفعلي} تبدأ ShowMessage (â € ~The اليوم قد changedâ € ™)؛ النهاية؛
الإجراء TForm1.Button2Click (المرسل: TObject)؛ تبدأ MyDate.Day:=29. {يكتب في الملكية يوم، وذلك باستخدام SetDate () الذي من داخل استدعاء DoChange () إطلاق الحدث} الغاية؛
النهاية.
وحدة Date3.
تستخدم واجهة SysUtils إلى ما والفصول.
نوع TDate3 = فئة (TComponent) الخاص FDay، FMonth، FYear: كلمة؛ DummyWord: كلمة. {- خاصية الحدث —}
{1} FOnChange: TNotifyEvent. {نظام نوع الحدث أعلن على النحو التالي: الداخلي (المرسل: TObject) من وجوه؛}
محمية إجراء SetDay (newDay: وورد).
{3} DoChange الداخلي؛ حيوية؛ {عند استدعاء وقع الحدث}
منشئ العام إنشاء (AOwner: TComponent)؛
يوم الملكية المنشورة: كلمة قراءة FDay الكتابة SetDay. شهر الملكية: كلمة قراءة FMonth إرسال DummyWord. الملكية السنة: كلمة قراءة FYear إرسال DummyWord.
{2} الملكية عند_التغيير: TNotifyEvent قراءة FOnChange إرسال FOnChange. النهاية؛
التسجيل الداخلي؛
التنفيذ
التسجيل الداخلي؛ تبدأ RegisterComponents (â € € ™ ~Samplesâ، [TDate3])؛ النهاية؛
TDate3.Create منشئ (AOwner: TComponent)؛ تبدأ رثت خلق (AOwner)؛
DecodeDate (SysUtils.Date، FYear، FMonth، FDay)؛ النهاية؛
{4} الإجراء TDate3.SetDay (newDay: وورد). {استدعاء الحدث â € “”يتم تغيير اليوم}
تبدأ FDay: = newDay. {هذا هو أن يتم إعلامك الحدث}
{4} DoChange. {هذا وقع الحدث من خلال التذرع الإجراء المرتبط به

FOnChange (النفس) الذي هو في الواقع دعوة ل} نهاية تعيين معالج الحدث.
{3A} الإجراء TDate3.DoChange. تبدأ إذا المخصصة (FOnChange) ثم FOnChange (النفس)؛ {يتضرع المرتبطة معالج الحدث في حين تمرير فإنه يعترض الأمر الذي أثار الحدث} الغاية؛ النهاية.

“——————————————————————————————————————————————————

Support թարգմանությունը: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 բաղադրիչներ Կրակում իրադարձություն
միավորը Unit1;
ինտերֆեյս
օգտագործում
Windows, Messages, SysUtils, Տարբերակներ, դասեր, Գրաֆիկա, Վերահսկում, ձեւերը, երկխոսություններում,
StdCtrls, Date3;

մուտքագրել TForm1 = դասը (TForm) Button1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
կարգը Button1Click (առաքողի `TObject);

կարգը MyDateChange (առաքողի `TObject); {Օգտվողին հայտարարել է handler (ցանկացած անուն): The Handler կոչվում է, երբ â € œOnChangeâ € միջոցառմանը գնդակոծել է MyDate (TDate3) բաղադրիչի}
կարգը Button2Click (առաքողի `TObject);
մասնավոր
{Մասնավոր հայտարարագրերը}
Հասարակություն
{public հայտարարագրերը}
վերջ;

var
Form1: TForm1;

իրականացումը
{$ R * .dfm}
կարգը TForm1.Button1Click (առաքողի `TObject);
սկսել
MyDate: = TDate3.Create (ինքնակառավարման); // Կառուցել TDate3 օբյեկտային MyDate.OnChange: = MyDateChange; {Ասոցիացված handler հետ ստանդարտ â € œOnChangeâ € միջոցառմանը}
Showmessage (IntToStr (today.Day)):
Showmessage (IntToStr (today.Month)):
Showmessage (IntToStr (today.Year)):

վերջ;
կարգը TForm1.myDateChange (առաքողի `TObject); {Փաստացի Միջոցառումը handler} սկսում Showmessage (â € ~The օրը changedâ € ™). վերջ;
կարգը TForm1.Button2Click (առաքողի `TObject); սկսում MyDate.Day:=29~~dobj; {Գրում է օրվա սեփականության, օգտագործելով SetDate (), որը ներսից վկայակոչում DoChange () կրակում միջոցառման} վերջ.
վերջը:
միավորը Date3;
միջերեսը օգտագործում SysUtils, դասերում.
ՏԵՍԱԿԸ TDate3 = դասը (TComponent) մասնավոր FDay, FMonth, FYear: Word; DummyWord: word; {- Միջոցառումը գույքը —}
{1} FOnChange: TNotifyEvent; {Համակարգային իրադարձություն տեսակը հայտարարել է, որպես կարգը (Sender: TObject) եւ օբյեկտի;}
պաշտպանված կարգը SetDay (NewDay: Word),
{3} կարգը DoChange. դինամիկ; {Երբ վկայակոչվել ազատում միջոցառումը}
հասարակական կոնստրուկտոր ստեղծել (AOwner: TComponent);
հրատարակվել է գույքը Օր: word կարդալ FDay գրել SetDay. գույքի Ամիս: word կարդալ FMonth գրել DummyWord. գույքի տարին: word կարդալ FYear գրել DummyWord.
{2} գույքը OnChange: TNotifyEvent կարդալ FOnChange գրել FOnChange. վերջ;
կարգը Գրանցում;
իրականացումը
կարգը Գրանցում; սկսում RegisterComponents (A € ~Samplesâ € ™, [TDate3]); վերջ;
կոնստրուկտոր TDate3.Create (AOwner: TComponent); Սկիզբ ժառանգել Ստեղծել (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); վերջ;
{4} կարգը TDate3.SetDay (NewDay: Word), {Վկայակոչում միջոցառումը â € “”օրը փոխվում}
Սկիզբ FDay: = NewDay; {Սա մեծ իրադարձություն է տեղեկանալ}
{4} DoChange; {Այս ազատում միջոցառումը, հիշատակելով իր հետ կապված ընթացակարգը

FOnChange (ինքնակառավարման), որը, ըստ էության, զանգահարել է նշանակվել միջոցառումը handler} վերջ.
{3A} ընթացակարգ TDate3.DoChange. Սկիզբ եթե նշանակվել (FOnChange), ապա FOnChange (ինքնակառավարման); {Վկայակոչում ասոցացվում միջոցառման handler տարածութիւններ անցնելիս, այն առարկան, որը բարձրացրել է միջոցառման} վերջ. վերջը:

“——————————————————————————————————————————————————

Support tərcümə: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Atış Hadisə
Unit Unit1;
interface
istifadə
Windows, Mesajlar, SysUtils, Variantlar, Dərslər, Graphics, Controls, formaları, Dialoqlar,
StdCtrls, Date3;

TForm1 = class (TForm) Button1 növü: TButton;
MyDate: TDate3;
BUTTON2: TButton;
proseduru Button1Click (Sender: TObject);

proseduru MyDateChange (Sender: TObject); {Istifadəçi handler (hər hansı bir adı) elan etdi. € œOnChangeâ € hadisə MyDate (TDate3) komponent} tərəfindən atəşə zaman Handler adlanır
proseduru Button2Click (Sender: TObject);
xüsusi
{Private bəyanatlar}
ictimai
{Public bəyanatlar}
son;

var
Form1: TForm1;

icra
{$ R * .dfm}
proseduru TForm1.Button1Click (Sender: TObject);
başlamaq
MyDate: = TDate3.Create (özünü); // TDate3 object MyDate.OnChange tikintisi: = MyDateChange; {Standart â € œOnChangeâ € hadisə ilə şərik handler}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

son;
proseduru TForm1.myDateChange (Sender: TObject); {Faktiki hadisə handler} ShowMessage başlayır (€ ~The gün € ™ changedâ olan bir); son;
proseduru TForm1.Button2Click (Sender: TObject); MyDate.Day:=29~~dobj başlayır; son {daxilində hadisə atəş) DoChange (ibadət SetDate () istifadə edərək, Day mülkiyyət yazır};
son.
Unit Date3;
interface SysUtils, Dərslər istifadə edir;
TYPE TDate3 = class (TComponent) özəl FDay, FMonth, FYear: Word; DummyWord: söz; {- Hadisə əmlak —}
{1} FOnChange: TNotifyEvent; {Obyekt: (TObject Sender) proseduru sistem hadisə növü elan;}
mühafizə proseduru SetDay (Newday: Word);
{3} proseduru DoChange; dinamik; {Istinad zaman hadisə edib}
ictimai konstruktor (AOwner: TComponent) yaradılması;
nəşr əmlak Day: söz oxumaq FDay write SetDay; Əmlak Ay: söz DummyWord yazmaq FMonth oxumaq; Əmlak Buraxılış ili: söz FYear DummyWord yazmaq oxumaq;
{2} əmlak OnChange: TNotifyEvent FOnChange FOnChange yazmaq oxumaq; son;
proseduru Qeydiyyatdan;
icra
proseduru Qeydiyyatdan; (€ ~Samplesâ € ™ [TDate3] a) RegisterComponents başlayır; son;
konstruktor TDate3.Create (AOwner: TComponent); (AOwner) yaradın miras başlayın;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); son;
{4} proseduru TDate3.SetDay (Newday: Word); {Gün dəyişib â € “”hadisə çağırır}
FDay başlayın: = Newday; {Bu hadisə xəbərdar edilir}
{4} DoChange; {Bu onun bağlı proseduru çağıraraq hadisəni edib

FOnChange təyin hadisə handler} sonuna zəng əslində (özünü);
{3a} proseduru TDate3.DoChange; (FOnChange) sonra FOnChange (özünü) təyin əgər başlayın; son {Bu hadisə qaldırılmış olan etiraz keçərkən ibadət hadisə handler bağlı}; son.

“——————————————————————————————————————————————————

Itzulpengintza euskarria: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Osagaiak Tiro Event
Unitate Unit 1;
interface
erabilerak
Windows, mezuak, SysUtils, aldaerak, Klaseak, grafikoak, kontrolak, Formak, koadroak,
StdCtrls, Date3;

idatz TForm1 = class (TForm) BUTTON1: TButton;
MyDate: TDate3;
Button2: TButton;
Prozedura Button1Click (Sender: TObject);

Prozedura MyDateChange (Sender: TObject); {User deklaratu handler (edozein izen). Handler deritzo denean â € œOnChangeâ € gertaera da MyDate du (TDate3) osagaia} kaleratua
Prozedura Button2Click (Sender: TObject);
pribatua
{Deklarazioak Pribatua}
publikoak
{Deklarazioak Publikoa}
bukatzen;

var
Form1: TForm1;

ezartzeko
{$ R * .dfm}
Prozedura TForm1.Button1Click (Sender: TObject);
hasiko
MyDate: = TDate3.Create (auto); // Eraikitzeko TDate3 objektu MyDate.OnChange: = MyDateChange; {Â € standard œOnChangeâ € ekitaldi batera handler elkartua}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

bukatzen;
Prozedura TForm1.myDateChange (Sender: TObject); {Benetako gertaera kudeatzailea} hasiko ShowMessage (â € ~The egun changedâ ditu € ™); bukatzen;
Prozedura TForm1.Button2Click (Sender: TObject); Hasteko MyDate.Day:=29; {Day jabetza idazten, SetDate () zein barrutik deituko DoChange () gertaera tiro erabiliz} bukaeran;
amaieran.
Unitate Date3;
interface SysUtils, Klaseak erabiltzen;
TYPE TDate3 = class (TComponent) pribatua FDay, FMonth, FYear: Word; DummyWord: hitza; {- Gertaera jabetza —}
{1} FOnChange: TNotifyEvent; {: Prozedura sistema ekitaldi mota gisa deklaratu (Sender: TObject) objektuaren;}
babestuta prozedura SetDay (newday: Word);
{3} prozedura DoChange; dinamikoa; {Denean Deitua gertaera suteak}
eraikitzaile publiko Sortu (AOwner: TComponent);
argitaratutako jabetza eguna: hitza irakurri eta idazteko FDay SetDay; Jabetza Hilabetea: hitza irakurri FMonth idatzi DummyWord; Jabetza Urtea: hitza irakurri FYear idatzi DummyWord;
{2} jabetza aldatzerakoan: TNotifyEvent irakurri FOnChange idatzi FOnChange; bukatzen;
Prozedura Erregistroan;
ezartzeko
Prozedura Erregistroan; RegisterComponents (â € ~Samplesâ € ™, [TDate3]) hasi; bukatzen;
eraikitzaile TDate3.Create (AOwner: TComponent); Hasi heredatu Sortu (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); bukatzen;
{4} prozedura TDate3.SetDay (newday: Word); {Gertaera deituko â € “”egun aldatu da}
Hasi FDay: = newday; {Hau da gertaera jakinarazpena jasotzeko}
{4} DoChange; {Gertakariaren eta suteak bere lotutako prozedura dei eginez

FOnChange (auto) zein da benetan, esleitutako gertaera kudeatzailea} amaieran deitu;
{} 3a prozedura TDate3.DoChange; Hasi oinarrituta (FOnChange) ondoren FOnChange (auto); {Deitzen lotutako gertaera kudeatzailea berriz pasatzen eta hori gertaera planteatu oposiziorako da} bukaeran; amaieran.

“——————————————————————————————————————————————————

пераклад Падтрымка: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Кампаненты для распальвання падзей
Блок Unit1;
інтэрфейс
выкарыстання
Вокны, Паведамленні, SysUtils, варыянты, класы, графікі, кіравання, формы, Дыялогі,
StdCtrls, Date3;

тып TForm1 = клас (TFORM) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Працэдура Button1Click (Sender: TObject);

Працэдура MyDateChange (Sender: TObject); {Карыстальнік абвешчаны апрацоўшчык (любое імя). Апрацоўшчык выклікаецца, калі â € œOnChangeâ € падзея выклікаецца па MyDate (TDate3) кампанента}
Працэдура Button2Click (Sender: TObject);
прыватны
{} Прыватныя дэкларацыі
грамадскасці
{} Публічных дэкларацый
канец;

вар
Form1: TForm1;

рэалізацыя
{$ R * .dfm}
Працэдура TForm1.Button1Click (Sender: TObject);
пачаць
MyDate: = TDate3.Create (сама); // Пабудаваць TDate3 аб’ект MyDate.OnChange: = MyDateChange; {Асацыяваць апрацоўшчык са стандартным â € œOnChangeâ € падзея}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.month)):
ShowMessage (IntToStr (today.Year)):

канец;
Працэдура TForm1.myDateChange (Sender: TObject); {Фактычны апрацоўшчык падзей} пачаць ShowMessage (â € ~ The дзень changedâ € ™); канец;
Працэдура TForm1.Button2Click (Sender: TObject); пачынаюць MyDate.Day:=29~~dobj; {Піша ўласнасць дзень, выкарыстоўваючы SETDATE (), які знутры выклікае DoChange () абпал падзея} канец;
канец.
Блок Date3;
інтэрфейс выкарыстоўвае SysUtils, класы;
ТЫП TDate3 = клас (ТСотропепЬ) прыватнае FDay, FMonth, FYear: Word; DummyWord: слова; {- Уласцівасць падзеі —}
{1} FOnChange: TNotifyEvent; {Сістэма тып падзеі абвешчаны як: працэдура (Sender: TObject) аб’екта;}
абароненая працэдура SetDay (NewDay: Word);
{3} працэдура DoChange; дынамічны; {Пры выкліку запускае падзея}
адкрыты канструктар Create (AOwner: TComponent);
апублікаваныя Дзень уласнасці: слова чытання FDay запісу SetDay; Ўласцівасць месяц: прачытанае слова FMonth напісаць DummyWord; Ўласцівасць Год: слова чытаць FYear пісаць DummyWord;
{2} ўласцівасць OnChange: TNotifyEvent чытання FOnChange напісаць FOnChange; канец;
Працэдура рэгістрацыі;
рэалізацыя
Працэдура рэгістрацыі; пачынаюць RegisterComponents (â € ~ Samplesâ € ™, [TDate3]); канец;
Канструктар TDate3.Create (AOwner: ТСотропепЬ); Пачатак атрымалі ў спадчыну Стварыць (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); канец;
{4} працэдура TDate3.SetDay (NewDay: Word); {Выклікае падзея â € “”дзень мяняецца}
Пачатак FDay: = NewDay; {Гэта падзея, каб атрымліваць апавяшчэнні}
{4} DoChange; {Гэта запускае падзея, выклікаўшы звязаную з ім працэдуру

FOnChange (Я), якая на самой справе патэлефанаваць у Апрацоўшчык падзеі} канца;
{3a} працэдура TDate3.DoChange; Пачніце, калі Assigned (FOnChange), то FOnChange (сама); {Выклікае звязаны апрацоўшчык падзеі падчас праходжання яго аб’ект, які выклікаў падзея} канец; канец.

“——————————————————————————————————————————————————

সাপোর্ট অনুবাদ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 উপাদান ফায়ারিং ইভেন্ট
ইউনিট Unit1;
ইন্টারফেস
ব্যবহারসমূহ
উইন্ডোজ, বার্তা, SysUtils, রুপভেদ, ক্লাস, গ্রাফিক্স, নিয়ন্ত্রণ, ফরম, ডায়ালগ,
StdCtrls, Date3;

টাইপ TForm1 = বর্গ (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
কার্যপ্রণালী Button1Click (প্রেরকের: TObject);

কার্যপ্রণালী MyDateChange (প্রেরকের: TObject); {ব্যবহারকারী হ্যান্ডলার (যে কোন নাম) ঘোষণা করেন. যখন একটি € œOnChangeâ € ঘটনা MyDate (TDate3) কম্পোনেন্ট} দ্বারা বহিস্কার করা হয় হ্যান্ডলার বলা হয়
কার্যপ্রণালী Button2Click (প্রেরকের: TObject);
ব্যক্তিগত
{ব্যক্তিগত ঘোষণা}
প্রকাশ্য
{পাবলিক ঘোষণা}
শেষ;

Var
Form1: TForm1;

বাস্তবায়ন
{$ রাঃ * .dfm}
কার্যপ্রণালী TForm1.Button1Click (প্রেরকের: TObject);
শুরু করা
MyDate: = TDate3.Create (স্ব); // নির্মাণে TDate3 বস্তুর MyDate.OnChange: = MyDateChange; {মান একটি € œOnChangeâ € ঘটনা সঙ্গে সহযোগী হ্যান্ডলার}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

শেষ;
কার্যপ্রণালী TForm1.myDateChange (প্রেরকের: TObject); {আসল ইভেন্ট হ্যান্ডলার সঠিক নয়} ShowMessage শুরু (একটি € ~The দিন € ™ changedâ হয়েছে); শেষ;
কার্যপ্রণালী TForm1.Button2Click (প্রেরকের: TObject); MyDate.Day:=29 শুরু; {দিবস সম্পত্তিতে লিখেছেন, SetDate () যা ভিতর থেকে ডাকে DoChange () ঘটনা গুলি ব্যবহার} শেষ;
শেষ.
ইউনিট Date3;
ইন্টারফেস SysUtils, ক্লাস ব্যবহার করে;
টাইপ TDate3 = বর্গ (TComponent) ব্যক্তিগত FDay, FMonth, FYear: ওয়ার্ড; DummyWord: শব্দ; {- ঘটনা সম্পত্তি —}
{1} FOnChange: TNotifyEvent; {: পদ্ধতি সিস্টেম ইভেন্ট টাইপ হিসেবে ঘোষণা: বস্তুর (প্রেরকের TObject);}
সংরক্ষিত পদ্ধতি SetDay (newDay: ওয়ার্ড);
{3} পদ্ধতি DoChange; গতিশীল; {যখন প্রার্থনা ঘটনা আগুন}
পাবলিককন্সট্রাকটর (AOwner: TComponent) তৈরি করুন;
প্রকাশিত সম্পত্তি দিবস: শব্দ পড়তে FDay লেখ SetDay; সম্পত্তি মাস: শব্দ DummyWord লিখতে FMonth পড়া হয়; সম্পত্তি বছর: শব্দ read FYear লিখতে DummyWord;
{2} সম্পত্তি OnChange: TNotifyEvent পড়া FOnChange লিখতে FOnChange; শেষ;
কার্যপ্রণালী নিবন্ধন;
বাস্তবায়ন
কার্যপ্রণালী নিবন্ধন; RegisterComponents (একটি € ~Samplesâ € ™ [TDate3]) শুরু; শেষ;
রচয়িতা TDate3.Create (AOwner: TComponent); উত্তরাধিকারসূত্রে পাওয়া তৈরি করুন (AOwner) শুরু;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); শেষ;
{4} পদ্ধতি TDate3.SetDay (newDay: ওয়ার্ড); {একটি € ঘটনা এমন কিছুকে ডাকে, “”প্রতিদিন পরিবর্তিত হয়}
FDay শুরু: = newDay; {এই ঘটনা অবহিত করা হয়}
{4} DoChange; {এই তার যুক্ত পদ্ধতি invoking দ্বারা ঘটনা আগুন

FOnChange (স্ব) যা আসলে নির্ধারিত ইভেন্ট হ্যান্ডলার সঠিক নয়} শেষ কল;
{3a} পদ্ধতি TDate3.DoChange; যদি বরাদ্দ (FOnChange) তারপর FOnChange (স্ব) শুরু; {পূজা ইভেন্ট হ্যান্ডলার সঠিক নয় যুক্ত যখন পাশ এটা অবজেক্ট যা ঘটনা উত্থাপিত} শেষ; শেষ.

“——————————————————————————————————————————————————

prijevod podrška: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponente pečenja Event
jedinica Unit1;
sučelje
namjene
Windows, Poruke, sysutils, Varijante, Nastava, grafika, kontrole, oblika, Dijalozi,
StdCtrls, Date3;

tip TForm1 = klase (TForm) Button1: TDugme;
MyDate: TDate3;
Button2: TDugme;
Postupak Button1Click (Sender: TObject);

Postupak MyDateChange (Sender: TObject); {Korisnik proglašen za pretovar (bilo koje ime). U Handler se zove kada je € œOnChangeâ € događaj je otkaz od strane MyDate (TDate3) komponenta}
Postupak Button2Click (Sender: TObject);
privatan
{Private deklaracije}
javnost
{Public deklaracije}
završiti;

Var
Form1: TForm1;

izvršenje
{$ R * .dfm}
Postupak TForm1.Button1Click (Sender: TObject);
početi
MyDate: = TDate3.Create (samo); // Izgraditi TDate3 MyDate.OnChange objekta: = MyDateChange; {Saradnik za pretovar sa standardnim â € œOnChangeâ € događaj}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

završiti;
Postupak TForm1.myDateChange (Sender: TObject); {Stvarni event handler} početi ShowMessage (dnevno € ~The je changedâ € ™); završiti;
Postupak TForm1.Button2Click (Sender: TObject); početi MyDate.Day:=29; {Piše Dan imovine, koristeći setDatum () koja iznutra poziva DoChange () pucaju događaja} kraj;
kraj.
jedinica Date3;
sučelje koristi sysutils, klase;
TIP TDate3 = klase (TComponent) privatni FDay, FMonth, FYear: Word; DummyWord: riječ; {- Event imovine —}
{1} FOnChange: TNotifyEvent; {Sistema tip događaja proglašen kao: Postupak (Sender: TObject) objekta;}
zaštićeni postupak SetDay (NewDay: Word);
{3} postupku DoChange; dinamični; {, Koristeći puca događaja}
javni konstruktor Kreirajte (AOwner: TComponent);
objavljen dan imovine: riječ čitati FDay pisanja SetDay; imovine Mjesec: riječ čitati FMonth pišu DummyWord; nekretnine Godina: riječ pročitajte FYear pišu DummyWord;
{2} imovine OnPromeni: TNotifyEvent čitati FOnChange pišu FOnChange; završiti;
postupak registar;
izvršenje
postupak registar; početi RegisterComponents (â € ~Samplesâ € ™, [TDate3]); završiti;
konstruktor TDate3.Create (AOwner: TComponent); Begin naslijedila Kreirajte (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); završiti;
{4} postupak TDate3.SetDay (NewDay: Word); {Poziva događaj € “”dan je promijenjen}
Početi FDay: = NewDay; {To je događaj biti obaviješteni}
{4} DoChange; {Ovaj puca slučaju pozivajući svoje povezane postupak

FOnChange (samo) koja je zapravo poziv na zadatu event handler} kraj;
{3a} postupku TDate3.DoChange; Početi ako je određen (FOnChange), a zatim FOnChange (samo); {Priziva povezani event handler dok prolazi to predmet koji podigla događaj} kraj; kraj.

“——————————————————————————————————————————————————

Подкрепа превод: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Компоненти за разпалване на Събитията
единица Unit1;
интерфейс
употреби
Windows, Съобщения, SysUtils, варианти, Уроци, Graphics, Controls, форми, диалози,
StdCtrls, DATE3;

въведете TForm1 = клас (TForm) Button1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
процедура Button1Click (Sender: TObject);

процедура MyDateChange (Sender: TObject); {Потребителското обявен манипулатор (всяко име). Водачът се нарича, когато един € œOnChangeâ € събитие е уволнен от MyDate (TDate3) компонент}
процедура Button2Click (Sender: TObject);
частен
{Частни декларации}
обществен
{публични декларации}
край;

Var
Form1: TForm1;

изпълнение
{$ R * .dfm}
процедура TForm1.Button1Click (Sender: TObject);
започвам
MyDate: = TDate3.Create (самостоятелно); // Конструиране TDate3 обект MyDate.OnChange: = MyDateChange; {Сътрудник манипулатор със стандартната â € œOnChangeâ € събитието}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

край;
процедура TForm1.myDateChange (Sender: TObject); {Действителната манипулатор събитие} започне ShowMessage (A € ~The ден е changedâ € ™); край;
процедура TForm1.Button2Click (Sender: TObject); започне MyDate.Day:=29; {Пише за Ден имот, използвайки SetDate (), който от вътре се позовава DoChange () изпичане на събитие} края;
край.
единица DATE3;
интерфейс използва SysUtils, класове;
TYPE TDate3 = клас (TComponent) лично FDay, FMonth, FYear: Word; DummyWord: дума; {- Събитие имот —}
{1} FOnChange: TNotifyEvent; {Система тип събитие обявен като: процедура (Sender: TObject) на обект;}
защитено процедура SetDay (newDay: Word);
{3} процедура DoChange; динамичен; {Когато извиква пожари случай}
общественото конструктор Създаване (AOwner: TComponent);
публикувано Ден имот: дума чете FDay запис SetDay; имот Месец: дума чете FMonth напиши DummyWord; имот Година: дума прочети FYear напиши DummyWord;
{2} имот OnChange: TNotifyEvent чете FOnChange напиши FOnChange; край;
процедура регистър;
изпълнение
процедура регистър; започне RegisterComponents (A € ~Samplesâ € ™, [TDate3]); край;
конструктор TDate3.Create (AOwner: TComponent); Започнете да наследи Създаване (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); край;
{4} процедура TDate3.SetDay (newDay: Word); {Позовава събитие € “”ден е променен}
Започнете FDay: = newDay; {Това е събитието да бъде уведомен}
{4} DoChange; {Този пожари случай, като се позовава свързаната процедура

FOnChange (самостоятелно), която всъщност е призив за възложената събитие манипулатор} края;
{3а} процедура TDate3.DoChange; Започнете ако целеви (FOnChange) след FOnChange (самостоятелно); {Позовава свързани манипулатор събитие, при преминаване има възражения, които повдигна събитие} края; край.

“——————————————————————————————————————————————————

traducció de suport: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Esdeveniment
Unit1 unitat;
interfície
usos
Finestres, missatges, SysUtils, variants, classes, gràfics, controls, formularis, quadres de diàleg,
StdCtrls, fecha3;

escrigui TForm1 = class (TForm) Button1: TButton;
MiFecha: TDate3;
Botón2: TButton;
procediment Button1Click (Sender: TObject);

MyDateChange procediment (Sender: TObject); {User declarar gestor (qualsevol nom). El controlador es diu quan â € € œOnChangeâ esdeveniment es dispara pel MiFecha (TDate3) component}
procediment Button2Click (Sender: TObject);
privat
{} Declaracions privades
públic
{} Les declaracions públiques
final;

var
Form1: TForm1;

implementació
{$ R * .dfm}
procediment TForm1.Button1Click (Sender: TObject);
començar
MiFecha: = TDate3.Create (auto); // Construir TDate3 objecte MyDate.OnChange: = MyDateChange; {Manejador associat amb la norma € â € œOnChangeâ esdeveniment}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

final;
procediment TForm1.myDateChange (Sender: TObject); {} Controlador d’esdeveniments reals comencen ShowMessage (â € ~ dia ha changedâ € ™); final;
procediment TForm1.Button2Click (Sender: TObject); començarà MyDate.Day:=29; {Escriu a la propietat Dia, utilitzant SetDate () que invoca des de l’interior DoChange () disparant l’esdeveniment} end;
final.
fecha3 unitat;
interfície utilitza SysUtils, les classes;
TIPUS TDate3 = class (TComponent) fday privada, FMonth, FYear: Word; DummyWord: Paraula; {-} — Propietat d’esdeveniment
{1} FOnChange: TNotifyEvent; {Sistema de tipus d’esdeveniment declarat com: Procediment (Sender: TObject) de l’objecte;}
procediment protegida setDay (Newday: Word);
{3} DoChange procediment; dinàmica; {Quan s’invoca desencadena l’esdeveniment}
Crear constructor públic (AOwner: TComponent);
publicada el dia propietat: llegir la paraula fday setDay escriptura; Mes propietat: paraula llegida FMonth escriure DummyWord; Any propietat: Paraula llegida FYear escriure DummyWord;
{2} propietat onChange: TNotifyEvent llegir FOnChange escriure FOnChange; final;
Registre procediment;
implementació
Registre procediment; començarà RegisterComponents (â € ~ Samplesâ € ™, [TDate3]); final;
TDate3.Create constructor (AOwner: TComponent); Comenceu heretat Crear (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, fday); final;
{4} procediment TDate3.SetDay (Newday: Word); {Invoca esdeveniment â € “”es canvia dia}
Comenceu fday: = Newday; {Aquest és l’esdeveniment per a ser notificat}
{4} DoChange; {Això desencadena l’esdeveniment invocant el seu procediment associat

FOnChange (auto) que en realitat és cridar a l’extrem assignat controlador d’esdeveniments};
{3a} TDate3.DoChange procediment; Comenceu si Assignat (FOnChange), llavors FOnChange (auto); {Invoca el controlador d’esdeveniments associats al passar de l’immoble, que ha provocat l’esdeveniment} end; final.

“——————————————————————————————————————————————————

Support hubad: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Hitabo
yunit sa Unit1;
interface
gamit
Windows, Mensahe, SysUtils, baryant, klase, Graphics, Mokontrolar, porma, Dialogs,
StdCtrls, Date3;

type TForm1 = klase (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
pamaagi Button1Click (Tigdala: TObject);

pamaagi MyDateChange (Tigdala: TObject); {User mipahayag handler (sa bisan unsa nga ngalan). Handler gitawag sa diha nga â € œOnChangeâ € nga hitabo mao ang nagpabuto sa MyDate (TDate3) component}
pamaagi Button2Click (Tigdala: TObject);
pribado nga
{Private pamahayag}
sa publiko
{Public pamahayag}
matapos;

var
Form1: TForm1;

pagpatuman
{$ R * .dfm}
pamaagi TForm1.Button1Click (Tigdala: TObject);
magsugod
MyDate: = TDate3.Create (sa kaugalingon); // Pagtukod TDate3 butang MyDate.OnChange: = MyDateChange; {Associate handler sa mga sumbanan nga â € œOnChangeâ € nga hitabo}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

matapos;
pamaagi TForm1.myDateChange (Tigdala: TObject); {Aktuwal nga panghitabo handler} magsugod ShowMessage (â € ~The adlaw nga changedâ € ™); matapos;
pamaagi TForm1.Button2Click (Tigdala: TObject); magsugod MyDate.Day:=29; {Misulat ngadto sa Adlaw sa kabtangan, sa paggamit sa SetDate () nga gikan sa sulod nagpanalangin DoChange () pagpahawa sa maong kalihukan} katapusan;
katapusan.
yunit sa Date3;
interface naggamit SysUtils, klase;
MATANGA TDate3 = klase (TComponent) pribado nga FDay, FMonth, FYear: Pulong; DummyWord: pulong; {- Nga panghitabo kabtangan —}
{1} FOnChange: TNotifyEvent; {Sistema sa matang nga hitabo gipahayag ingon: pamaagi (Tigdala: TObject) sa butang;}
gipanalipdan pamaagi SetDay (newDay: Pulong);
{3} pamaagi DoChange; dinamikong; {Sa diha nga ikapangaliyupo sunog sa maong kalihukan}
publiko nga magbubuhat Paghimo (AOwner: TComponent);
nga gipatik sa Adlaw sa kabtangan: ang pulong sa pagbasa FDay isulat SetDay; kabtangan Month: pulong sa pagbasa FMonth pagsulat DummyWord; kabtangan Tuig: pulong basaha FYear isulat DummyWord;
{2} kabtangan OnChange: TNotifyEvent pagbasa FOnChange pagsulat FOnChange; matapos;
pamaagi Register;
pagpatuman
pamaagi Register; magsugod RegisterComponents (â € ~Samplesâ € ™, [TDate3]); matapos;
magbubuhat TDate3.Create (AOwner: TComponent); Sugdi napanunod Paghimo (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); matapos;
{4} pamaagi TDate3.SetDay (newDay: Pulong); {Nagpanalangin nga panghitabo â € “”adlaw nausab}
Sugdi FDay: = newDay; {Kini mao ang nga panghitabo nga gipahibalo}
{4} DoChange; {Kini sunog sa maong kalihokan pinaagi sa pagsangpit sa iyang nakig pamaagi

FOnChange (sa kaugalingon) nga mao ang sa pagkatinuod sa pagtawag sa gitudlo nga nga hitabo handler} katapusan;
{3a} pamaagi TDate3.DoChange; Sugdi kon assign (FOnChange) unya FOnChange (sa kaugalingon); {Nagpanalangin nakig nga hitabo handler samtang nga moagi niini nga mosupak nga nagbanhaw sa maong kalihukan} katapusan; katapusan.

“——————————————————————————————————————————————————

Support kumasulira: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Zigawo kuwombera Chochitika
gulu Unit1;
mawonekedwe
ntchito
Windows, Mauthenga, SysUtils, mitundu, magulu, Zojambula, amazilamulira, Mitundu, Dialogs,
StdCtrls, Date3;

kutayipa TForm1 = kalasi (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Ndondomeko Button1Click (Sender: TObject);

Ndondomeko MyDateChange (Sender: TObject); {Wosuta anati wothandizira (dzina). Wothandizira imatchedwa pamene â € œOnChangeâ € chochitika ndi zipolopolo ndi MyDate (TDate3) chigawo chimodzi}
Ndondomeko Button2Click (Sender: TObject);
paokha
{Private odzawonelera}
boma
{Odzawonelera Public}
TSIRIZA;

var
Form1: TForm1;

kukhazikitsa
{$ .dfm R *}
Ndondomeko TForm1.Button1Click (Sender: TObject);
yamba
MyDate: = TDate3.Create (ena); // Kumanga TDate3 chinthu MyDate.OnChange: = MyDateChange; {Anzake wothandizira ndi muyezo â € œOnChangeâ € chochitika}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

TSIRIZA;
Ndondomeko TForm1.myDateChange (Sender: TObject); {Weniweni chochitika wothandizira} anayamba ShowMessage (â € ~The tsiku changedâ € ™); TSIRIZA;
Ndondomeko TForm1.Button2Click (Sender: TObject); kuyamba MyDate.Day:=29; {Analemba kuti Tsiku chuma, ntchito SetDate () omwe mkati invokes DoChange () kuwombera mwambo} mapeto;
TSIRIZA.
gulu Date3;
mawonekedwe amagwiritsa SysUtils, Makalasi;
MTUNDU TDate3 = kalasi (TComponent) payekha FDay, FMonth, FYear: Mawu; DummyWord; mawu; {- Chochitika katundu —}
{1} FOnChange: TNotifyEvent; {Chochitika mtundu dongosolo ananena monga: Ndondomeko (Sender: TObject) wa chinthu;}
kutetezedwa ndondomeko SetDay (newDay: Mawu);
{3} ndondomeko DoChange; zazikulu; {Pamene chikumbutso changa moto chochitika}
constructor pagulu Pangani (AOwner: TComponent);
Tsiku lofalitsidwa katundu: mau kuwerenga FDay lemba SetDay; katundu Mwezi: mau kuwerenga FMonth kulemba DummyWord; katundu Chaka: mawu werengani FYear kulemba DummyWord;
{2} katundu OnChange: TNotifyEvent kuwerenga FOnChange kulemba FOnChange; TSIRIZA;
Ndondomeko Register;
kukhazikitsa
Ndondomeko Register; kuyamba RegisterComponents (â € ~Samplesâ € ™, [TDate3]); TSIRIZA;
constructor TDate3.Create (AOwner: TComponent); Yambani tinatengera Pangani (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); TSIRIZA;
{4} ndondomeko TDate3.SetDay (newDay: Mawu); {Invokes mwambo â € “”tsiku anasintha}
Yambani FDay: = newDay; {Izi ndi mwambo kuti analidziwitsa}
{4} DoChange; {Izi moto chochitika potchula ndondomeko yake kugwirizana

FOnChange (ena) amene ali kuyesa kuti anapatsidwa chochitika wothandizira} mapeto;
{3a} ndondomeko TDate3.DoChange; Yambani ngati anatumizidwa (FOnChange) ndiye FOnChange (ena); {Invokes kugwirizana chochitika wothandizira pamene tikudutsa izo angatsutse amene anaukitsa mwambo} mapeto; TSIRIZA.

“——————————————————————————————————————————————————

支持翻译:http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23组件触发事件
单元1单元;
接口
用途
Windows的消息,SysUtils单元,变体,类图形,控件,表格,对话框,
StdCtrls中,DATE3;

TForm1类=类(TForm的)Button1的:TButton的;
数值指明MyDate:TDate3;
按钮2:TButton的;
过程Button1Click(发件人:TObject的);

程序MyDateChange(发件人:TObject的); {用户声明处理器(任何名称)。当€œOnChangeâ€事件是由数值指明MyDate(TDate3)组件}解雇的处理程序被调用
程序Button2Click(发件人:TObject的);
私人的
{私人声明}
上市
{公开声明}
结束;

VAR
Form1中:TForm1;

履行
{$ R * .DFM}
过程TForm1.Button1Click(发件人:TObject的);
开始
数值指明MyDate:= TDate3.Create(个体经营); //构造TDate3对象MyDate.OnChange:= MyDateChange; {与标准的A€œOnChangeâ€事件关联句柄}
ShowMessage(IntToStr(today.Day)):
ShowMessage(IntToStr(today.Month)):
ShowMessage(IntToStr(today.Year)):

结束;
程序TForm1.myDateChange(发件人:TObject的); {实际的事件处理程序}开始ShowMessage(A€~The一天changed’);结束;
过程TForm1.Button2Click(发件人:TObject的);开始MyDate.Day:=29; {写入Day属性,使用的setDate()从内部调用DoChange()触发事件}结束;
结束。
单位DATE3;
接口使用SysUtils单元,班;
TYPE TDate3 =类(TComponent)私人FDay,FMonth,FYear:字; DummyWord:字; { – 事件属性—}
{1} FOnChange:TNotifyEvent; {系统事件类型声明为:过程:对象(发件人TObject的);}
保护程序SetDay(newDay:字);
{3}过程DoChange;动态; {调用时触发事件}
公共构造创建(AOwner:TComponent);
财产公布日:字读FDay写SetDay;物业月份:字读FMonth写DummyWord;物业年份:字读FYear写DummyWord;
{2}属性的OnChange:TNotifyEvent读FOnChange写FOnChange;结束;
程序注册;
履行
程序注册;开始RegisterComponents(A€~Samples’[TDate3]);结束;
构造TDate3.Create(AOwner:TComponent);继承开始创建(AOwner);
DecodeDate(SysUtils.Date,FYear,FMonth,FDay);结束;
{4}程序TDate3.SetDay(newDay:字); {调用事件A€“天改变}
开始FDay:= newDay; {这是被通知的情况下}
{4} DoChange; {通过调用它的相关程序触发事件

FOnChange(个体经营)实际上是调用指定的事件处理程序}结束;
{} 3A程序TDate3.DoChange;如果开始分配(FOnChange),然后FOnChange(个体经营); {调用相关的事件处理程序,同时向它传递对象,它引发的事件}结束;结束。

“——————————————————————————————————————————————————

支持翻譯:http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23組件觸發事件
單元1單元;
接口
用途
Windows的消息,SysUtils單元,變體,類圖形,控件,表格,對話框,
StdCtrls中,DATE3;

TForm1類=類(TForm的)Button1的:TButton的;
數值指明MyDate:TDate3;
按鈕2:TButton的;
過程Button1Click(發件人:TObject的);

程序MyDateChange(發件人:TObject的); {用戶聲明處理器(任何名稱)。當€œOnChangeâ€事件是由數值指明MyDate(TDate3)組件}解僱的處理程序被調用
程序Button2Click(發件人:TObject的);
私人的
{私人聲明}
上市
{公開聲明}
結束;

VAR
Form1中:TForm1;

履行
{$ R * .DFM}
過程TForm1.Button1Click(發件人:TObject的);
開始
數值指明MyDate:= TDate3.Create(個體經營); //構造TDate3對象MyDate.OnChange:= MyDateChange; {與標準的A€œOnChangeâ€事件關聯句柄}
ShowMessage(IntToStr(today.Day)):
ShowMessage(IntToStr(today.Month)):
ShowMessage(IntToStr(today.Year)):

結束;
程序TForm1.myDateChange(發件人:TObject的); {實際的事件處理程序}開始ShowMessage(A€~The一天changed’);結束;
過程TForm1.Button2Click(發件人:TObject的);開始MyDate.Day:=29; {寫入Day屬性,使用的setDate()從內部調用DoChange()觸發事件}結束;
結束。
單位DATE3;
接口使用SysUtils單元,班;
TYPE TDate3 =類(TComponent)私人FDay,FMonth,FYear:字; DummyWord:字; { – 事件屬性—}
{1} FOnChange:TNotifyEvent; {系統事件類型聲明為:過程:對象(發件人TObject的);}
保護程序SetDay(newDay:字);
{3}過程DoChange;動態; {調用時觸發事件}
公共構造創建(AOwner:TComponent);
財產公佈日:字讀FDay寫SetDay;物業月份:字讀FMonth寫DummyWord;物業年份:字讀FYear寫DummyWord;
{2}屬性的OnChange:TNotifyEvent讀FOnChange寫FOnChange;結束;
程序註冊;
履行
程序註冊;開始RegisterComponents(A€~Samples’[TDate3]);結束;
構造TDate3.Create(AOwner:TComponent);繼承開始創建(AOwner);
DecodeDate(SysUtils.Date,FYear,FMonth,FDay);結束;
{4}程序TDate3.SetDay(newDay:字); {調用事件A€“天改變}
開始FDay:= newDay; {這是被通知的情況下}
{4} DoChange; {通過調用它的相關程序觸發事件

FOnChange(個體經營)實際上是調用指定的事件處理程序}結束;
{} 3A程序TDate3.DoChange;如果開始分配(FOnChange),然後FOnChange(個體經營); {調用相關的事件處理程序,同時向它傳遞對象,它引發的事件}結束;結束。

“——————————————————————————————————————————————————

Traduction: Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Elvetia Event cocia
unità Unit1;
interfaccia
Nonza
Windows, Messages, SysUtils, Varianti, cucina, seria, Cuntrolli, Forme, Dialogs,
StdCtrls, Date3;

tipo TForm1 = classi (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
prucedura Button1Click (pirsuna ca spirisci: TObject);

prucedura MyDateChange (pirsuna ca spirisci: TObject); {Me dichjaratu baggage (ogni nomu). U V veni chiamatu quandu â € œOnChangeâ € evenimentu hè puniti da u MyDate (TDate3) cumpunenti}
prucedura Button2Click (pirsuna ca spirisci: TObject);
privatu
{Dichjarazione di Private}
pùbblicu
{Dichjarazione di Public}
finiscinu;

Var
Form1: TForm1;

matematiche
{$ R * .dfm}
prucedura TForm1.Button1Click (pirsuna ca spirisci: TObject);
comincia
MyDate: = TDate3.Create (àutu); // Custruiri TDate3 oggettu MyDate.OnChange: = MyDateChange; {Baggage assuciatu cu lu â mudellu di ballò € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

finiscinu;
prucedura TForm1.myDateChange (pirsuna ca spirisci: TObject); {Baggage ballò, a prucedura} comincia ShowMessage (ภghjornu € ~The hà changedâ € ™); finiscinu;
prucedura TForm1.Button2Click (pirsuna ca spirisci: TObject); comincia MyDate.Day:=29; {Scrivi à a pruprietà Day, usannu SetDate () chì da dentro invokes DoChange () cocia u ballò} fini;
fini.
unità Date3;
interfaccia usa SysUtils, cucina;
TYPE TDate3 = classi (TComponent) privatu FDay, FMonth, FYear: Parolla; DummyWord: parola; {- Pruprietà di ballò —}
{1} FOnChange: TNotifyEvent; {Sistema di tipu di ballò dichjaratu cum’è: prucedura (pirsuna ca spirisci: TObject) di oggettu;}
prucedura à difende SetDay (newDay: Parolla);
{3} prucedura DoChange; dinamichi; {Quandu invoked camini u ballò}
regala publicu Create (AOwner: TComponent);
Day pruprietà publicatu: parola leghje FDay SetDay scrivere; pruprietà Mesi: parola leghje FMonth scrìviri DummyWord; pruprietà Year: parola read FYear scrìviri DummyWord;
{2} pruprietà OnChange: TNotifyEvent leghje FOnChange scrìviri FOnChange; finiscinu;
prucedura Register;
matematiche
prucedura Register; comincia RegisterComponents (â € ~Samplesâ € ™, [TDate3]); finiscinu;
regala TDate3.Create (AOwner: TComponent); Begin ereditau Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); finiscinu;
{4} prucedura TDate3.SetDay (newDay: Parolla); {Invokes ballò, â € “”jornu hè cambiatu}
Begin FDay: = newDay; {Stu hè u ballò à esse dichjarata à tempu}
{4} DoChange; {Sta camini u ballò, da invoking u so prucessu assuciati

FOnChange (àutu) chì hè primurosu di chjama à la baggage eventu chi tocàt} fini;
{3a} prucedura TDate3.DoChange; Begin si tocàt (FOnChange) allura FOnChange (àutu); {Invokes assuciati baggage ballò, mentri passava lu oggettu chì hà risuscitatu u ballò} fini; fini.

“——————————————————————————————————————————————————

Podrška prijevod: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponente Ispaljivanje događanja
Jedinica Unit1;
sučelje
namjene
Prozori, Poruke, SysUtils, varijante, razredi, grafika, kontrola, obrasci, Dijalozi,
StdCtrls, DATE3;

upisati TForm1 = klase (TForm) BUTTON1: TButton;
MyDate: TDate3;
Button2: TButton;
Postupak Button1Click (Sender: TObject);

Postupak MyDateChange (Sender: TObject); {User proglašen rukovatelj (bilo koji naziv). Rukovatelj se zove kad â € œOnChangeâ € događaj je otkaz od strane MyDate (TDate3) komponentu}
Postupak Button2Click (Sender: TObject);
privatna
{Privatne deklaracije}
javnost
{Javne izjave}
kraj;

var
Form1: TForm1;

implementacija
{$ R * .dfm}
Postupak TForm1.Button1Click (Sender: TObject);
početi
MyDate: = TDate3.Create (samo); // Izgraditi TDate3 objekta MyDate.OnChange: = MyDateChange; {Suradnik rukovatelj sa standardnom â € œOnChangeâ € događaja}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

kraj;
Postupak TForm1.myDateChange (Sender: TObject); {Stvarni događaj rukovatelj} početi ShowMessage (â € ~The dan je changedâ € ™); kraj;
Postupak TForm1.Button2Click (Sender: TObject); početi MyDate.Day:=29~~dobj; {Piše na imovinu dan, koristeći SetDate () koja iznutra poziva DoChange () plamena događaja} kraj;
kraj.
Jedinica DATE3;
sučelje za SysUtils, klase;
TIP TDate3 = klasa (TComponent) privatni FDay, FMonth, FYear: Riječ; DummyWord: riječ; {- Događaj nekretnina —}
{1} FOnChange: TNotifyEvent; {Sustav vrsta događaja proglašen kao: postupak (Sender: TObject) objekta;}
zaštićeni postupak SetDay (Newday: Word);
{3} postupak DoChange; dinamičan; {Pozivanjem požari događaja}
javni konstruktor Stvaranje (AOwner: TComponent);
objavljeno Dan nekretnine: Riječ pročitati FDay pisati SetDay; nekretnine Mjesec: Riječ čitati FMonth pisati DummyWord; Objekt Godina: Riječ pročitati FYear pisati DummyWord;
{2} nekretnina OnChange: TNotifyEvent čitati FOnChange pisati FOnChange; kraj;
Postupak Registracija;
implementacija
Postupak Registracija; početi RegisterComponents (â € ~Samplesâ € ™, [TDate3]); kraj;
konstruktor TDate3.Create (AOwner: TComponent); Počnite baštini Izrada (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); kraj;
{4} postupak TDate3.SetDay (Newday: Word); {Priziva događaj â € “”dan mijenja}
Počnite FDay: = Newday; {To je događaj biti obaviješteni}
{4} DoChange; {To pali događaj pozivajući se njome povezane postupak

FOnChange (samo) koja je zapravo poziv na dodijeljena događaj rukovatelj} kraja;
{3a} postupak TDate3.DoChange; Počnite ako je dodijeljen (FOnChange), a zatim FOnChange (samo); {Priziva povezani događaj rukovatelj pri prolazu je objekt koji je podigao događaja} kraj; kraj.

“——————————————————————————————————————————————————

Support oversættelse: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenter Fyring Begivenhed
enhed enhed1;
grænseflade
anvendelser
Vinduer, Beskeder, SysUtils, Varianter, Classes, Graphics, Controls, Forms, dialoger,
StdCtrls, DATE3;

skriv TForm1 = klasse (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedure Button1Click (Sender: TObject);

procedure MyDateChange (Sender: TObject); {Bruger erklærede handleren (helst navn). Det Handler kaldes, når â € œOnChangeâ € begivenhed er fyret af MyDate (TDate3) komponent}
procedure Button2Click (Sender: TObject);
privat
{Private erklæringer}
offentlig
{Offentlige erklæringer}
ende;

var
Form1: TForm1;

implementering
{$ R * .dfm}
procedure TForm1.Button1Click (Sender: TObject);
begynde
MyDate: = TDate3.Create (selv-); // Konstruere TDate3 objekt MyDate.OnChange: = MyDateChange; {Associeret handler med standard â € œOnChangeâ € begivenhed}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ende;
procedure TForm1.myDateChange (Sender: TObject); {Selve arrangementet handleren} begynde ShowMessage (â € ~ den dag har changedâ € ™); ende;
procedure TForm1.Button2Click (Sender: TObject); begynde MyDate.Day:=29; {Skriver til dag ejendom, hjælp SetDate (), der indefra påberåber DoChange () fyring begivenheden} ende;
ende.
enhed DATE3;
grænseflade bruger SysUtils, klasser;
TYPE TDate3 = klasse (TComponent) privat FDay, FMonth, FYear: Word; DummyWord: ord; {- Begivenhed ejendom —}
{1} FOnChange: TNotifyEvent; {Systemet hændelsestype erklæres som: procedure (Sender: TObject) objekt;}
beskyttet procedure SetDay (Newday: Word);
{3} procedure DoChange; dynamisk; {Når påberåbes affyrer begivenheden}
offentlig konstruktør Opret (AOwner: TComponent);
offentliggjort ejendom Dag: ord læst FDay skrive SetDay; ejendom måned: ord læst FMonth skrive DummyWord; ejendom År: ord læse FYear skrive DummyWord;
{2} ejendom OnChange: TNotifyEvent læste FOnChange skrive FOnChange; ende;
procedure Register;
implementering
procedure Register; begynde RegisterComponents (â € ~Samplesâ € ™, [TDate3]); ende;
konstruktør TDate3.Create (AOwner: TComponent); Begynd arvet Opret (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ende;
{4} procedure TDate3.SetDay (Newday: Word); {Påberåber begivenhed â € “”dag ændres}
Begynd FDay: = Newday; {Dette er den begivenhed, der skal meddeles}
{4} DoChange; {Dette affyrer begivenheden ved at påberåbe sig dens tilhørende procedure

FOnChange (selv-) som faktisk kalder til det tildelte event handler} ende;
{3a} procedure TDate3.DoChange; Begynd hvis Tildelt (FOnChange) derefter FOnChange (selv-); {Påberåber sig i forbindelse event handler, mens den passerer det objekt som rejste begivenheden} ende; ende.

“——————————————————————————————————————————————————

Ondersteuning vertaling: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Event
unit Unit1;
interface
toepassingen
Windows, Berichten, sysutils, varianten, de klassen, Graphics, Controls, Forms, dialogen,
StdCtrls, Date3;

Typ TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedure Button1Click (Sender: TObject);

procedure MyDateChange (Sender: TObject); {User verklaarde handler (om het even). De Handler wordt aangeroepen als â € œOnChangeâ € event wordt afgevuurd door de MyDate (TDate3) component}
procedure Button2Click (Sender: TObject);
privaat
{Private verklaringen}
openbaar
{Publieke verklaringen}
einde;

var
Form1: TForm1;

implementatie
{$ R * DFM}
procedure TForm1.Button1Click (Sender: TObject);
beginnen
MyDate: = TDate3.Create (zelf); // Construct TDate3 object MyDate.OnChange: = MyDateChange; {Associate handler met de standaard â € œOnChangeâ € evenement}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

einde;
procedure TForm1.myDateChange (Sender: TObject); {Feitelijke gebeurtenis handler} beginnen ShowMessage (â € ~De dag heeft changedâ € ™); einde;
procedure TForm1.Button2Click (Sender: TObject); beginnen MyDate.Day:=29; {Schrijft Dag accommodatie via setDate (), die van binnenuit beroept DoChange () afvuren van de gebeurtenis} end;
einde.
unit Date3;
interface maakt gebruik van sysutils, de klassen;
TYPE TDate3 = class (TComponent) privé FDay, FMonth, FYear: Word; DummyWord: woord; {- Event pand —}
{1} FOnChange: TNotifyEvent; {Systeem type evenement verklaard: procedure (Sender: TObject) van het object;}
beschermde procedure SetDay (Newday: Word);
{3} procedure DoChange; dynamisch; {Wanneer ingeroepen vuurt het evenement}
public constructor aanmaken (AOwner: TComponent);
gepubliceerd eigendom van de dag: Het woord lezen FDay schrijven SetDay; woning Maand: woord lezen FMonth schrijven DummyWord; woning Jaar: Woord lezen FYear schrijven DummyWord;
{2} pand OnChange: TNotifyEvent lezen FOnChange schrijven FOnChange; einde;
procedure register;
implementatie
procedure register; beginnen RegisterComponents (â € ~Samplesâ € ™, [TDate3]); einde;
constructeur TDate3.Create (AOwner: TComponent); Begin erfelijke Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); einde;
{4} procedure TDate3.SetDay (Newday: Word); {Beroept evenement â € “”dag wordt veranderd}
Begin FDay: = Newday; {Dit is het evenement aan te melden}
{4} DoChange; {Dit vuurt het evenement door de bijbehorende procedure een beroep op

FOnChange (zelf), die daadwerkelijk op te roepen om de toegewezen event handler} end;
{} 3a procedure TDate3.DoChange; Begin indien ingedeeld (FOnChange) dan FOnChange (zelf); {Oproept bijbehorende event handler tijdens het passeren zij bezwaren die het evenement verhoogd} end; einde.

“——————————————————————————————————————————————————

Podpora překladu: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenty Vypalovací Event
Jednotka Unit1;
rozhraní
použití
Windows, Zprávy, sysutils, varianty, tříd, grafika, Controls, Forms, Dialogy,
StdCtrls, Date3;

typ TForm1 = class (TForm) Button1: tna;
MyDate: TDate3;
Button2: tna;
Postup Button1Click (Sender: TObject);

Postup MyDateChange (Sender: TObject); {User prohlášena za psovoda (libovolný název). Handler je volána při â € œOnChangeâ € události je zapálený do MyDate (TDate3) složka}
Postup Button2Click (Sender: TObject);
soukromý
{private prohlášení}
veřejnost
{public prohlášení}
konec;

var
Form1: TForm1;

uskutečnění
{$ R * .dfm}
Postup TForm1.Button1Click (Sender: TObject);
začít
MyDate: = TDate3.Create (self); // Postavit TDate3 objekt MyDate.OnChange: = MyDateChange; {Spolupracovník psovod se standardním â € œOnChangeâ € události}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

konec;
Postup TForm1.myDateChange (Sender: TObject); {Skutečná rutina události} začne ShowMessage (â € ~The den se changedâ € ™); konec;
Postup TForm1.Button2Click (Sender: TObject); začínají MyDate.Day:=29~~dobj; {Píše na majetku denně s použitím SetDate (), která zevnitř vyvolá DoChange () vypálení event} konec;
konec.
Jednotka Date3;
rozhraní používá sysutils, třídy;
TYPE TDate3 = class (TComponent) soukromý FDay, FMonth, FYear: Word; DummyWord: word; {- Vlastnost událost —}
{1} FOnChange: TNotifyEvent; {Systém typ události deklarován jako: postup (Sender: TObject) objektu;}
chráněné postup SetDay (NewDay: Word);
{3} postup DoChange; dynamický; {Při vyvolání je událost}
veřejný konstruktor Vytvořit (AOwner: TComponent);
publikoval vlastnost Den: Slovo čtení FDay zápis SetDay; nemovitost Měsíc: Slovo číst FMonth psát DummyWord; nemovitost Rok: Slovo čtení FYear napsat DummyWord;
{2} vlastnost OnChange: TNotifyEvent číst FOnChange psát FOnChange; konec;
Postup Register;
uskutečnění
Postup Register; zahájit RegisterComponents (â € ™ ~Samplesâ [TDate3]); konec;
konstruktor TDate3.Create (AOwner: TComponent); Začněte zdědil Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); konec;
{4} postup TDate3.SetDay (NewDay: Word); {Vyvolá událost â € “”den se změní}
Začínají FDay: = NewDay; {To je událost, které mají být oznámeny}
{4} DoChange; {To je událost odvoláním jeho spojený postup

FOnChange (self), což je vlastně zavolat na přiřazeny obsluhy událostí} konce;
{} 3a postup TDate3.DoChange; Začne-li přiděleno (FOnChange), pak FOnChange (self); {Dovolává spojené rutinu události při průchodu to objekt, který zvýšil o událostech} konec; konec.

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Event
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Date3;

type TForm1 = class(TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedure Button1Click(Sender: TObject);

procedure MyDateChange(Sender: TObject); {user declared handler (any name). The Handler is called when “OnChange” event is fired by the MyDate (TDate3) component}
procedure Button2Click(Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;

var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
MyDate:= TDate3.Create(self); // construct TDate3 object MyDate.OnChange := MyDateChange; {associate handler with the standard “OnChange” event }
ShowMessage (IntToStr(today.Day)):
ShowMessage (IntToStr(today.Month)):
ShowMessage (IntToStr(today.Year)):

end;
procedure TForm1.myDateChange(Sender: TObject); {actual event handler} begin ShowMessage(‘The day has changed’); end;
procedure TForm1.Button2Click(Sender: TObject); begin MyDate.Day:=29; {writes to Day property, using SetDate() which from inside invokes DoChange() firing the event} end;
end.
unit Date3;
interface uses SysUtils, Classes;
TYPE TDate3 = class(TComponent) private FDay, FMonth, FYear : Word; DummyWord : word; { — event property —}
{1} FOnChange : TNotifyEvent; {system event type declared as: procedure (Sender:TObject) of object;}
protected procedure SetDay(newDay: Word);
{3} procedure DoChange; dynamic; {when invoked fires the event}
public constructor Create(AOwner: TComponent);
published property Day:word read FDay write SetDay; property Month:word read FMonth write DummyWord; property Year:word read FYear write DummyWord;
{2} property OnChange: TNotifyEvent read FOnChange write FOnChange; end;
procedure Register;
implementation
procedure Register; begin RegisterComponents(‘Samples’,[TDate3]); end;
constructor TDate3.Create(AOwner: TComponent); Begin inherited Create(AOwner);
DecodeDate(SysUtils.Date, FYear, FMonth, FDay); end;
{4} procedure TDate3.SetDay(newDay: Word); {invokes event – day is changed}
Begin FDay := newDay; {this is the event to be notified}
{4} DoChange; {this fires the event by invoking its associated procedure

FOnChange(self) which is actually call to the assigned event handler} end;
{3a} procedure TDate3.DoChange; Begin if Assigned (FOnChange) then FOnChange(self); {invokes associated event handler while passing it object which raised the event} end; end.

“——————————————————————————————————————————————————

Subteno traduko: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponantoj Firing Eventon
unuo Unit1;
interfaco
uzoj
Fenestroj, Mesaĝoj, SysUtils, Variaĵoj, Klasoj, Graphics, Kontroloj, Formoj, Dialogoj,
StdCtrls, Date3;

tajpi TForm1 = klaso (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
proceduro Button1Click (Sender: TObject);

proceduro MyDateChange (Sender: TObject); {Uzanto deklaris traktilo (ajna nomo). La Handler nomiĝas kiam â € œOnChangeâ € okazaĵo estas pafita fare de la MyDate (TDate3) komponanto}
proceduro Button2Click (Sender: TObject);
privata
{Privata deklaroj}
publikajn
{Publika deklaroj}
fino;

var
Form1: TForm1;

efektivigo
{$ R * .dfm}
proceduro TForm1.Button1Click (Sender: TObject);
komenci
MyDate: = TDate3.Create (mem); // Konstrui TDate3 objekto MyDate.OnChange: = MyDateChange; {Asociita traktilo kun la norma â € œOnChangeâ € evento}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fino;
proceduro TForm1.myDateChange (Sender: TObject); {Fakta okazaĵo traktilo} komenci ShowMessage (â € ~The tago changedâ € ™); fino;
proceduro TForm1.Button2Click (Sender: TObject); komenci MyDate.Day:=29; {Skribas Tago proprieto, uzante SetDate () kiuj interne alpreĝas DoChange () pafi la evento} fino;
fino.
unuo Date3;
interfaco uzas SysUtils, Klasoj;
TIPO TDate3 = klaso (TComponent) privata FDay, FMonth, FYear: Vorto; DummyWord: vorto; {- Okazaĵo proprieto —}
{1} FOnChange: TNotifyEvent; {Sistemo okazaĵo tipo deklaritaj kiel: procedo (Sender: TObject) de objekto;}
protektitaj proceduro SetDay (newDay: Vorto);
{3} proceduro DoChange; dinamika; {Kiam alvokebla maldungas la evento}
publika konstruilo Krei (AOwner: TComponent);
eldonita proprieto Tago: vorto legi FDay registran SetDay; proprieto Monato: vorto legi FMonth skribi DummyWord; proprieto Jaro: vorto legis FYear skribi DummyWord;
{2} proprieto onChange: TNotifyEvent legi FOnChange skribi FOnChange; fino;
proceduro Registro;
efektivigo
proceduro Registro; komenci RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fino;
konstruilo TDate3.Create (AOwner: TComponent); Komenci hereditaj Krei (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fino;
{4} proceduro TDate3.SetDay (newDay: Vorto); {Alpreĝas evento â € “”tago estas ŝanĝita}
Komenci FDay: = newDay; {Tiu estas la okazaĵo por esti sciigita}
{4} DoChange; {Ĉi maldungas la okazaĵon alpreĝante lia asociita proceduro

FOnChange (mem) kiu fakte nomas la asignita okazaĵo traktilo} fino;
{3al} proceduro TDate3.DoChange; Komenci se Assigned (FOnChange) tiam FOnChange (mem); {Alpreĝas asociita okazaĵo traktilo dum pasante ĝin kontesti kiu levis la evento} fino; fino.

“——————————————————————————————————————————————————

Tõlkimise toetamise: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponendid Laskmise Event
üksus Loomaosakonna1;
liides
kasutusalad
Windows, Sõnumid, sysutils variante, Klassid, Graafika, kontroll, vormid, dialoogid,
StdCtrls, DATE3;

kirjuta TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
korras Button1Click (Saatja: TObject);

korras MyDateChange (Saatja: TObject); {Kasutaja kuulutas käitleja (mis tahes nime). Käitleja nimetatakse kui € œOnChangeâ € sündmus tulistas MyDate (TDate3) komponent}
korras Button2Click (Saatja: TObject);
era-
{Private deklaratsioonid}
avalik
{Avalik deklaratsioonid}
lõpp;

var
Form1: TForm1;

täitmine
{$ R * .dfm}
korras TForm1.Button1Click (Saatja: TObject);
algama
MyDate: = TDate3.Create (enese); // Ehitada TDate3 objekti MyDate.OnChange: = MyDateChange; {Assotsieerunud käitleja standard ā € œOnChangeâ € sündmus}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

lõpp;
korras TForm1.myDateChange (Saatja: TObject); {Sündmuse käitleja} hakata ShowMessage (ā € ~The päev on changedâ € ™); lõpp;
korras TForm1.Button2Click (Saatja: TObject); alustada MyDate.Day:=29; {Kirjutab Day vara kasutades SetDate (), mis seest viitab DoChange () süütamise ürituse} lõpus;
lõpp.
üksus DATE3;
liides kasutab sysutils klasse;
TÜÜP TDate3 = class (TComponent) era- FDay, FMonth, FYear: Word; DummyWord: sõna; {- Sündmus vara —}
{1} FOnChange: TNotifyEvent; {Süsteemi sündmuse tüübi deklareeritud: korras (Saatja: TObject) objekti;}
kaitstud korras SetDay (Newday: Word);
{3} korras DoChange; dünaamiline; {Kui tugineda tulekahjud korral}
avaliku ehitaja Loo (AOwner: TComponent);
avaldatud vara Päeval: sõna lugeda FDay kirjutada SetDay; vara Kuu: sõna lugeda FMonth kirjutada DummyWord; vara Aasta: sõna loe FYear kirjutada DummyWord;
{2} vara onChange: TNotifyEvent lugeda FOnChange kirjutada FOnChange; lõpp;
korras registrisse;
täitmine
korras registrisse; alustada RegisterComponents (ā € ~Samplesâ € ™, [TDate3]); lõpp;
ehitaja TDate3.Create (AOwner: TComponent); Alustada päritud Loo (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); lõpp;
{4} korras TDate3.SetDay (Newday: Word); {Viitab sündmuse ā € “”Päev on muutunud}
Alustada FDay: = Newday; {See on sündmus teatada}
{4} DoChange; {See käivitub juhul, viidates sellega seotud protseduur

FOnChange (ise), mis on tegelikult helistage määratud sündmuse käitleja} lõpus;
{3a} korras TDate3.DoChange; Alustada, kui sihtotstarbeline (FOnChange) siis FOnChange (enese); {Viitab seotud korral käitleja samas kulgeb see objekt, mis tõstis ürituse} lõpus; lõpp.

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Pagpapaputok Event
unit Unit1;
interface
mga paggamit
Windows, Mensahe, SysUtils, variant, Klase, Graphics, Controls, Forms, dialog,
StdCtrls, Date3;

type TForm1 = class (TForm) Button1: TButton;
Mydate: TDate3;
Button2: TButton;
procedure Button1Click (Sender: TObject);

procedure MyDateChange (Sender: TObject); {User ipinahayag handler (anumang pangalan). Handler ay tinatawag na kapag â € œOnChangeâ € kaganapan ay fired sa pamamagitan ng mydate (TDate3) component}
procedure Button2Click (Sender: TObject);
pribado
{Private declarations}
publiko
{Public declarations}
end;

var
Form1: TForm1;

pagsasakatuparan
{$ R * .dfm}
procedure TForm1.Button1Click (Sender: TObject);
magsimula
Mydate: = TDate3.Create (self); // Bumuo TDate3 object MyDate.OnChange: = MyDateChange; {Associate handler sa pamantayan â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

end;
procedure TForm1.myDateChange (Sender: TObject); {Aktwal na kaganapan handler} simulan ShowMessage (â € ~The araw ay changedâ € ™); end;
procedure TForm1.Button2Click (Sender: TObject); simulan MyDate.Day:=29; {Writes sa Araw ari-arian, gamit setDate () na kung saan mula sa loob invokes DoChange () pagpapaputok ng kaganapan} katapusan;
end.
unit Date3;
interface ay gumagamit SysUtils, Classes;
TYPE TDate3 = class (TComponent) pribadong FDay, FMonth, FYear: Word; DummyWord: salita; {- Event property —}
{1} FOnChange: TNotifyEvent; {Sistema uri ng kaganapan ipinahayag bilang: procedure (Sender: TObject) ng object;}
protektado procedure SetDay (Newday: Word);
{3} procedure DoChange; dynamic; {Kapag mahihingi apoy ang event}
pampublikong tagapagbuo Lumikha (AOwner: TComponent);
publish Day ari-arian: salitang basahin FDay write SetDay; ari-arian Buwan: salitang basahin FMonth isulat DummyWord; ari-arian Taon: word basahin FYear isulat DummyWord;
{2} property OnChange: TNotifyEvent basahin FOnChange isulat FOnChange; end;
procedure Magrehistro;
pagsasakatuparan
procedure Magrehistro; simulan RegisterComponents (â € ~Samplesâ € ™, [TDate3]); end;
constructor TDate3.Create (AOwner: TComponent); Simulan minana Lumikha (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); end;
{4} procedure TDate3.SetDay (Newday: Word); {Invokes kaganapan â € “”araw ay nagbago}
Simulan FDay: = Newday; {Ito ay ang kaganapan upang ma-notify}
{4} DoChange; {Ito apoy ang kaganapan sa pamamagitan ng invoking ang kaugnay nitong procedure

FOnChange (self) na kung saan ay tunay na tawag sa itinalaga event handler} katapusan;
{3a} procedure TDate3.DoChange; Simulan kung Nakatalagang (FOnChange) pagkatapos FOnChange (self); {Invokes kaugnay event handler habang pagpasa ito tumutol na iniatang ng kaganapan} katapusan; end.

“——————————————————————————————————————————————————

Tuki käännös: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponentit Ampuminen Tapahtuma
yksikkö Unit1;
liitäntä
käyttötarkoituksiin
Windows, Viestit, SysUtils, vaihtoehdot, luokat, Graphics, Controls, Forms, Ikkunat,
StdCtrls, Date3;

kirjoita TForm1 = luokka (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
menettely Button1Click (Sender: TObject);

menettely MyDateChange (Sender: TObject); {Käyttäjä ilmoitettu käsittelijä (mikä tahansa nimi). Handler kutsutaan, kun â € œOnChangeâ € tapahtuman potkut MyDate (TDate3) komponentti}
menettely Button2Click (Sender: TObject);
yksityinen
{Yksityinen ilmoitusten}
julkinen
{Public ilmoitusten}
end;

var
Form1: TForm1;

täytäntöönpano
{$ R * .dfm}
menettely TForm1.Button1Click (Sender: TObject);
alkaa
MyDate: = TDate3.Create (itse); // Rakentaa TDate3 kohde MyDate.OnChange: = MyDateChange; {Osakkuusyrityksen käsittelijä standardin â € œOnChangeâ € tapahtuma}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

end;
menettely TForm1.myDateChange (Sender: TObject); {Todellinen tapahtumakäsittely} alkaa showMessage (â € ~The päivä on changedâ € ™); end;
menettely TForm1.Button2Click (Sender: TObject); alkaa MyDate.Day:=29; {Kirjoittaa Day omaisuutta käyttäen SetDate (), joka sisältä vetoaa DoChange () polttamalla tapahtuma} loppua;
end.
yksikkö Date3;
rajapinta käyttää SysUtils, luokat;
TYPE TDate3 = luokka (TComponent) yksityiset FDay, FMonth, FYear: Word; DummyWord: sana; {- Tapahtuma omaisuus —}
{1} FOnChange: TNotifyEvent; {Järjestelmä tapahtumatyyppi ilmoitettu: menettely (Sender: TObject) objektin;}
suojattu menettely SetDay (newDay: Word);
{3} menettely DoChange; dynaaminen; {Kun vedotaan tulipalot tapahtuman}
julkinen rakentaja Luo (AOwner: TComponent);
julkaistu omaisuus Päivä: sana lukea FDay kirjoittaa SetDay; omaisuus Kuukausi: sana lukea FMonth kirjoittaa DummyWord; omaisuus Vuosi: sana lukea FYear kirjoittaa DummyWord;
{2} omaisuus OnChange: TNotifyEvent lukea FOnChange kirjoittaa FOnChange; end;
menettely rekisteriin;
täytäntöönpano
menettely rekisteriin; alkaa RegisterComponents (â € ~Samplesâ € ™, [TDate3]); end;
rakentaja TDate3.Create (AOwner: TComponent); Aloita perinnöllinen Luo (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); end;
{4} menettely TDate3.SetDay (newDay: Word); {Vetoaa tapahtuma â € “”päivä muuttuu}
Begin FDay: = newDay; {Tämä on tapahtuma ilmoitettava}
{4} DoChange; {Tämä tulipalot tapahtumaa vedoten siihen liittyvä menettely

FOnChange (itse), joka on itse soittaa määritetyn tapahtumakäsittelijä} loppua;
{3a} menettely TDate3.DoChange; Alkaa jos sidotut (FOnChange) sitten FOnChange (itse); {Vedotaan liittyy tapahtumakäsittelijä kun kulkee se vastustaa mikä nosti tapahtuman} loppua; end.

“——————————————————————————————————————————————————

Traduction de soutien: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Composants événement Firing
unit Unit1;
interface
les usages
Windows, Messages, SysUtils, variantes, Classes, graphiques, contrôles, formulaires, Dialogs,
StdCtrls, DATE3;

tapez TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procédure Button1Click (Sender: TObject);

procédure MyDateChange (Sender: TObject); {Utilisateur déclaré gestionnaire (un nom). Le gestionnaire est appelé lorsque â € œOnChangeâ € événement est déclenché par le MyDate (TDate3) composant}
procédure Button2Click (Sender: TObject);
privé
{Déclarations privées}
public
{Déclarations publiques}
fin;

var
Form1: TForm1;

la mise en oeuvre
{$ R * .dfm}
procedure TForm1.Button1Click (Sender: TObject);
commencer
MyDate: = TDate3.Create (auto); // Construire TDate3 objet MyDate.OnChange: = MyDateChange; {Gestionnaire associé à la norme â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fin;
procédure TForm1.myDateChange (Sender: TObject); {Gestionnaire d’événement réel} commence ShowMessage (â jour € ~The a changedâ € ™); fin;
procédure TForm1.Button2Click (Sender: TObject); commencer MyDate.Day:=29; {Écrit à la propriété Day, en utilisant SetDate () qui de l’intérieur appelle DoChange () déclenchant l’événement} end;
fin.
unité DATE3;
interface utilise SysUtils, Classes;
TYPE TDate3 = class (TComponent) privée FDay, FMonth, FYear: Word; DummyWord: mot; {- Propriété d’événement —}
{1} FOnChange: TNotifyEvent; {Système type d’événement déclaré: procédure (Sender: TObject) de l’objet;}
procédure protégée setDay (Newday: Word);
{3} procedure DoChange; dynamique; {Lorsqu’elle est invoquée déclenche l’événement}
constructeur public Créer (AOwner: TComponent);
publié Jour de la propriété: mot lu FDay écriture setDay; propriété Mois: mot lu FMonth écrire DummyWord; propriété Année: mot lu FYear écrire DummyWord;
{2} propriété OnChange: TNotifyEvent lire FOnChange écrire FOnChange; fin;
procédure Register;
la mise en oeuvre
procédure Register; commencer RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fin;
constructeur TDate3.Create (AOwner: TComponent); Commencez hérité Créer (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fin;
{4} procedure TDate3.SetDay (Newday: Word); {Invoque événement â € “”jour est modifié}
Commencez FDay: = Newday; {C’est l’événement à notifier}
{4} DoChange; {Ce déclenche l’événement en invoquant sa procédure associée

FOnChange (auto) qui est en fait appeler le gestionnaire d’événement assigné} end;
{3a} procedure TDate3.DoChange; Commencez si Assigned (FOnChange) puis FOnChange (auto); {Invoque associé gestionnaire d’événements tout en passant objet qui a déclenché l’événement} end; fin.

“——————————————————————————————————————————————————

Stipe oersetting: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components firing Event
unit Unit1;
ynterface
uses
Windows, Berjochten, SysUtils, Farianten, Lessen, Graphics, Controls, Formulieren, Dialooch,
StdCtrls, Date3;

type TForm1 = klasse (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
proseduere Button1Click (Sender: TObject);

proseduere MyDateChange (Sender: TObject); {Brûker ferklearre handler (gjin namme). De Handler wurdt neamd as â € œOnChangeâ € evenemint wurdt ûntslein troch de MyDate (TDate3) komponint}
proseduere Button2Click (Sender: TObject);
privee
{Private ferklearrings}
iepenbier
{Iepenbier ferklearrings}
ein;

var
Form1: TForm1;

útfiering
{$ R * .dfm}
proseduere TForm1.Button1Click (Sender: TObject);
begjinne
MyDate: = TDate3.Create (sels); // Bou TDate3 object MyDate.OnChange: = MyDateChange; {Associate handler mei de standert â € œOnChangeâ € evenemint}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ein;
proseduere TForm1.myDateChange (Sender: TObject); {Werklike evenemint handlertsjinst} begjinne ShowMessage (â € ~The dei hat changedâ € ™); ein;
proseduere TForm1.Button2Click (Sender: TObject); begjinne MyDate.Day:=29; {Skriuwt nei Day eigendom, mei help fan SetDate () dy’t fan binnen invokes DoChange () it ûntslaan fan it evenemint} end;
ein.
unit Date3;
interface brûkt SysUtils, Lessen;
TYPE TDate3 = klasse (TComponent) privee FDay, FMonth, FYear: Wurd; DummyWord: wurd; {- Event eigendom —}
{1} FOnChange: TNotifyEvent; {Systeem barren type ferklearre as: proseduere (Sender: TObject) fan object;}
beskerme proseduere SetDay (newDay: Word);
{3} proseduere DoChange; dynamic; {Doe’t berop dien Tjitske de evenemint}
iepenbiere constructor Create (AOwner: TComponent);
publisearre eigendom Day: wurd read FDay skriuwrjochten SetDay; eigendom Moanne: wurd lêzen FMonth skriuwe DummyWord; eigendom Jier: wurd lêzen FYear skriuwe DummyWord;
{2} eigendom OnChange: TNotifyEvent lêze FOnChange skriuwe FOnChange; ein;
proseduere Register;
útfiering
proseduere Register; begjinne RegisterComponents (â € ~Samplesâ € ™, [TDate3]); ein;
constructor TDate3.Create (AOwner: TComponent); Begjinne erfde Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ein;
{4} proseduere TDate3.SetDay (newDay: Word); {Invokes evenemint â € “”dei is feroare}
Begin FDay: = newDay; {Dit is it evenemint om de hichte brocht wurde}
{4} DoChange; {Dit Tjitske de evenemint troch invoking har assosjearre proseduere

FOnChange (sels) dy’t eins belje nei de tawiisd barren handlertsjinst} end;
{3a} proseduere TDate3.DoChange; Begjinne as tawiist (FOnChange) dan FOnChange (sels); {Invokes ferbûn barren handlertsjinst wylst lâns it beswier dat ferhege it evenemint} end; ein.

“——————————————————————————————————————————————————

Tradución Apoio: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Compoñentes accionamento do evento
unidade Unit1;
interface
usos
Ventás, Mensaxes, SysUtils, Variantes, Clases, gráficos, controis, formularios, caixas de diálogo,
StdCtrls, DATE3;

escriba TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedemento Button1Click (Sender: TObject);

procedemento MyDateChange (Sender: TObject); {User declarou manipulador (calquera nome). O manipulador chámase cando € œOnChangeâ € evento A é disparado polo compoñente MyDate (TDate3)}
procedemento button2Click (Sender: TObject);
privado
{Declaracións privados}
público
{Declaracións públicas}
acabar;

var
Form1: TForm1;

implantación
{$ R * .dfm}
procedemento TForm1.Button1Click (Sender: TObject);
comezar
MyDate: = TDate3.Create (self); // Construír TDate3 obxecto MyDate.OnChange: = MyDateChange; {Manipulador asociado co un patrón € œOnChangeâ € evento}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

acabar;
procedemento TForm1.myDateChange (Sender: TObject); {Manipulador de evento real} comezan ShowMessage (un día € ~ ten changedâ € ™); acabar;
procedemento TForm1.Button2Click (Sender: TObject); comezan MyDate.Day:=29; {Escribe á propiedade Día, mediante SetDate (), que de dentro invoca DoChange () disparar o evento} end;
final.
unidade DATE3;
interface usa SysUtils, Clases;
TIPO TDate3 = class (TComponent) privado FDay, FMonth, FYear: Palabra; DummyWord: Palabra; {- Propiedade de evento —}
{1} FOnChange: TNotifyEvent; {Sistema de tipo de evento declarado como: procedemento (Sender: TObject) do obxecto;}
procedemento protexido SetDay (NewDay: Word);
{3} procedemento DoChange; dinámico; {Cando invocado acciona o evento}
constructor público Create (AOwner: TComponent);
Día propiedade publicada: palabra lida FDay gravación SetDay; Mes propiedade: palabra lida FMonth escribir DummyWord; propiedade Ano: palabra lida FYear escribir DummyWord;
{2} propiedade onchange: TNotifyEvent ler FOnChange escribir FOnChange; acabar;
procedemento de rexistro;
implantación
procedemento de rexistro; comezan RegisterComponents (â € ~ Samplesâ € ™, [TDate3]); acabar;
TDate3.Create constructor (AOwner: TComponent); Comezar herdado Crear (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); acabar;
{4} procedemento TDate3.SetDay (NewDay: Word); {Inicia evento â € “”o día cambia}
Comezar FDay: = NewDay; {Este é o evento para ser notificado}
{4} DoChange; {Este acciona o evento invocando a procedemento asociado

FOnChange (self) que en realidade é chamada ao manipulador de eventos atribuído} end;
{3a} procedure TDate3.DoChange; Comezar se Assigned (FOnChange), entón FOnChange (self); {Inicia asociado manipulador de eventos, mentres pasando obxecto que disparou o evento} end; final.

“——————————————————————————————————————————————————

მხარდაჭერა თარგმანი: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 კომპონენტები სროლის ღონისძიებები
ერთეულის Unit1;
ინტერფეისი
გამოყენების
Windows, შეტყობინებები, SysUtils, ვარიანტები, კლასები, გრაფიკა, კონტროლი, ფორმები, დიალოგები,
StdCtrls, Date3;

ჩაწერეთ TForm1 = დონის (TForm) Button1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
პროცედურა Button1Click (Sender: TObject);

პროცედურა MyDateChange (Sender: TObject); {შესახებ განაცხადა კურატორმა (ნებისმიერი სახელი). კურატორმა ეწოდება, როდესაც â € œOnChangeâ € ღონისძიება მოქმედებს მიერ MyDate (TDate3) კომპონენტი}
პროცედურა Button2Click (Sender: TObject);
კერძო
{პირადი დეკლარაციების}
საჯარო
{საჯარო განცხადებების}
დასასრული;

var
Form1: TForm1;

განხორციელების
{$ R * .dfm}
პროცედურა TForm1.Button1Click (Sender: TObject);
დაიწყოს
MyDate: = TDate3.Create (თვითმმართველობის); // მშენებლობა TDate3 ობიექტი MyDate.OnChange: = MyDateChange; {ასოცირებული კურატორმა სტანდარტული â € œOnChangeâ € ღონისძიება}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

დასასრული;
პროცედურა TForm1.myDateChange (Sender: TObject); {ფაქტობრივი ღონისძიება დამმუშავებლის} დაიწყოს ShowMessage (â € ~The დღეს changedâ € ™); დასასრული;
პროცედურა TForm1.Button2Click (Sender: TObject); დაიწყოს MyDate.Day:=29; {წერს Day ქონება გამოყენებით SetDate (), რომელიც შიგნიდან აღვიძებს DoChange () მახვილი ღონისძიება} ბოლოს;
დასასრული.
ერთეულის Date3;
ინტერფეისი იყენებს SysUtils, კლასები;
TYPE TDate3 = დონის (TComponent) კერძო FDay, FMonth, FYear: Word; DummyWord: სიტყვა; {- ღონისძიება ქონება —}
{1} FOnChange: TNotifyEvent; {სისტემა ღონისძიების ტიპი განაცხადა, როგორც: პროცედურა (Sender: TObject) ობიექტი;}
დაცული პროცედურის SetDay (NewDay: Word);
{3} პროცედურა DoChange; დინამიური; {გამოძახებისას ხანძრის ღონისძიება}
საჯარო მშენებელი შექმნა (AOwner: TComponent);
გამოქვეყნდა ქონება დღე: სიტყვა წაიკითხა FDay ჩაწერის SetDay; ქონების თვე: სიტყვა წაიკითხა FMonth დაწერა DummyWord; ქონების წელი: სიტყვა წაიკითხა FYear დაწერა DummyWord;
{2} ქონება OnChange: TNotifyEvent წაიკითხა FOnChange დაწერა FOnChange; დასასრული;
პროცედურა რეგისტრაცია;
განხორციელების
პროცედურა რეგისტრაცია; დაიწყოს RegisterComponents (â € ~Samplesâ € ™ [TDate3]); დასასრული;
მშენებელი TDate3.Create (AOwner: TComponent); დასაწყისი მემკვიდრეობით შექმნა (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); დასასრული;
{4} პროცედურა TDate3.SetDay (NewDay: Word); {აღვიძებს ღონისძიება â € “”დღეს შეიცვალა}
დასაწყისი FDay: = NewDay; {ეს არის ღონისძიება უნდა ეცნობოს}
{4} DoChange; {ამ ხანძრის ღონისძიება მულის მასთან დაკავშირებული პროცედურა

FOnChange (თვითმმართველობის), რომელიც სინამდვილეში დავალებული ღონისძიება დამმუშავებლის} ბოლოს;
{3 ა} პროცედურა TDate3.DoChange; დასაწყისი დავალებით (FOnChange), მაშინ FOnChange (თვითმმართველობის); {მწვავედ დაკავშირებული ღონისძიება დამმუშავებლის ხოლო ის ობიექტი, რომელიც დააყენა ღონისძიება} ბოლოს; დასასრული.

“——————————————————————————————————————————————————

Unterstützung Übersetzung: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenten Zündereignis
unit Unit1;
Schnittstelle
Anwendungen
Windows Messages, SysUtils, Varianten, Klassen, Grafik, Steuerung, Formulare, Dialoge,
StdCtrls, date3;

Typ TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Verfahren Button1Click (Sender: TObject);

Verfahren MyDateChange (Sender: TObject); {User erklärt Handler (einen beliebigen Namen). Der Handler wird aufgerufen, wenn â € œOnChangeâ € Veranstaltung der MyDate (TDate3) Komponente ausgelöst wird}
Verfahren Button2Click (Sender: TObject);
Privatgelände
{Private Erklärungen}
Öffentlichkeit
{Öffentliche Erklärungen}
Ende;

var
Form1: TForm1;

Implementierung
{$ R * .dfm}
Verfahren TForm1.Button1Click (Sender: TObject);
Start
MyDate: = TDate3.Create (Selbst-); // Konstruieren TDate3 Objekt MyDate.OnChange: = MyDateChange; {Associate-Handler mit dem Standard â € œOnChangeâ € event}
Showmessage (IntToStr (today.Day)):
Showmessage (IntToStr (today.Month)):
Showmessage (IntToStr (today.Year)):

Ende;
Verfahren TForm1.myDateChange (Sender: TObject); {Tatsächliche Ereignishandler} begin Showmessage (â € ~ Tag hat changedâ € ™); Ende;
Verfahren TForm1.Button2Click (Sender: TObject); beginnen MyDate.Day:=29; {Schreibt Eigenschaft Day, SetDate () verwendet, die von innen ruft DoChange () Brennen des Ereignisses} end;
Ende.
Einheit date3;
Schnittstelle verwendet SysUtils, Classes;
TYPE TDate3 = class (TComponent) private FDay, FMonth, FYear: Wort; DummyWord: word; {- Ereigniseigenschaft —}
{1} FOnChange: TNotifyEvent; {Systemereignistyp deklariert als: Verfahren (Sender: TObject) des Objekts;}
geschützten Verfahren SetDay (Newday: Word);
{3} Prozedur DoChange; dynamisch; {Beim Aufruf löst das Ereignis}
öffentlichen Konstruktor Create (AOwner: TComponent);
veröffentlicht Eigenschaft Tag: Wort FDay Schreib SetDay lesen; Eigentum Monat: Wort FMonth schreiben DummyWord lesen; Eigentum Jahr: Wort DummyWord lesen FYear schreiben;
{2} Eigenschaft OnChange: TNotifyEvent lesen FOnChange FOnChange schreiben; Ende;
Verfahren Register;
Implementierung
Verfahren Register; beginnen Registercomponents (â € ~Samplesâ € ™, [TDate3]); Ende;
Konstruktor TDate3.Create (AOwner: TComponent); Beginnen Sie geerbte Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Ende;
{4} Prozedur TDate3.SetDay (Newday: Word); {Ruft Veranstaltung â € “”Tag geändert wird}
Beginnen FDay: = Newday; {Das ist das Ereignis informiert werden}
{4} DoChange; {Dies löst das Ereignis durch seine zugehörige Verfahren in Anspruch

FOnChange (Selbst-), die eigentlich nennen, ist auf die zugeordnete Ereignishandler} end;
{3a} procedure TDate3.DoChange; Beginnen Sie, wenn Assigned (FOnChange) dann FOnChange (Selbst-); {Invokes Ereignishandler zugeordnet sind, während Leiten-Objekt, das das Ereignis ausgelöst} end; Ende.

“——————————————————————————————————————————————————

μετάφραση Υποστήριξη: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Εξαρτήματα Πυρ Event
μονάδα Unit1?
διεπαφή
χρήσεις
Παράθυρα, μηνύματα, sysutils, Παραλλαγές, Μαθήματα, γραφικών, Έλεγχοι, Έντυπα, διάλογοι,
StdCtrls, DATE3?

πληκτρολογήστε TForm1 = κατηγορία (TForm) Button1: TButton?
MyDate: TDate3?
Button2: TButton?
Διαδικασία Button1Click (Sender: TObject)?

Διαδικασία MyDateChange (Sender: TObject)? {Χρήστης δηλώσει χειριστή (οποιοδήποτε όνομα). Ο χειριστής καλείται όταν € œOnChangeâ € περίπτωση που ένας ψήνεται από το MyDate (TDate3) συστατικό}
Διαδικασία Button2Click (Sender: TObject)?
ιδιωτικός
{Ιδιωτική δηλώσεις}
δημόσιο
{Δημόσιες δηλώσεις}
τέλος;

var
Φόρμα1: TForm1?

εκτέλεση
{$ R * .dfm}
Διαδικασία TForm1.Button1Click (Sender: TObject)?
αρχίζουν
MyDate: = TDate3.Create (αυτο)? // Κατασκευάσει TDate3 αντικείμενο MyDate.OnChange: = MyDateChange? {Συνεργάτης χειριστή με το πρότυπο â € œOnChangeâ € εκδήλωση}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

τέλος;
Διαδικασία TForm1.myDateChange (Sender: TObject)? {Πραγματική χειρισμού συμβάντων} αρχίσει ShowMessage (â € ~ μέρα έχει changedâ € ™)? τέλος;
Διαδικασία TForm1.Button2Click (Sender: TObject)? αρχίζουν MyDate.Day:=29? {Γράφει στην ιδιοκτησία Ημέρα, χρησιμοποιώντας SETDATE (), η οποία από το εσωτερικό επικαλείται DoChange () ψήσιμο της εκδήλωσης} τέλος?
τέλος.
μονάδα DATE3?
διεπαφή χρησιμοποιεί sysutils, Μαθήματα?
ΤΥΠΟΣ TDate3 = κατηγορία (TComponent) ιδιωτικό FDay, FMonth, FYear: το Word? DummyWord: λέξη? {- Ακίνητο εκδήλωση —}
{1} FOnChange: TNotifyEvent? {Σύστημα τύπου εκδήλωση που δηλώθηκαν ως: διαδικασία (Sender: TObject) του αντικειμένου?}
προστατεύεται διαδικασία SetDay (Newday: Word)?
{3} διαδικασία DoChange? δυναμικός; {Όταν επικαλέστηκε πυρκαγιές στην εκδήλωση}
δημόσια κατασκευαστή Δημιουργία (AOwner: TComponent)?
δημοσιεύθηκε Ημέρα ακινήτου: λέξη διαβάσετε FDay εγγραφής SetDay? Μήνας ακινήτου: λέξη διαβάσει FMonth γράφετε DummyWord? ιδιοκτησία Έτος: λέξη διαβάστε FYear γράφετε DummyWord?
{2} ιδιοκτησίας OnChange: TNotifyEvent διαβάσετε FOnChange γράφετε FOnChange? τέλος;
Διαδικασία Εγγραφή?
εκτέλεση
Διαδικασία Εγγραφή? αρχίζουν RegisterComponents (â € ~Samplesâ € ™, [TDate3])? τέλος;
TDate3.Create κατασκευαστή (AOwner: TComponent)? Ξεκινήστε κληρονόμησε Δημιουργία (AOwner)?
DecodeDate (SysUtils.Date, FYear, FMonth, FDay)? τέλος;
{4} διαδικασία TDate3.SetDay (Newday: Word)? {Επικαλείται περίπτωση â € “”μέρα αλλάζει}
Ξεκινήστε FDay: = Newday? {Αυτό είναι το γεγονός που πρέπει να κοινοποιούνται}
{4} DoChange? {Αυτό πυροδοτεί την εκδήλωση με την επίκληση σχετικής διαδικασίας της

FOnChange (αυτο), η οποία είναι στην πραγματικότητα καλέστε στο αποδίδεται χειρισμού συμβάντων} τέλος?
{3α} διαδικασία TDate3.DoChange? Ξεκινήστε εάν αντιστοιχίζεται (FOnChange) τότε FOnChange (αυτο)? {Επικαλείται συνδέονται χειρισμού συμβάντων, ενώ περνώντας το ένστασης που προέβαλε το γεγονός} τέλος? τέλος.

“——————————————————————————————————————————————————

અનુવાદ આધાર: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ઘટકો ફાયરિંગ ઘટના
એકમ Unit1;
ઈન્ટરફેસ
ઉપયોગો
વિન્ડોઝ, સંદેશાઓ, SysUtils, ચલો, વર્ગો, ગ્રાફિક્સ, નિયંત્રણો, ફોર્મ્સ, સંવાદો,
StdCtrls, Date3;

લખો TForm1 = વર્ગ (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
પ્રક્રિયા Button1Click (પ્રેષક: TObject);

પ્રક્રિયા MyDateChange (પ્રેષક: TObject); {વપરાશકર્તા સંભાળનાર (કોઇ નામ) જાહેર કર્યા હતા. જ્યારે € œOnChangeâ € ઘટના MyDate (TDate3) ઘટક} દ્વારા કાઢી મૂકવામાં આવે છે હેન્ડલર કહેવામાં આવે છે
પ્રક્રિયા Button2Click (પ્રેષક: TObject);
ખાનગી
{ખાનગી જાહેરાતો}
જાહેર
{જાહેર ઘોષણાઓ}
અંત;

var
Form1: TForm1;

અમલીકરણ
{$ આર * .dfm}
પ્રક્રિયા TForm1.Button1Click (પ્રેષક: TObject);
શરૂઆત
MyDate: = TDate3.Create (સ્વ); // રચવા TDate3 પદાર્થ MyDate.OnChange: = MyDateChange; {ધોરણ € œOnChangeâ € ઘટના સાથે સહયોગી સંભાળનાર}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

અંત;
પ્રક્રિયા TForm1.myDateChange (પ્રેષક: TObject); {વાસ્તવિક ઘટના સંભાળનાર} ShowMessage શરૂ (â € ~The દિવસ € ™ changedâ છે); અંત;
પ્રક્રિયા TForm1.Button2Click (પ્રેષક: TObject); MyDate.Day:=29 શરૂ; {ડે મિલકત લખે છે, SetDate () જે અંદરથી આહવાન DoChange () ઘટના ફાયરિંગ મદદથી} અંત;
અંત થાય છે.
એકમ Date3;
ઈન્ટરફેસ SysUtils, વર્ગો ઉપયોગ કરે છે;
પ્રકાર TDate3 = વર્ગ (TComponent) ખાનગી FDay, FMonth, FYear: વર્ડ; DummyWord: શબ્દ; {- ઘટના મિલકત —}
{1} FOnChange: TNotifyEvent; {: પ્રક્રિયા સિસ્ટમ ઇવેન્ટ પ્રકાર તરીકે જાહેર: પદાર્થ (પ્રેષક TObject);}
સુરક્ષિત પ્રક્રિયા SetDay (Newday: વર્ડ);
{3} પ્રક્રિયા DoChange; ગતિશીલ; {જ્યારે ચલાવી ઘટના કાઢી મૂકે છે}
જાહેર બાંધનાર (AOwner: TComponent) બનાવો;
પ્રકાશિત મિલકત દિવસ: શબ્દ વાંચી FDay લખવા SetDay; મિલકત મહિનો: શબ્દ DummyWord લખી FMonth વાંચી; મિલકત વર્ષ: શબ્દ વાંચી FYear લખી DummyWord;
{2} મિલકત onChange: TNotifyEvent વાંચી FOnChange લખી FOnChange; અંત;
પ્રક્રિયા રજિસ્ટર;
અમલીકરણ
પ્રક્રિયા રજિસ્ટર; RegisterComponents (â € ~Samplesâ € ™, [TDate3]) શરૂ; અંત;
બાંધનાર TDate3.Create (AOwner: TComponent); વારસાગત બનાવો (AOwner) શરૂ;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); અંત;
{4} પ્રક્રિયા TDate3.SetDay (Newday: વર્ડ); {€ એક ઇવેન્ટ આહવાન “”દિવસ બદલાયેલ છે}
FDay પ્રારંભ: = Newday; {આ ઘટના જાણ કરી શકાય છે}
{4} DoChange; {આ તેની સંકળાયેલ પ્રક્રિયા invoking દ્વારા ઘટના કાઢી મૂકે છે

FOnChange (સ્વ) જે ખરેખર છે સોંપેલ ઘટના સંભાળનાર} અંત માટે કૉલ કરો;
{3A} પ્રક્રિયા TDate3.DoChange; જો એસાઈન્ડ (FOnChange) પછી FOnChange (સ્વ) શરૂ; {આહવાન ઘટના સંભાળનાર સંકળાયેલ જ્યારે પસાર તે પદાર્થ જે ઘટના ઊભા} અંત; અંત થાય છે.

“——————————————————————————————————————————————————

tradiksyon sipò: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Eleman Tire Evènman
inite Unit1;
koòdone
itilizasyon
Windows, Messages, sisusy, Variantes, Kou, Graphics, Kontwòl, Fòm, dyalòg,
StdCtrls, Date3;

tape TForm1 = klas (TForm) button1: TButton;
MyDate: TDate3;
Button2: TButton;
pwosedi Button1Click (Sender: TObject);

pwosedi MyDateChange (Sender: TObject); {Itilizatè deklare kap okipe (nenpòt ki non). se Handler a rele lè â € œOnChangeâ € evènman se te tire pa MyDate a (TDate3) eleman}
pwosedi Button2Click (Sender: TObject);
prive
{Deklarasyon Prive}
piblik
{Deklarasyon Piblik}
fini;

var
Form1: TForm1;

aplikasyon
{$ R * .dfm}
pwosedi TForm1.Button1Click (Sender: TObject);
kòmanse
MyDate: = TDate3.Create (pwòp tèt ou); // Konstwi TDate3 objè MyDate.OnChange: = MyDateChange; {Asosye kap okipe ak estanda â € œOnChangeâ € evènman an}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fini;
pwosedi TForm1.myDateChange (Sender: TObject); {Aktyèl kap okipe-evènman} kòmanse ShowMessage (â te € ~The jou changedâ € ™); fini;
pwosedi TForm1.Button2Click (Sender: TObject); kòmanse MyDate.Day:=29; {Ekri nan pwopriyete Jou, lè l sèvi avèk SetDate () ki soti nan anndan susit DoChange () tire evènman} fen a;
fen.
inite Date3;
koòdone sèvi ak sisusy, Kou;
TIP TDate3 = klas (TComponent) prive FDay, FMonth, FYear: Pawòl; DummyWord: mo; {- Pwopriyete evènman —}
{1} FOnChange: TNotifyEvent; {Sistèm kalite evènman te deklare kòm: pwosedi (Sender: TObject) nan objè;}
pwoteje pwosedi SetDay (Newday: Pawòl);
{3} pwosedi DoChange; dinamik; {Lè envoke dife evènman an}
konstrukteur piblik Kreye (AOwner: TComponent);
pibliye jou pwopriyete: mo li FDay ekri SetDay; pwopriyete Mwa: mo li FMonth ekri DummyWord; pwopriyete ane: mo lecture FYear ekri DummyWord;
{2} pwopriyete onchanj: TNotifyEvent li FOnChange ekri FOnChange; fini;
pwosedi Rejis;
aplikasyon
pwosedi Rejis; kòmanse RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fini;
konstrukteur TDate3.Create (AOwner: TComponent); Kòmanse eritye Kreye (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fini;
{4} pwosedi TDate3.SetDay (Newday: Pawòl); {Susit evènman â € “”jou sa a se chanje}
Kòmanse FDay: = Newday; {Sa a se evènman an yo kapab notifye w}
{4} DoChange; {Sa a dife evènman an pa envoke pwosedi ki asosye li yo

FOnChange (pwòp tèt ou) ki se aktyèlman rele nan} fen a asiyen evènman kap okipe;
{3a} pwosedi TDate3.DoChange; Kòmanse si te enskri (FOnChange) Lè sa a FOnChange (pwòp tèt ou); {Susit asosye kap okipe-evènman pandan y ap pase li objè ki leve soti vivan evènman} fen a; fen.

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Aka gyara harbe-harben Event
naúrar Unit1.
dubawa
amfani
Windows, Messages, SysUtils, bambance-bambancen karatu, Classes, Zane-zane, Gudanarwa, Forms, Dialogs,
StdCtrls, Date3.

rubuta TForm1 = class (TForm) Button1: TButton.
MyDate: TDate3.
Button2: TButton.
hanya Button1Click (Sender: TObject);

hanya MyDateChange (Sender: TObject); {Amfani ayyana horo (wani name). The mai horo da ake kira a lõkacin da â € œOnChangeâ € taron da aka kora da MyDate (TDate3) bangaren}
hanya Button2Click (Sender: TObject);
masu zaman kansu
{Private bayyane}
jama’a
{Jama’a bayyane}
kawo karshen.

var
Form1: TForm1.

aiwatar
{$ R * .dfm}
hanya TForm1.Button1Click (Sender: TObject);
fara
MyDate: = TDate3.Create (kai). // Yi TDate3 abu MyDate.OnChange: = MyDateChange. {Aboki horo tare da misali â € œOnChangeâ € taron}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

kawo karshen.
hanya TForm1.myDateChange (Sender: TObject); {Ainihin taron horo} fara ShowMessage (â € ~The rana ya changedâ € ™). kawo karshen.
hanya TForm1.Button2Click (Sender: TObject); fara MyDate.Day:=29. {Rubuta wa Day dukiya, ta yin amfani da SetDate () wanda daga cikin kiran DoChange () da harbe-harben da taron} karshen.
ƙarshe.
naúrar Date3.
dubawa amfani SysUtils, Classes,
Rubuta TDate3 = class (TComponent) masu zaman kansu FDay, FMonth, FYear: Kalmar. DummyWord: kalma. {- Taron dukiya —}
{1} FOnChange: TNotifyEvent. {Tsarin taron type ayyana kamar: hanya (Sender: TObject) na abu;}
kare hanya SetDay (newDay: Kalmar);
{3} hanya DoChange. tsauri. {Lokacin kiran gobara taron}
jama’a constructor Create (AOwner: TComponent);
Wallafa dukiya Day: Kalmar karanta FDay rubuta SetDay. dukiya Watan: Kalmar karanta FMonth rubuta DummyWord. dukiya Shekara: Kalmar karanta FYear rubuta DummyWord.
{2} dukiya OnChange: TNotifyEvent karanta FOnChange rubuta FOnChange. kawo karshen.
hanya Register.
aiwatar
hanya Register. fara RegisterComponents (â € ~Samplesâ € ™, [TDate3]); kawo karshen.
constructor TDate3.Create (AOwner: TComponent); Fara gaji Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); kawo karshen.
{4} hanya TDate3.SetDay (newDay: Kalmar); {Kiran taron â € “”rana aka canja}
Fara FDay: = newDay. {Wannan shi ne taron da za a sanar}
{4} DoChange. {Wannan gobara taron da kiran da hade hanya

FOnChange (kai) wanda shi ne ainihin kira zuwa ga sanya taron horo} karshen.
{3a} hanya TDate3.DoChange. Fara idan Sanya (FOnChange) to FOnChange (kai). {Kiran hade taron horo yayin wucewa ta ƙi wanda ya tashe taron} karshen. ƙarshe.

“——————————————————————————————————————————————————

Kākoʻo unuhi: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 eiiiiiaiou ia i kī pū Hanana
pa alima Unit1;
mau ‘
hana
Windows, Memo, SysUtils, Lolina, Classes, kiʻi, ka pakiko, Hoʻopihapiha, Dialogs,
StdCtrls, Date3;

kikokiko i TForm1 = papa (TForm) Button1: TButton.
MyDate: TDate3.
Button2: TButton.
hana Button1Click (Sender: TObject).

hana MyDateChange (Sender: TObject). {Hoʻohana hai aku handler (kekahi inoa). Ua kapaia ka Handler i ka wa â € œOnChangeâ € hanana, ua ki ma ka MyDate (TDate3) ke keʻena}
hana Button2Click (Sender: TObject).
uku
{Ke Kula Uku declarations}
aupuni
{Public declarations}
pau;

var
Form1: TForm1.

manaʻo
{$ R * .dfm}
hana TForm1.Button1Click (Sender: TObject).
hoomaka
MyDate: = TDate3.Create (iho); //? Ieoaeunoai TDate3 mea MyDate.OnChange: = MyDateChange. , Hui pu handler me ka hae â € œOnChangeâ € hanana}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

pau;
hana TForm1.myDateChange (Sender: TObject). {Maoli hanana handler} hoomaka ShowMessage (â € ~The la ua changedâ € ™); pau;
hana TForm1.Button2Click (Sender: TObject). hoomaka MyDate.Day:=29; , Kākau i Day waiwai, me SetDate () ka mea mai loko ke pule aku nei DoChange () ae hoʻolele i ka hoʻok & ucirckû} hopena.
pau.
pa alima Date3;
mau ‘hoʻohana SysUtils, Classes;
ʻano TDate3 = papa (TComponent) uku FDay, FMonth, FYear: Logou. DummyWord: olelo. {- Hanana waiwai —}
{1} FOnChange: TNotifyEvent. {Nenoaiuʻano hanana hai aku e like me: hana (Sender: TObject) no ka mea;}
hoomaluia hana SetDay (newDay: hua’ōlelo).
{3} hana DoChange; hōʻeuʻeu; , I ka wa a lakou ke ahi i ka hoʻok & ucirckû}
na constructor Hoʻoulu (AOwner: TComponent).
pai ia ka waiwai Day: olelo Heluhelu mai o FDay kākau SetDay; waiwai malama: olelo Heluhelu mai o FMonth kakau DummyWord; waiwai Year:’ōlelo heluhelu FYear kakau DummyWord;
{2} waiwai OnChange: TNotifyEvent Heluhelu mai o FOnChange kakau FOnChange; pau;
Ke Kaʻina Hana E hoʻokāinoa;
manaʻo
Ke Kaʻina Hana E hoʻokāinoa; hoomaka RegisterComponents (â € ~Samplesâ € ™, [TDate3]); pau;
constructor TDate3.Create (AOwner: TComponent). Hoomaka ili Hoʻoulu (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); pau;
{4} hana TDate3.SetDay (newDay: hua’ōlelo). , Ke pule aku nei hanana â € “”hoʻololi la ua}
Hoomaka FDay: = newDay. , O keia no ka hoʻok & ucirckû ia e hoʻomaopopo ‘ia ai}
{4} DoChange. {Keia ke ahi ka wā pōʻino ma kahea kona pili i ke kaʻina hana no

FOnChange (iho) ka mea nae i kapa aku i ka ia hanana handler} hopena.
{3a} hana TDate3.DoChange; E ho omaka ina Type (FOnChange) alaila, FOnChange (iho); , Ke pule aku nei pili hanana handler oiai hele ia kū’ē’ē ‘i hoala mai i ka hoʻok & ucirckû} hopena. pau.

“——————————————————————————————————————————————————

תרגום תמיכה: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

אירוע T22-23 רכיבי ירי
יחידת Unit1;
מִמְשָׁק
שימושים
Windows, הודעות, SysUtils, גרסאות, חוגים, גרפיקה, בקרות, טפסים, תיבות דו-שיח,
StdCtrls, DATE3;

הקלד TForm1 class = (TForm) Button1: TButton;
Mydate: TDate3;
Button2: TButton;
הליך Button1Click (השולח: TObject);

הליך MyDateChange (השולח: TObject); {User הכריז מטפל (כל שם). המטפל נקרא כשאירוע € € œOnChangeâ מפוטר על ידי mydate (TDate3) רכיב}
הליך Button2Click (השולח: TObject);
פְּרָטִי
{הצהרות פרטיות}
פּוּמְבֵּי
{בהצהרות פומביות}
סוֹף;

var
Form1: TForm1;

יישום
{.dfm * R $}
הליך TForm1.Button1Click (השולח: TObject);
התחל
Mydate: = TDate3.Create (עצמי); // לבנות MyDate.OnChange אובייקט TDate3: = MyDateChange; {המטפל לקשר עם האירוע הרגיל € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

סוֹף;
הליך TForm1.myDateChange (השולח: TObject); {המטפל האירוע עצמו} להתחיל ShowMessage (יום € ~The יש changedâ ™ €); סוֹף;
הליך TForm1.Button2Click (השולח: TObject); להתחיל MyDate.Day:=29; {כותב ברכוש היום, באמצעות SetDate () אשר מבפנים מפעיל DoChange () ירי במקרה} סוף;
סוֹף.
יחידת DATE3;
ממשק משתמש SysUtils, חוגים;
TYPE TDate3 class = (TComponent) פרטית FDay, FMonth, FYear: Word; DummyWord: המילה; {- רכוש האירוע —}
{1} FOnChange: TNotifyEvent; {סוג אירוע מערכת מוכרזת: הליך (שולח: TObject) של אובייקט;}
SetDay הליך מוגן (Newday: Word);
{3} הליך DoChange; דִינָמִי; {בעת הפעלתה יורה האירוע}
צור בנאי הציבור (AOwner: TComponent);
יום רכוש שפורסם: לקרוא מילה כתיבה FDay SetDay; חודש רכוש: מילה לקרוא FMonth לכתוב DummyWord; שנת נכס: המילה לקרוא FYear לכתוב DummyWord;
{2} רכוש OnChange: TNotifyEvent לקרוא FOnChange לכתוב FOnChange; סוֹף;
הרשמת הליך;
יישום
הרשמת הליך; להתחיל RegisterComponents (â ™ € € ~Samplesâ, [TDate3]); סוֹף;
TDate3.Create בנאי (AOwner: TComponent); בגין תורשתי צור (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); סוֹף;
{4} הליך TDate3.SetDay (Newday: Word); {מפעיל אירוע € “”היום משתנה}
בגין FDay: = Newday; {זה הוא האירוע כדי לקבל הודעה}
{4} DoChange; {זה יורה האירוע על ידי העלאת ההליך הקשור אליו

FOnChange (עצמי) שהיא בעצם קוראה עד סוף אירוע מטפל} מוקצה;
{3a} הליך TDate3.DoChange; להתחיל אם מוקצה (FOnChange) אז FOnChange (עצמי); {מפעילה הקשורים למטפל האירוע תוך שהם מעבירים אותו להתנגד שגייסה האירוע} סוף; סוֹף.

“——————————————————————————————————————————————————

समर्थन अनुवाद: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 अवयव निशानेबाजी घटना
इकाई Unit1;
इंटरफेस
उपयोगों
विंडोज, संदेश, SysUtils, वेरिएंट, शैक्षणिक, ग्राफिक्स, नियंत्रण, फार्म, संवाद,
StdCtrls, DATE3;

टाइप TForm1 = वर्ग (TForm) के बटन 1: TButton;
MyDate: TDate3;
Button2: TButton;
प्रक्रिया Button1Click (प्रेषक: TObject);

प्रक्रिया MyDateChange (प्रेषक: TObject); {उपयोगकर्ता हैंडलर (किसी भी नाम) घोषित कर दिया। जब â € œOnChangeâ € घटना MyDate (TDate3) घटक} द्वारा निकाल दिया है हैंडलर कहा जाता है
प्रक्रिया Button2Click (प्रेषक: TObject);
प्राइवेट
{} निजी घोषणाओं
जनता
{सार्वजनिक घोषणाओं}
समाप्त;

वर
Form1: TForm1;

कार्यान्वयन
{$ आर * .dfm}
प्रक्रिया TForm1.Button1Click (प्रेषक: TObject);
शुरू
MyDate: = TDate3.Create (स्वयं); // निर्माण TDate3 वस्तु MyDate.OnChange: = MyDateChange; {मानक â € œOnChangeâ € घटना के साथ सहयोगी हैंडलर}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

समाप्त;
प्रक्रिया TForm1.myDateChange (प्रेषक: TObject); {} वास्तविक घटना हैंडलर ShowMessage शुरू (â € ™ के ~The दिन changedâ गया है €); समाप्त;
प्रक्रिया TForm1.Button2Click (प्रेषक: TObject); MyDate.Day:=29 शुरू, {डे संपत्ति के लिए लिखते हैं, SetDate () है जो अंदर से आह्वान DoChange () घटना फायरिंग का उपयोग कर} अंत;
समाप्त।
इकाई DATE3;
इंटरफेस SysUtils, शैक्षणिक उपयोग करता है;
प्रकार TDate3 = वर्ग (TComponent) निजी FDay, FMonth, FYear: शब्द; DummyWord: शब्द; {- घटना संपत्ति —}
{1} FOnChange: TNotifyEvent; {: प्रक्रिया सिस्टम इवेंट प्रकार के रूप में घोषित किया: वस्तु की (प्रेषक TObject);}
संरक्षित प्रक्रिया SetDay (newday: शब्द);
{3} प्रक्रिया DoChange; गतिशील; {जब लागू घटना आग}
सार्वजनिक निर्माता (AOwner: TComponent) बनाएँ;
प्रकाशित संपत्ति दिवस: शब्द पढ़ने लिखने FDay SetDay; संपत्ति महीना: शब्द DummyWord के बारे में FMonth पढ़ा; संपत्ति वर्ष: शब्द पढ़ लिख FYear DummyWord;
{2} संपत्ति OnChange: TNotifyEvent पढ़ लिख FOnChange FOnChange; समाप्त;
प्रक्रिया रजिस्टर;
कार्यान्वयन
प्रक्रिया रजिस्टर; RegisterComponents (â € ~Samplesâ € ™, [TDate3]) शुरू, समाप्त;
निर्माता TDate3.Create (AOwner: TComponent); विरासत में मिला बनाएँ (AOwner) शुरू;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); समाप्त;
{4} प्रक्रिया TDate3.SetDay (newday: शब्द); {€ एक घटना का आह्वान “”दिन बदल जाता है}
FDay शुरू: = newday; {इस घटना को अधिसूचित किया जा रहा है}
{4} DoChange; {यह उसके संबंधित प्रक्रिया लागू करके घटना की आग

FOnChange (स्वयं), जो वास्तव में है सौंपा घटना हैंडलर} अंत करने के लिए कॉल;
{} 3 ए प्रक्रिया TDate3.DoChange; यदि निरुपित (FOnChange) तो FOnChange (स्वयं) शुरू; {आह्वान ईवेंट हैंडलर जुड़े जबकि गुजर यह वस्तु है जो घटना उठाया} अंत; समाप्त।

“——————————————————————————————————————————————————

Kev them nyiaj yug translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Cheebtsam tua tshwm sim
chav tsev Unit1;
interface
siv
Lub qhov rais, Lus, SysUtils, Variants, kawm, Graphics, ntawm lwm yam uas, Cov ntaub ntawv, dialogs,
StdCtrls, Date3;

ntaus TForm1 = chav kawm ntawv (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
txoj kev Button1Click (Sender: TObject);

txoj kev MyDateChange (Sender: TObject); {Neeg siv tshaj tawm hais tias handler (tej lub npe). Lub Handler yog hu ua thaum â € œOnChangeâ € kev tshwm sim yog raug rho tawm haujlwm los ntawm cov MyDate (TDate3) tivthaiv}
txoj kev Button2Click (Sender: TObject);
private
{Private tshaj tawm}
pej xeem
{Pej xeem tshaj tawm}
xaus;

var
Form1: TForm1;

siv
{$ R * .dfm}
txoj kev TForm1.Button1Click (Sender: TObject);
pib
MyDate: = TDate3.Create (self); // Tsim TDate3 khoom MyDate.OnChange: = MyDateChange; {Associate handler nrog rau tus txheej txheem â € œOnChangeâ € kev tshwm sim}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

xaus;
txoj kev TForm1.myDateChange (Sender: TObject); {Kev tshwm sim handler} pib ShowMessage (â € ~The hnub tau changedâ € ™); xaus;
txoj kev TForm1.Button2Click (Sender: TObject); pib MyDate.Day:=29; {Sau rau hnub vaj tse, siv SetDate () uas los ntawm sab hauv thov DoChange () firing cov kev tshwm sim} thaum kawg;
kawg.
chav tsev Date3;
interface siv SysUtils, kawm;
HOM TDate3 = chav kawm ntawv (TComponent) private FDay, FMonth, FYear: Lo lus; DummyWord: lo lus; {- Kev tshwm sim vaj tse —}
{1} FOnChange: TNotifyEvent; {System kev tshwm sim hom tshaj tawm hais tias raws li: txoj kev (Sender: TObject) kwv;}
tiv thaiv txoj kev SetDay (newDay: Lo lus);
{3} txoj kev DoChange; dynamic; {Thaum invoked hluav taws kub cov kev tshwm sim}
pej xeem constructor Tsim (AOwner: TComponent);
luam tawm cov khoom teejtug hnub: lo lus nyeem FDay sau SetDay; vaj tse rau lub Hlis: lo lus nyeem FMonth sau DummyWord; vaj tse xyoo: lo lus nyeem FYear sau DummyWord;
{2} vaj tse OnChange: TNotifyEvent nyeem FOnChange sau FOnChange; xaus;
txoj kev npe;
siv
txoj kev npe; pib RegisterComponents (â € ~Samplesâ € ™, [TDate3]); xaus;
constructor TDate3.Create (AOwner: TComponent); Pib pub Tsim (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); xaus;
{4} txoj kev TDate3.SetDay (newDay: Lo lus); {Thov kev tshwm sim â € “”hnub yuav hloov}
Pib FDay: = newDay; {Qhov no yog cov kev tshwm sim yuav tsum tau ceeb toom}
{4} DoChange; {No hluav taws kub cov kev tshwm sim los ntawm invoking nws txuam txoj kev

FOnChange (self) uas yog ua tau hu mus rau lub muab kev tshwm sim handler} thaum kawg;
{3a} txoj kev TDate3.DoChange; Pib Yog hais tias luag muab rau (FOnChange) ces FOnChange (self); {Invokes txuam kev tshwm sim handler thaum dua nws kwv uas tsa cov kev tshwm sim} thaum kawg; kawg.

“——————————————————————————————————————————————————

Support fordítás: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Égetés Esemény
egység egység1;
felület
felhasználások
A Windows, az Üzenetek, SysUtils, változatok, osztályok, grafika, vezérlők, Forms, párbeszédablakok,
StdCtrls, Date3;

írja TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
eljárás Button1Click (Sender: TObject);

eljárás MyDateChange (Sender: TObject); {User bejelentett kezelőt (bármilyen név). A Handler kerül meghívásra, ha â € œOnChangeâ € esemény akkor a MyDate (TDate3) komponens}
eljárás Button2Click (Sender: TObject);
magán
{Private nyilatkozatok}
nyilvános
{Nyilvános nyilatkozatok}
végén;

var
Form1: TForm1;

végrehajtás
{$ R * .dfm}
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
MyDate: = TDate3.Create (ön); // Konstrukció TDate3 objektum MyDate.OnChange: = MyDateChange; {Társult kezelője a standard â € œOnChangeâ € esemény}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

végén;
eljárás TForm1.myDateChange (Sender: TObject); {Tényleges eseménykezelő} kezdődik ShowMessage (â € ~ nap még changedâ € ™); végén;
eljárás TForm1.Button2Click (Sender: TObject); kezdődik MyDate.Day:=29; {Ír Day tulajdonság segítségével SetDate (), amely belülről meghívja DoChange () égetés esetén} end;
végén.
egység Date3;
felületet használja SysUtils, osztályok;
TYPE TDate3 = class (TComponent) magán FDay, FMonth, FYear: szó; DummyWord: szó; {- Esemény tulajdonság —}
{1} FOnChange: TNotifyEvent; {Rendszer esemény típusát nyilvánították: eljárás (Sender: TObject) a tárgy;}
védett eljárás SetDay (newDay: Word);
{3} eljárás DoChange; dinamikus; {Meghívás esetén tüzek esetén}
állami kivitelező létrehozása (AOwner: TComponent);
közzétett ingatlan Nap: szó olvasható FDay írási SetDay; ingatlan Hónap: szó olvasható FMonth levelet DummyWord; ingatlan év: szó olvasható FYear levelet DummyWord;
{2} tulajdonság OnChange: TNotifyEvent olvasni FOnChange levelet FOnChange; végén;
eljárás nyilvántartását;
végrehajtás
eljárás nyilvántartását; kezdődik RegisterComponents (â € ~Samplesâ € ™ [TDate3]); végén;
kivitelező TDate3.Create (AOwner: TComponent); Kezdje öröklött létrehozása (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); végén;
{4} eljárás TDate3.SetDay (newDay: Word); {Meghívja esemény â € “”nap változik}
Kezdje FDay: = newDay; {Ez az esemény értesítést}
{4} DoChange; {Ez tüzek esetén hivatkozva a kapcsolódó eljárás

FOnChange (self), amely valójában hívja a hozzárendelt eseménykezelő} end;
{} 3a eljárás TDate3.DoChange; Kezdeni, ha Címzett (FOnChange), majd FOnChange (ön); {Behívja kapcsolódó eseménykezelő miközben halad kifogást emelt, amely az esemény} end; végén.

“——————————————————————————————————————————————————

Stuðningur þýðing: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Hluti Hleypa Event
eining Unit1;
tengi
notkun
Windows, Skilaboð, SysUtils, Afbrigði, Classes, Grafík, Controls, Forms, glugga,
StdCtrls, Date3;

slá TForm1 = bekknum (TForm) BUTTON1: TButton;
MyDate: TDate3;
Button2: TButton;
málsmeðferð Button1Click (Sendandi: TObject);

málsmeðferð MyDateChange (Sendandi: TObject); {User lýsti dýraþjálfari (hvaða nafn). The Handler er kallað þegar € œOnChangeâ € atburður er rekinn af MyDate (TDate3) efnisþáttur}
málsmeðferð Button2Click (Sendandi: TObject);
persónulegur
{Private yfirlýsingar}
opinber
{Almenn yfirlýsingar}
enda;

Var
Form1: TForm1;

framkvæmd
{$ R * .dfm}
málsmeðferð TForm1.Button1Click (Sendandi: TObject);
byrja
MyDate: = TDate3.Create (sjálf); // Reisa TDate3 mótmæla MyDate.OnChange: = MyDateChange; {Félagi stjórnandinn með staðall â € œOnChangeâ € atburður}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

enda;
málsmeðferð TForm1.myDateChange (Sendandi: TObject); {Raunveruleg atburður dýraþjálfari} byrja ShowMessage (â € ~The dag hefur changedâ € ™); enda;
málsmeðferð TForm1.Button2Click (Sendandi: TObject); byrja MyDate.Day:=29~~dobj; {Skrifar á eignum Day, með því að nota SetDate () sem innan invokes DoChange () hleypa atburður} enda;
enda.
eining Date3;
tengi notar SysUtils, flokkum;
TYPE TDate3 = flokki (TComponent) persónulegur FDay, FMonth, FYear: Word; DummyWord: orð; {- Atburður eign —}
{1} FOnChange: TNotifyEvent; {Kerfi ef gerð lýst sem: aðferð (Sendandi: TObject) af hlut;}
varið aðferð SetDay (Newday: Word);
{3} aðferð DoChange; dynamic; {Þegar skírskotað eldar atburðinn}
opinber framkvæmdaaðila Búa (AOwner: TComponent);
birt eign Dagur: Bæta lesa FDay skrifa SetDay; Eign Mánuður: Bæta lesa FMonth skrifa DummyWord; Eign Ár: Bæta lesa FYear skrifa DummyWord;
{2} eign OnChange: TNotifyEvent lesa FOnChange skrifa FOnChange; enda;
málsmeðferð Register;
framkvæmd
málsmeðferð Register; byrja RegisterComponents (â € ~Samplesâ € ™, [TDate3]); enda;
framkvæmdaaðila TDate3.Create (AOwner: TComponent); Byrjaðu Erfði Búa (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); enda;
{4} aðferð TDate3.SetDay (Newday: Word); {Skírskotar atburði â € “”dagur er breytt}
Byrjaðu FDay: = Newday; {Þetta er atburður að tilkynna}
{4} DoChange; {Þetta eldar viðburðinn með því að beita tengist starfsreglur

FOnChange (sjálf) sem er í raun kalla til úthlutað atburði dýraþjálfari} enda;
{3a} aðferð TDate3.DoChange; Byrjaðu ef Úthlutað (FOnChange) þá FOnChange (sjálf); {Skírskotar tengd atburði dýraþjálfari meðan liggur það hlut sem vakti atburður} enda; enda.

“——————————————————————————————————————————————————

Nkwado translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components firing Omume
unit Unit1;
interface
ojiji
Windows, Ozi, SysUtils, variants, Klas, Graphics, Controls, Forms, Dialogs,
StdCtrls, Date3;

pịnye TForm1 = klas (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
usoro Button1Click (Ziri ozi: TObject);

usoro MyDateChange (Ziri ozi: TObject); {Onye ọrụ kwuru handler (ọ bụla aha). The handler na-akpọ mgbe a € œOnChangeâ € omume a chụọ n’ọrụ site na MyDate (TDate3) akụrụngwa}
usoro Button2Click (Ziri ozi: TObject);
onwe
{Private declarations}
ọha
{Public declarations}
akwụsị;

var
Form1: TForm1;

mmejuputa iwu-
{$ R * .dfm}
usoro TForm1.Button1Click (Ziri ozi: TObject);
amalite
MyDate: = TDate3.Create (onwe); // Rụọ TDate3 ihe MyDate.OnChange: = MyDateChange; {Na-akpakọrịta handler na ọkọlọtọ a € œOnChangeâ € omume}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

akwụsị;
usoro TForm1.myDateChange (Ziri ozi: TObject); {Mere eme n’ezie handler} amalite ShowMessage (a € ~The ụbọchị changedâ € ™); akwụsị;
usoro TForm1.Button2Click (Ziri ozi: TObject); -amalite MyDate.Day:=29; {Na-ede na Day property, na iji SetDate () nke si n’ime invokes DoChange () firing ihe omume} ọgwụgwụ;
ọgwụgwụ.
unit Date3;
interface na-eji SysUtils, Klas;
Ụdị TDate3 = klas (TComponent) onwe FDay, FMonth, FYear: Okwu; DummyWord: okwu; {- Omume onwunwe —}
{1} FOnChange: TNotifyEvent; {Usoro ihe omume ụdị akpọsa dị ka: usoro (Ziri ozi: TObject) nke ihe;}
-echebe usoro SetDay (newDay: Okwu);
{3} usoro DoChange; ike; {Mgbe kpọkuru oku na ihe omume}
ọha Constructor Mepụta (AOwner: TComponent);
bipụtara onwunwe Day: okwu-agụ FDay dee SetDay; onwunwe Ọnwa: okwu-agụ FMonth dee DummyWord; onwunwe Year: okwu-agụ FYear dee DummyWord;
{2} onwunwe OnChange: TNotifyEvent agụ FOnChange dee FOnChange; akwụsị;
usoro Register;
mmejuputa iwu-
usoro Register; -amalite RegisterComponents (a € ~Samplesâ € ™, [TDate3]); akwụsị;
Constructor TDate3.Create (AOwner: TComponent); -Amalite ketara eketa Mepụta (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); akwụsị;
{4} usoro TDate3.SetDay (newDay: Okwu); {Invokes omume a € “”ụbọchị gbanwere}
-Amalite FDay: = newDay; {Nke a bụ ihe omume na–amara gị ọkwa}
{4} DoChange; {A oku na ihe omume site n’ịkpọku ya metụtara usoro

FOnChange (onwe) nke bụ n’ezie akpọ ka e kenyere omume handler} ọgwụgwụ;
{3a} usoro TDate3.DoChange; -Amalite ma ọ bụrụ na Kenyere (FOnChange) mgbe ahụ FOnChange (onwe); {Invokes metụtara omume handler mgbe agafe ya kpawa nke welitere ihe omume} ọgwụgwụ; ọgwụgwụ.

“——————————————————————————————————————————————————

translation dukungan: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponen Memecat Kegiatan
unit Unit1;
antarmuka
kegunaan
Windows, Messages, SysUtils, Varian, Kelas, Graphics, Controls, Forms, Dialog,
StdCtrls, DATE 3;

ketik TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Prosedur Button1Click (Sender: TObject);

Prosedur MyDateChange (Sender: TObject); {User menyatakan handler (nama apapun). Handler disebut ketika â € œOnChangeâ € acara dipecat oleh komponen MyDate (TDate3)}
Prosedur Button2Click (Sender: TObject);
pribadi
{Deklarasi Swasta}
publik
{Deklarasi Umum}
akhir;

var
Form1: TForm1;

pelaksanaan
{$ R * DFM}
procedure TForm1.Button1Click (Sender: TObject);
mulai
MyDate: = TDate3.Create (self); // Membangun TDate3 objek MyDate.OnChange: = MyDateChange; {Asosiasi handler dengan standar â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

akhir;
Prosedur TForm1.myDateChange (Sender: TObject); {Sebenarnya event handler} mulai ShowMessage (â € ~The hari telah changedâ € ™); akhir;
procedure TForm1.Button2Click (Sender: TObject); mulai MyDate.Day:=29; {Menulis untuk properti Day, menggunakan setDate () yang dari dalam memanggil DoChange () menembakkan acara} end;
akhir.
Unit DATE 3;
antarmuka menggunakan SysUtils, Kelas;
TYPE TDate3 = class (TComponent) swasta FDay, FMonth, FYear: Word; DummyWord: kata; {- Event properti —}
{1} FOnChange: TNotifyEvent; {Jenis sistem event dinyatakan sebagai: procedure (Sender: TObject) dari objek;}
SetDay prosedur dilindungi (Newday: Word);
{3} DoChange prosedur; dinamis; {Ketika dipanggil kebakaran acara}
konstruktor publik Buat (AOwner: TComponent);
diterbitkan Hari properti: kata membaca FDay tulis SetDay; Bulan properti: kata membaca FMonth menulis DummyWord; Tahun properti: kata baca FYear menulis DummyWord;
{2} properti OnChange: TNotifyEvent baca FOnChange menulis FOnChange; akhir;
Prosedur Pendaftaran;
pelaksanaan
Prosedur Pendaftaran; mulai RegisterComponents (â € ~Samplesâ € ™, [TDate3]); akhir;
konstruktor TDate3.Create (AOwner: TComponent); Mulailah mewarisi Buat (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); akhir;
{4} prosedur TDate3.SetDay (Newday: Word); {Memanggil acara â € “”hari berubah}
Mulailah FDay: = Newday; {Ini adalah acara yang akan diberitahu}
{4} DoChange; {Ini kebakaran acara dengan menerapkan prosedur yang terkait

FOnChange (self) yang sebenarnya panggilan ke ditugaskan event handler} end;
{3a} prosedur TDate3.DoChange; Mulai jika Ditugaskan (FOnChange) kemudian FOnChange (self); {Memanggil terkait event sementara lewat itu keberatan yang mengangkat peristiwa} end; akhir.

“——————————————————————————————————————————————————

Aistriúchán Tacaíocht: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Comhpháirteanna Imeacht Lámhaigh
Aonad Unit1;
comhéadan
úsáidí
Windows, Teachtaireachtaí, SysUtils, malairtí, Ranganna, Graphics, Rialuithe, Foirmeacha, Dialóga,
StdCtrls, Date3;

cineál TForm1 = rang (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Nós imeachta Button1Click (Sender: TObject);

Nós imeachta MyDateChange (Sender: TObject); {Úsáideoir dhearbhú láimhseálaí (aon ainm). Is é an Handler dtugtar nuair â € œOnChangeâ € imeacht fired ag an MyDate (TDate3) comhpháirt}
Nós imeachta Button2Click (Sender: TObject);
príobháideach
{Dearbhuithe Príobháideach}
poiblí
{Dearbhuithe poiblí}
deireadh;

var
Form1: TForm1;

cur chun feidhme
{$ R * .dfm}
Nós imeachta TForm1.Button1Click (Sender: TObject);
tosú
MyDate: = TDate3.Create (féin); // Thógáil TDate3 MyDate.OnChange réad: = MyDateChange; {Láimhseálaí chomhlachú leis an â caighdeánach € œOnChangeâ € imeacht}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

deireadh;
Nós imeachta TForm1.myDateChange (Sender: TObject); {Láimhseálaí iarbhír} tosú ShowMessage (â bhfuil € ~The lá changedâ € ™); deireadh;
Nós imeachta TForm1.Button2Click (Sender: TObject); tosú MyDate.Day:=29; {Scríobhann le maoin Lá, ag baint úsáide as SetDate () a ón taobh istigh agraíonn DoChange () lámhaigh an teagmhas} deireadh;
deireadh.
Aonad Date3;
Úsáideann comhéadan SysUtils, Ranganna;
CINEÁL TDate3 = rang (TComponent) príobháideach FDay, FMonth, FYear: Word; DummyWord: focal; {- Imeacht maoine —}
{1} FOnChange: TNotifyEvent; {Córas cineál ócáid a dhearbhú mar: Nós imeachta (Sender: TObject) de réad;}
cosanta Nós imeachta SetDay (newDay: Word);
{3} Nós imeachta DoChange; dinimiciúil; {Nuair agairt tinte an ócáid}
Cruthaitheoir poiblí Cruthaigh (AOwner: TComponent);
Lá maoine foilsithe: focal a léamh FDay scríobh SetDay; maoin Mí: focal a léamh FMonth scríobh DummyWord; maoin Bliain: focal a léamh FYear scríobh DummyWord;
{2} maoin OnChange: TNotifyEvent léamh FOnChange scríobh FOnChange; deireadh;
Clár nós imeachta;
cur chun feidhme
Clár nós imeachta; tús RegisterComponents (â € ~Samplesâ € ™, [TDate3]); deireadh;
Cruthaitheoir TDate3.Create (AOwner: TComponent); Tosaigh Oidhreacht Cruthaigh (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); deireadh;
{4} imeachta TDate3.SetDay (newDay: Word); {Agraíonn imeacht â € “”Is é an lá athraithe}
Tús a chur le FDay: = newDay; {Is é seo an imeacht a chur in iúl}
{4} DoChange; {Tinte sin an ócáid trí agairt a nós imeachta a bhaineann

FOnChange (féin) atá iarbhír cuairt a thabhairt ar an sannadh láimhseálaí} deireadh;
{3a} Nós imeachta TDate3.DoChange; Tosaigh má Sannta (FOnChange) ansin FOnChange (féin); {Agraíonn bhaineann láimhseálaí agus a rith sé agóid a ardaíodh an ócáid} deireadh; deireadh.

“——————————————————————————————————————————————————

traduzione Supporto: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Componenti evento di cottura
Unità Unit1;
interfaccia
usi
Finestre, Messaggi, SysUtils, Varianti, classi, grafica, controlli, le forme, finestre di dialogo,
StdCtrls, data3;

digitare TForm1 = classe (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Procedura Button1Click (Sender: TObject);

Procedura MyDateChange (Sender: TObject); {User dichiarato gestore (qualsiasi nome). Il gestore viene chiamato quando â € œOnChangeâ € evento viene generato dal MyDate (TDate3) componente}
Procedura Button2Click (Sender: TObject);
privato
{} dichiarazioni private
pubblico
{} dichiarazioni pubbliche
fine;

var
Form1: TForm1;

implementazione
{$ R * DFM}
procedure TForm1.Button1Click (Sender: TObject);
inizio
MyDate: = TDate3.Create (auto); // Costruire TDate3 oggetto MyDate.OnChange: = MyDateChange; {Handler associato con l’evento uno standard € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fine;
Procedura TForm1.myDateChange (Sender: TObject); {} Gestore di eventi reali cominciano ShowMessage (â € ~ giorno ha changedâ € ™); fine;
procedure TForm1.Button2Click (Sender: TObject); iniziare MyDate.Day:=29; {Scrive alla proprietà Giorno, usando SetDate (), che dall’interno invoca DoChange () generare l’evento} fine;
fine.
Unità data3;
interfaccia usa SysUtils, classi;
TIPO TDate3 = classe (TComponent) privato FDay, FMonth, FYear: Word; DummyWord: parola; {- Proprietà evento —}
{1} FOnChange: TNotifyEvent; {Sistema tipo di evento dichiarato come: procedure (Sender: TObject) dell’oggetto;}
Procedura protetto SetDay (Newday: Word);
{3} procedura DoChange; dinamico; {Quando viene richiamato genera l’evento}
costruttore pubblico Create (AOwner: TComponent);
Giorno proprietà pubblicata: parola letta FDay SetDay scrittura; Proprietà Mese: parola letta FMonth scrivere DummyWord; Proprietà Anno: parola letta FYear scrivere DummyWord;
{2} proprietà OnChange: TNotifyEvent leggere FOnChange scrivere FOnChange; fine;
procedura di registro;
implementazione
procedura di registro; iniziare RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fine;
costruttore TDate3.Create (AOwner: TComponent); Iniziare ereditato Crea (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fine;
{4} procedura TDate3.SetDay (Newday: Word); {Invoca evento â € “”giorno si cambia}
Iniziare FDay: = Newday; {Questo è l’evento da notificare}
{4} DoChange; {Questo genera l’evento richiamando la sua procedura associata

FOnChange (auto) che è in realtà chiamare al gestore di eventi assegnato} end;
{} 3a procedura TDate3.DoChange; Iniziare se assegnato (FOnChange) allora FOnChange (auto); {Invoca associati gestore di eventi durante il passaggio è oggetto ha generato l’evento} fine; fine.

“——————————————————————————————————————————————————

サポート翻訳:http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23コンポーネント発射イベント
ユニットUnit1は。
インタフェース
用途
Windowsの、メッセージ、sysutilsの、バリアント、クラス、グラフィックス、コントロール、フォーム、ダイアログ、
StdCtrls、Date3。

TForm1 =クラス(TFormは)Button1を入力します。TButtonのを。
MyDateに該当:TDate3。
Button2を:TButtonの。
手続きButton1Click(送信者:TObjectを);

手順MyDateChange(送信者:TObjectを); {ユーザーは、ハンドラ(任意の名前)を宣言しました。 “OnChangeâ€イベントがいるMyDate(TDate3)コンポーネントによって発射されたときにハンドラが}と呼ばれています
手順Button2Click(送信者:TObjectを);
プライベート
{プライベート宣言}
パブリック
{公開宣言}
終わり;

VAR
Form1の:TForm1;

実装
{$ Rのの.DFM}
手順TForm1.Button1Click(送信者:TObjectを);
ベギン
MyDateに該当:= TDate3.Create(自己); // TDate3オブジェクトMyDate.OnChangeを構築:= MyDateChange。 {標準“OnChangeâ€イベントに関連付けるハンドラ}
ShowMessage(IntToStr(today.Day)):
ShowMessage(IntToStr(today.Month)):
ShowMessage(IntToStr(today.Year)):

終わり;
手順TForm1.myDateChange(送信者:TObjectを); {実際のイベントハンドラ}(€~The日’changedâ持つ)をShowMessageを始めます。終わり;
手順TForm1.Button2Click(送信者:TObjectを); MyDate.Day:=29を開始。エンド{内側からイベントを発生させる)にDoChangeを(呼び出しSETDATE()を使用して、デープロパティに書き込みます};
終わり。
ユニットDate3;
インターフェースはsysutilsの、クラスを使用しています。
TYPE TDate3 =クラス(TComponentの)プライベートFDay、FMonth、FYear:Wordの。 DummyWord:単語; { – イベントプロパティ—}
{1} FOnChange:TNotifyEvent; {:手順(送信者:TObjectを)として宣言されたシステムイベントタイプオブジェクトの;}
保護されたプロシージャSetDay(newDay:ワード);
{3}プロシージャにDoChange。動的; {呼び出されたときには、イベントを起動します}
パブリックコンストラクタは(AOwner:TComponentの)を作成します。
公開されたプロパティ日:ワード・リードFDay書き込みSetDay。プロパティ月:ワードはDummyWordを書くFMonth読み取ります。プロパティ年:ワードはFYearがDummyWordを読み書き;
{2}プロパティのOnChange:TNotifyEventはFOnChangeがFOnChangeを読み書き;終わり;
手順の登録;
実装
手順の登録;するRegisterComponentsを開始(â€~Samples’、[TDate3]);終わり;
コンストラクタTDate3.Create(AOwner:TComponentの);継承された開始(AOwner)を作成します。
DecodeDate(SysUtils.Date、FYear、FMonth、FDay)。終わり;
{4}手順TDate3.SetDay(newDay:ワード); {日が変更された†“”イベントを呼び出します}
FDayを開始します= newDay。 {これは、イベントが通知されます}
{4}にDoChange。 {これは、その関連手続きを呼び出すことによって、イベントを起動します

実際に割り当てられたイベントハンドラ}最後に呼んでFOnChange(自己);
{図3a}プロシージャTDate3.DoChange。 (FOnChange)その後FOnChange(自己)割り当てられた場合に開始します。エンド{呼び出しますが、それがイベントを発生させているオブジェクトを通過する間にイベントハンドラを関連付けられています};終わり。

“——————————————————————————————————————————————————

translation Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Diperlokaké Event
unit Unit1;
antarmuka
Efesus
Windows, Pesen, SysUtils, Varian, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Date3;

ngetik TForm1 = kelas (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
prosedur Button1Click (Pangirim: TObject);

prosedur MyDateChange (Pangirim: TObject); {User ngumumaké ngopeni (jeneng sembarang). Handler diarani nalika â € œOnChangeâ € acara wis murub dening komponèn ing MyDate (TDate3)}
prosedur Button2Click (Pangirim: TObject);
pribadi
{Pranyatan Private}
umum
{Pranyatan Public}
mungkasi;

var
Form1: TForm1;

implementasine
{$ R * .dfm}
prosedur TForm1.Button1Click (Pangirim: TObject);
miwiti
MyDate: = TDate3.Create (poto); // Mbangun TDate3 obyek MyDate.OnChange: = MyDateChange; {Digandhengake ngopeni karo standar â € œOnChangeâ € acara}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

mungkasi;
prosedur TForm1.myDateChange (Pangirim: TObject); {Nyata acara handler} miwiti ShowMessage (â € ~The dina wis changedâ € ™); mungkasi;
prosedur TForm1.Button2Click (Pangirim: TObject); miwiti MyDate.Day:=29; {Nyerat kanggo property Day, nggunakake SetDate () kang saka njero njejaluk DoChange () diperlokaké ing acara} pungkasan;
mburi.
unit Date3;
antarmuka migunakake SysUtils, Classes;
TYPE TDate3 = kelas (TComponent) pribadi FDay, FMonth, FYear: Tembung; DummyWord: tembung; {- Acara property —}
{1} FOnChange: TNotifyEvent; {Sistem jinis acara ngumumaké minangka: prosedur (Pangirim: TObject) saka obyek;}
SetDay prosedur sing direksa (newDay: Tembung);
{3} DoChange prosedur; dinamis; {Nalika kasebut fires acara}
konstruktor umum Damel (AOwner: TComponent);
diterbitake Day property: tembung maca FDay nulis SetDay; Wulan property: tembung maca FMonth nulis DummyWord; Taun property: tembung maca FYear nulis DummyWord;
{2} property OnChange: TNotifyEvent maca FOnChange nulis FOnChange; mungkasi;
prosedur Register;
implementasine
prosedur Register; miwiti RegisterComponents (â € ~Samplesâ € ™, [TDate3]); mungkasi;
konstruktor TDate3.Create (AOwner: TComponent); Mulai warisaken Nggawe (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); mungkasi;
{4} prosedur TDate3.SetDay (newDay: Tembung); {Njejaluk acara â € “”dina diganti}
Mulai FDay: = newDay; {Iki acara kanggo notifikasi}
{4} DoChange; {Iki fires acara dening invoking prosedur sing kagandhèng

FOnChange (poto) kang bener nelpon menyang diutus acara handler} pungkasan;
{3a} prosedur TDate3.DoChange; Mulai yen diutus (FOnChange) banjur FOnChange (poto); {Njejaluk gadhah acara handler nalika maringaken iku obyek kang wungu acara} pungkasan; mburi.

“——————————————————————————————————————————————————

ಅನುವಾದ ಬೆಂಬಲ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ಘಟಕಗಳು ಟರ್ಕಿಗಳಿಗೆ ಈವೆಂಟ್
ಘಟಕ Unit1;
ಇಂಟರ್ಫೇಸ್
ಉಪಯೋಗಗಳು
ವಿಂಡೋಸ್, ಸಂದೇಶಗಳು, SysUtils, ಮಾರ್ಪಾಟುಗಳು, ತರಗತಿಗಳು, ಗ್ರಾಫಿಕ್ಸ್, ನಿಯಂತ್ರಣಗಳು, ಫಾರ್ಮ್ಸ್, ಸಂವಾದಗಳನ್ನು,
StdCtrls, Date3;

ಟೈಪ್ TForm1 = ವರ್ಗ (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
ವಿಧಾನ Button1Click (ಕಳುಹಿಸಿದವರ: TObject);

ವಿಧಾನ MyDateChange (ಕಳುಹಿಸಿದವರ: TObject); {ಬಳಕೆದಾರ ಹ್ಯಾಂಡ್ಲರ್ (ಯಾವುದೇ ಹೆಸರು) ಘೋಷಿಸಿತು. ಒಂದು € œOnChangeâ € ಕ್ರಿಯೆಯನ್ನು MyDate (TDate3) ಅಂಶವು} ಹಾರಿಸಿದ ಮಾಡಿದಾಗ ಹ್ಯಾಂಡ್ಲರ್ ಕರೆಯಲಾಗುತ್ತದೆ
ವಿಧಾನ Button2Click (ಕಳುಹಿಸಿದವರ: TObject);
ಖಾಸಗಿ
{ಖಾಸಗಿ ಘೋಷಣೆಗಳು}
ಸಾರ್ವಜನಿಕ
{ಸಾರ್ವಜನಿಕ ಘೋಷಣೆಗಳು}
ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;

ವರ್
Form1: TForm1;

ಅನುಷ್ಠಾನ
{$ ಆರ್ * .dfm}
ವಿಧಾನ TForm1.Button1Click (ಕಳುಹಿಸಿದವರ: TObject);
ಆರಂಭಿಸಲು
MyDate: = TDate3.Create (ಸ್ವಯಂ); // ನಿರ್ಮಿಸಲು TDate3 ವಸ್ತು MyDate.OnChange: = MyDateChange; {ಸ್ಟ್ಯಾಂಡರ್ಡ್ ಎ € œOnChangeâ € ಕ್ರಿಯೆಯನ್ನು ಸಹಾಯಕ ಹ್ಯಾಂಡ್ಲರ್}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;
ವಿಧಾನ TForm1.myDateChange (ಕಳುಹಿಸಿದವರ: TObject); {ನೈಜ ಘಟನೆಯ ಹ್ಯಾಂಡ್ಲರ್} ShowMessage ಆರಂಭಿಸಲು (ಒಂದು € ~The ದಿನ € ™ changedâ ಮಾಡಿದೆ); ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;
ವಿಧಾನ TForm1.Button2Click (ಕಳುಹಿಸಿದವರ: TObject); MyDate.Day:=29 ಆರಂಭಿಸಲು; ಕೊನೆಯಲ್ಲಿ {ಒಳಗಿನಿಂದ ಪ್ರಾರ್ಥನೆಯಿಂದುಂಟಾಗುವ DoChange () ಈವೆಂಟ್ ಗುಂಡಿನ SetDate () ಬಳಸಿಕೊಂಡು, ದಿನ ಆಸ್ತಿ ಬರೆಯುತ್ತಾರೆ}
ಕೊನೆಯಲ್ಲಿ.
ಘಟಕ Date3;
ಇಂಟರ್ಫೇಸ್ SysUtils, ತರಗತಿಗಳು ಬಳಸುತ್ತದೆ;
ಕೌಟುಂಬಿಕತೆ TDate3 = ವರ್ಗ (TComponent) ಖಾಸಗಿ FDay, FMonth, FYear: ಪದಗಳ; DummyWord: ಪದ; {- ಕ್ರಿಯೆಯನ್ನು ಆಸ್ತಿ —}
{1} FOnChange: TNotifyEvent; {: ವಿಧಾನ (ಕಳುಹಿಸಿದವರ: TObject) ವಸ್ತುವಿನ ವ್ಯವಸ್ಥೆ ಕ್ರಿಯೆಯನ್ನು ರೀತಿಯ ಘೋಷಿಸಿರುವುದು}
ರಕ್ಷಣೆ ವಿಧಾನ SetDay (Newday: ವರ್ಡ್);
{3} ವಿಧಾನ DoChange; ಕ್ರಿಯಾತ್ಮಕ; {ಮನವಿ ಮಾಡಿದಾಗ ಕ್ರಿಯೆಯನ್ನು ಹಾರಿಸಿ}
ಸಾರ್ವಜನಿಕ ನಿರ್ಮಾಣಕಾರ (AOwner: TComponent) ರಚಿಸಿ;
ಪ್ರಕಟಿಸಿದ ಆಸ್ತಿ ದಿನ: ಪದ ಓದಲು FDay ಬರಹ SetDay; ಆಸ್ತಿ ತಿಂಗಳ: ಪದ FMonth DummyWord ಬರೆಯಲು ಓದಿ; ಆಸ್ತಿ ವರ್ಷ: ಪದ ಓದಲು FYear ಬರೆಯಲು DummyWord;
{2} ಆಸ್ತಿ onChange: TNotifyEvent ಓದಲು FOnChange ಬರೆಯಲು FOnChange; ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;
ವಿಧಾನ ನೋಂದಣಿ;
ಅನುಷ್ಠಾನ
ವಿಧಾನ ನೋಂದಣಿ; RegisterComponents (€ ~Samplesâ € ™ [TDate3] ಒಂದು) ಆರಂಭಿಸಲು; ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;
ನಿರ್ಮಾಣಕಾರ TDate3.Create (AOwner: TComponent); ಆನುವಂಶಿಕವಾಗಿ (AOwner) ರಚಿಸಿ ಆರಂಭಿಸಲು;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ಕೊನೆಗೊಳ್ಳುತ್ತದೆ;
{4} ವಿಧಾನ TDate3.SetDay (Newday: ವರ್ಡ್); {€ ಈವೆಂಟ್ ಆಹ್ವಾನಿಸಬಹುದು “”ದಿನ ಬದಲಾಗಿದ್ದು}
FDay ಆರಂಭಿಸಲು: = Newday; {ಈ ಈವೆಂಟ್ ಸೂಚನೆಯನ್ನು ಆಗಿದೆ}
{4} DoChange; {ಈ ಅದರ ಸಂಬಂಧಿತ ವಿಧಾನ ಪ್ರಚೋದಿಸುವುದು ಕ್ರಿಯೆಯನ್ನು ಹಾರಿಸಿ

FOnChange (ಸ್ವಯಂ) ವಾಸ್ತವವಾಗಿ ನಿಗದಿಪಡಿಸಲಾಗಿದೆ ಕ್ರಿಯೆಯನ್ನು ಹ್ಯಾಂಡ್ಲರ್} ಕೊನೆಯಲ್ಲಿ ಕರೆ ಇದು;
{3a} ವಿಧಾನ TDate3.DoChange; ನಿಯೋಜಿಸಲಾಗಿದೆ ವೇಳೆ (FOnChange) ನಂತರ FOnChange (ಸ್ವಯಂ) ಆರಂಭಿಸಲು; ಕೊನೆಯಲ್ಲಿ {ಆಹ್ವಾನಿಸಬಹುದು ಕ್ರಿಯೆಯನ್ನು ಮಾಡಿತು ವಸ್ತು ಹಾದುಹೋಗುವ ಕ್ರಿಯೆಯನ್ನು ಹ್ಯಾಂಡ್ಲರ್ ಸಂಬಂಧಿಸಿದ} ಕೊನೆಯಲ್ಲಿ.

“——————————————————————————————————————————————————

Қолдау аударма: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

Оқиға жағуды T22-23 компоненттері
бірлігі Блок 1;
интерфейс
пайдалану
Windows, Хабарлар, SysUtils, нұсқалары, Сыныптар, графика, басқару, нысандары, Dialogs,
StdCtrls, Date3;

TForm1 = класс (TForm) Button1 теріңіз: TButton;
MyDate: TDate3;
Button2: TButton;
рәсім Button1Click (Sender: TObject);

рәсім MyDateChange (Sender: TObject); {Пайдаланушы обработчик (кез келген атауы) жариялады. â € € œOnChangeâ іс-шара MyDate (TDate3) компоненті арқылы жұмыстан шығарды кезде Хэндлер} деп аталады
рәсім Button2Click (Sender: TObject);
жеке
{Private декларациялар}
қоғамдық
{Public декларациялар}
Соңы;

Var
Form1: TForm1;

іске асыру
{$ R * .dfm}
рәсім TForm1.Button1Click (Sender: TObject);
БАСТА
MyDate: = TDate3.Create (Self); // TDate3 нысан MyDate.OnChange салу: = MyDateChange; {€ € œOnChangeâ оқиғасы стандартына доцент өңдегіші}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

Соңы;
рәсім TForm1.myDateChange (Sender: TObject); {Нақты обработчик} (€ ~The күн changedâ € ™ бар) ShowMessage басталады; Соңы;
рәсім TForm1.Button2Click (Sender: TObject); MyDate.Day:=29~~dobj басталады; ұшын {іс-шара күйдіру ішінен DoChange (шақыратын SetDate ()) пайдалана отырып, күн мүлікке жазады};
Соңы.
бірлігі Date3;
интерфейс SysUtils, Сыныптар пайдаланады;
TYPE TDate3 = класс (TComponent) жеке FDay, FMonth, FYear: Word; DummyWord: сөз; {- Оқиға сипатының —}
{1} FOnChange: TNotifyEvent; {: Тәртіппен (Sender: TObject) болып жарияланды жүйесі іс-шара түрі объектінің;}
қорғалған рәсімі SetDay (newDay: Word);
{3} тәртібі DoChange; динамикалық; {Шақырылады кезде оқиғаны зажигает}
қоғамдық конструкторлық (AOwner: TComponent) жасау;
мүліктік күні жарияланған: сөз FDay SetDay жазыңыз оқып; мүліктік Ай: сөз FMonth DummyWord жазыңыз оқып; мүліктік жылы: сөз FYear DummyWord жазыңыз оқып;
{2} мүлікті OnChange: FOnChange FOnChange жаза оқып TNotifyEvent; Соңы;
тәртібі Тіркелу;
іске асыру
тәртібі Тіркелу; RegisterComponents басталады (A € ~Samplesâ € ™, [TDate3]); Соңы;
Конструктор TDate3.Create (AOwner: TComponent); мұраға бастау (AOwner) жасау;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Соңы;
{4} тәртібі TDate3.SetDay (newDay: Word); {€ «күні іс-шара өзгереді шақырады}
FDay бастау: = newDay; {Бұл хабардар болуы қажет шара болып табылады}
{4} DoChange; {Бұл оның байланысты рәсімді шақыру арқылы іс-шараны зажигает

іс жүзінде тағайындалған обработчик} соңына қоңырау болып FOnChange (өзін);
{3a} тәртібі TDate3.DoChange; Тағайындалған егер (FOnChange), содан кейін FOnChange (өзі) бастау; ұшын {шақырады, ол іс-шара көтерілген, ол қарсылық өту кезінде обработчик оқиғалар байланысты}; Соңы.

“——————————————————————————————————————————————————

ការបកប្រែការគាំទ្រ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

សមាសភាគព្រឹត្តិការណ៍បាញ់ T22-23
អង្គភាព Unit1;
ចំណុចប្រទាក់
ការប្រើប្រាស់
ប្រព័ន្ធប្រតិបត្តិការ Windows, សារ, SysUtils, វ៉ារ្យ៉ង់, ថ្នាក់, ក្រាហ្វិក, ការត្រួតពិនិត្យ, ទម្រង់, ប្រអប់,
StdCtrls, Date3;

វាយ TForm1 = ថ្នាក់ (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
នីតិវិធី Button1Click (អ្នកផ្ញើ: TObject);

MyDateChange នីតិវិធី (អ្នកផ្ញើ: TObject); {អ្នកប្រើបានប្រកាសកម្មវិធីដោះស្រាយ (ឈ្មោះណាមួយ) ។ ដោះស្រាយនេះត្រូវបានហៅនៅពេលដែលព្រឹត្តិការណ៍€œOnChangeâ€ត្រូវបានបាញ់ដោយ MyDate នេះ (TDate3) សមាសភាគ}
នីតិវិធី Button2Click (អ្នកផ្ញើ: TObject);
ឯកជន
{ប្រកាសឯកជន}
សាធារណៈ
{ប្រកាសជាសាធារណៈ}
បញ្ចប់;

var
Form1: TForm1;

ការអនុវត្តន៍
{$ ៛ * .dfm}
នីតិវិធី TForm1.Button1Click (អ្នកផ្ញើ: TObject);
ចាប់ផ្តើម
MyDate: = TDate3.Create (ដោយខ្លួនឯង); // សាងសង់ MyDate.OnChange វត្ថុ TDate3: = MyDateChange; {កម្មវិធីដោះស្រាយការរងជាមួយនឹងស្ដង់ដារជាព្រឹត្តិការណ៍€œOnChangeâ€}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

បញ្ចប់;
នីតិវិធី TForm1.myDateChange (អ្នកផ្ញើ: TObject); {កម្មវិធីដោះស្រាយព្រឹត្តិការណ៍ពិតប្រាកដ} ការចាប់ផ្តើម ShowMessage (ក្នុងមួយថ្ងៃ€ ~The បានchanged’); បញ្ចប់;
នីតិវិធី TForm1.Button2Click (អ្នកផ្ញើ: TObject); ចាប់ផ្តើមការ MyDate.Day:=29; {សរសេរទៅទ្រព្យសម្បត្តិថ្ងៃដោយប្រើ SetDate () ដែលមានពីខាងក្នុងជាប់ DoChange () បាញ់ព្រឹត្តិការណ៍} ចុង;
ចុង។
អង្គភាព Date3;
ចំណុចប្រទាក់ប្រើ SysUtils, ថ្នាក់;
ប្រភេទ TDate3 = ថ្នាក់ (TComponent) ឯកជន FDay, FMonth, FYear: ព្រះបន្ទូល; DummyWord: ពាក្យ; {- អចលនទ្រព្យព្រឹត្តិការណ៍ —}
{1} FOnChange: TNotifyEvent; {ប្រព័ន្ធប្រភេទព្រឹត្តិការណ៍ប្រកាសជា: នីតិវិធី (អ្នកផ្ញើ: TObject) នៃវត្ថុ;}
SetDay នីតិវិធីការពារ (newDay: ពាក្យ);
{3} DoChange នីតិវិធី; ថាមវន្ត; {នៅពេលដែលបានហៅព្រឹត្តិការណ៍នេះ} បាញ់
បង្កើតសាធារណៈបង្កើត (AOwner: TComponent);
ទិវាអចលនទ្រព្យដែលបានចេញផ្សាយ: ពាក្យសរសេរការអាន FDay SetDay! ខែអចលនទ្រព្យ: ពាក្យសរសេរ DummyWord អាន FMonth! ឆ្នាំអចលនទ្រព្យ: ពាក្យសរសេរ DummyWord អាន FYear!
{2} អចលនទ្រព្យ OnChange: TNotifyEvent អាន FOnChange សរសេរ FOnChange; បញ្ចប់;
ចុះឈ្មោះនីតិវិធី;
ការអនុវត្តន៍
ចុះឈ្មោះនីតិវិធី; ចាប់ផ្តើមការ RegisterComponents (លោក€~Samples’, [TDate3]); បញ្ចប់;
TDate3.Create បង្កើត (AOwner: TComponent); ចាប់ផ្តើមការទទួលមរតកបង្កើត (AOwner);
ឌិកូដ (SysUtils.Date, FYear, FMonth, FDay); បញ្ចប់;
{4} TDate3.SetDay នីតិវិធី (newDay: ពាក្យ); {សំអាងព្រឹត្តិការណ៍€ “”ថ្ងៃត្រូវបានផ្លាស់ប្តូ}
ចាប់ផ្តើមការ FDay: = newDay; {នេះជាព្រឹត្តិការណ៍ដែលនឹងត្រូវបានជូនដំណឹង}
{4} DoChange; {នេះបាញ់ព្រឹត្តិការណ៍នេះដែលជាប់ទាក់ទងដោយហៅនីតិវិធីរបស់ខ្លួន

FOnChange (ដោយខ្លួនឯង) ដែលជាការពិតការហៅឱ្យ handler ព្រឹត្តិការណ៍ដែលបានផ្ដល់} ចុង;
{3a} TDate3.DoChange នីតិវិធី; ចាប់ផ្តើមការប្រសិនបើការកំណត់ (FOnChange) បន្ទាប់មក FOnChange (ដោយខ្លួនឯង); {ហៅបានផ្សារភ្ជាប់ handler ព្រឹត្តិការណ៍ខណៈពេលឆ្លងកាត់វាវត្ថុដែលបានលើកឡើងព្រឹត្តិការណ៍} ចុង; ចុង។

“——————————————————————————————————————————————————

지원 번역 : http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 구성 요소 발사 이벤트
단위 유니트 1;
인터페이스
사용
윈도우, 메시지, SysUtils와, 변형, 클래스, 그래픽, 컨트롤, 양식, 대화 상자,
StdCtrls, Date3;

된 TForm1 = 클래스 (TForm 클래스) Button1을 입력하여 TButton을;
MyDate가 : TDate3;
Button2를 TButton으로;
절차 Button1Click이라 (보낸 사람 : TObject의);

프로 시저 MyDateChange (보낸 사람 : TObject의); {사용자는 핸들러 (모든 이름)을 선언했다. € œOnChangeâ € 이벤트 â MyDate가 (TDate3) 구성 요소}에 의해 발사 될 때 핸들러가 호출됩니다
절차 Button2Click (보낸 사람 : TObject의);
은밀한
{개인 선언}
공공의
{공개 선언}
종료;

VAR
Form1에 : 된 TForm1;

이행
{$ R의 *의 .DFM}
절차 TForm1.Button1Click (보내는 사람 : TObject의);
시작
MyDate가 = TDate3.Create (자기); // TDate3 개체 MyDate.OnChange을 구성 = MyDateChange; {표준 â € œOnChangeâ € 이벤트와 연관 핸들러}
ShowMessage (된 IntToStr (today.Day)) :
ShowMessage (된 IntToStr (today.Month)) :
ShowMessage (된 IntToStr (today.Year)) :

종료;
절차 TForm1.myDateChange (보낸 사람 : TObject의); {실제 이벤트 핸들러} ShowMessage을 시작 (€ ~The 일이 € ™를 changedâ 한); 종료;
절차 TForm1.Button2Click (보내는 사람 : TObject의); MyDate.Day:=29을 시작; 끝 {내부에서 이벤트를 트리거) DoChange을 (호출하여 setDate ()를 사용하여, 일 속성에 기록};
종료.
단위 Date3;
인터페이스는 SysUtils와, 클래스를 사용합니다;
TYPE TDate3 = 클래스 (TComponent의) 개인 FDay, FMonth, FYear : 말씀; DummyWord : 단어; {- 이벤트 속성 —}
{1} FOnChange : TNotifyEvent; {개체 : (TObject의 보낸 사람) 절차 시스템은 이벤트 유형으로 선언}
보호 절차 SetDay (newDay : 워드);
{3} 절차 DoChange; 동적; {호출 할 때 이벤트를 발생}
공개 생성자 (AOwner : TComponent의) 만들기;
게시 속성 일 : 단어 읽기 FDay 쓰기 SetDay; 등록 월 : 단어 DummyWord 쓰기 FMonth 읽기; 속성 년도 : 단어가 FYear가 DummyWord 쓰기 읽기;
{2} 속성의 OnChange : TNotifyEvent이 FOnChange가 FOnChange 쓰기 읽기; 종료;
프로 시저 등록;
이행
프로 시저 등록; (€ ~Samplesâ € ™, [TDate3] â)의 RegisterComponents을 시작; 종료;
생성자 TDate3.Create (AOwner : TComponent의); (AOwner)를 작성 상속 된 시작;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); 종료;
{4} 절차 TDate3.SetDay (newDay : 워드); {일이 변경 될 â € “”이벤트를 호출}
FDay 시작 = newDay; {이 이벤트가 통지하는 것입니다}
{4} DoChange; {이 관련 절차를 호출하여 이벤트를 발생

FOnChange 할당 된 이벤트 핸들러} 마지막에 호출 실제로 (자기);
{도 3a} 절차 TDate3.DoChange을; (FOnChange) 다음 FOnChange (자기) 할당 된 경우 시작; 끝 {이 이벤트를 발생하는 개체를 통과하면서 호출로 이벤트 핸들러를 연결}; 종료.

“——————————————————————————————————————————————————

werger Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Event
yekîneya Unit1;
virtual
uses
Windows, Messages, SysUtils, Variants, Ders, Graphics, Newepel, Teşe, diyalog,
StdCtrls, Date3;

Corê TForm1 class = (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
prosedureke Button1Click (virrêkerî: TObject);

MyDateChange kirarî (virrêkerî: TObject); {User îlan = ku = (ti name). The Handler re tê gotin dema ku bûyer € œOnChangeâ € ji aliyê MyDate (TDate3) component} gule
prosedureke Button2Click (virrêkerî: TObject);
taybet
{Daxuyanî Private}
alenî
{Daxuyanî Public}
dawî;

var
Form1: TForm1;

pêkanîna
{$ R * .dfm}
prosedureke TForm1.Button1Click (virrêkerî: TObject);
destpêkirin
MyDate: = TDate3.Create (self); // Avakirina TDate3 MyDate.OnChange object: = MyDateChange; {Commonscat bi yên ku â standard bûyer € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

dawî;
prosedureke TForm1.myDateChange (virrêkerî: TObject); {Commonscat bûyer rastî} dest ShowMessage (â € roj ~The changedâ hatiye € ™); dawî;
prosedureke TForm1.Button2Click (virrêkerî: TObject); dest MyDate.Day:=29; {Dinivîse malê Day, bikaranîna SetDate () ku ji nava qanûnên DoChange () teqe li bûyera} dawî;
dawî.
yekîneya Date3;
virtual zimên SysUtils, Ders;
TYPE TDate3 class = (TComponent) taybet FDay, FMonth, FYear: Word; DummyWord: peyva; {- Property bûyer —}
{1} FOnChange: TNotifyEvent; {Sîstema type bûyerê ragihand ku: kirarî (virrêkerî: TObject) ji object;}
parastin, pźvajoya SetDay (newDay: Word);
{3} prosedureke DoChange; dînamîk; {Dema ku bên karandin agiran bûyer}
takvim giştî Create (AOwner: TComponent);
weşandin Day property: peyva xwendin FDay binivîse SetDay; Month property: peyva xwendin FMonth binivîse DummyWord; malê Sal: peyva dixwînin FYear binivîse DummyWord;
{2} malê OnChange: TNotifyEvent xwendin FOnChange binivîse FOnChange; dawî;
Xwe register bike kirarî de ne;
pêkanîna
Xwe register bike kirarî de ne; dest RegisterComponents (â € ~Samplesâ € ™, [TDate3]); dawî;
TDate3.Create yên avakirinê (AOwner: TComponent); Dest Create maye, (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); dawî;
{4} prosedureke TDate3.SetDay (newDay: Word); {Qanûnên bûyer â € “”roj guhertin}
Dest FDay: = newDay; {Ev e ku ev bûyer bên agahkirin}
{4} DoChange; {Vê agiran bûyer, bi xwespartina kirarî ya têkildarî wê

FOnChange (self) e, ku di rastiyê de bang li rêdan handler bûyer} dawî;
{3a} TDate3.DoChange kirarî de ne; Dest eger Assigned (FOnChange) paşê FOnChange (self); {Bang re têkildar handler bûyerê dema ew gihîştin mebesta ku rakir bûyer} dawî; dawî.

“——————————————————————————————————————————————————

Колдоо котормо: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 компоненттери Мулан кошуу
бирдиги Unit1;
колдонмо
колдонуу
Windows, Messages, SysUtils, Чыгарылган, класстар, сүрөттөрдү, башкаруу, түрлөрү, диалогдору,
StdCtrls, Date3;

түрү TForm1 = класс (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
тартиби Button1Click (Жөнөтүүчүнүн: TObject);

тартиби MyDateChange (Жөнөтүүчүнүн: TObject); {User машыктыруучу (бир ат) деп жарыялады. Handler € œOnChangeâ € окуя качан деп аталат MyDate менен иштен (TDate3) компоненти}
тартиби Button2Click (Жөнөтүүчүнүн: TObject);
жеке
{Жеке арыздар}
коомдук
{Коомдук арыздар}
жок;

VAR
Номери1: TForm1;

ишке ашыруу
{$ R * .dfm}
тартиби TForm1.Button1Click (Жөнөтүүчүнүн: TObject);
баштоо
MyDate: = TDate3.Create (өз алдынча); // TDate3 объект MyDate.OnChange куруу: = MyDateChange; {Стандарттык â € œOnChangeâ € окуя менен бирге иштеткичи}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

жок;
тартиби TForm1.myDateChange (Жөнөтүүчүнүн: TObject); {Чыныгы окуялар иштеткичи} ShowMessage башталат (€ ~The күнү € ™ changedâ бар); жок;
тартиби TForm1.Button2Click (Жөнөтүүчүнүн: TObject); баштоо MyDate.Day:=29~~dobj; {Day мүлккө жазган, SetDate колдонуу () DoChange ичтен бекемдейт () окуя менен аткылаган} жок;
аягы.
бирдиги Date3;
режиминен SysUtils, Класстарды колдонот;
TYPE TDate3 = класс (TComponent) жеке FDay, FMonth, FYear: Word; DummyWord: сөз; {- Бул иш-чара мүлк —}
{1} FOnChange: TNotifyEvent; {Тутумдук окуя түрү катары: тартипте (Жөнөтүүчүнүн: TObject) объекттин;}
корголуучу тартиби SetDay (newDay: Word);
{3} тартиби DoChange; динамикалык; {Качан дуба окуя жан кечтинин кол}
коомдук конструктор түзүү (AOwner: TComponent);
жарыяланган мүлк күнү: сөз окуп FDay жазуу SetDay; мүлк Month: сөз DummyWord жазуу FMonth окуу; мүлк Year: сөз FYear DummyWord жаздыруу;
{2} мүлк OnChange: TNotifyEvent FOnChange FOnChange жазуу окуу; жок;
тартиби реестри;
ишке ашыруу
тартиби реестри; RegisterComponents (â € ~Samplesâ € ™ [TDate3]) башталат; жок;
конструктор TDate3.Create (AOwner: TComponent); тукум кууп баштайт түзүү (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); жок;
{4} тартиби TDate3.SetDay (newDay: Word); {Күнү өзгөртүлдү € â окуяны «бекемдейт}
Баштоо FDay: = newDay; {Бул кабарлоо үчүн иш-чара болуп саналат}
{4} DoChange; {Бул анын байланышкан жол-сыйынуу менен окуя аткылады

FOnChange иш жүзүндө берилген окуялар иштеткичи} аягына чейин чакыруу болуп саналат (өз алдынча);
{3a} тартиби TDate3.DoChange; Берилген (FOnChange) анда FOnChange (өз алдынча) эгерде башталат; аягы {ал окуя көтөрүү каршы өтүп баратып кайталоону сурай байланышкан окуя машыктыруучусу}; аягы.

“——————————————————————————————————————————————————

ການແປພາສາສະຫນັບສະຫນູນ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ສ່ວນປະກອບກິດຈະກໍາໄຟ
ຫນ່ວຍບໍລິການ Unit1;
ການໂຕ້ຕອບ
ການນໍາໃຊ້
Windows, ຂໍ້ຄວາມ, SysUtils, Variants, ຫ້ອງຮຽນ, ຮູບພາບ, ການຄວບຄຸມ, ຮູບແບບ, ສົນທະນາ,
StdCtrls, Date3;

ພິມ TForm1 class = (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
ຂັ້ນຕອນ Button1Click (ຜູ້ສົ່ງ: TObject);

ຂັ້ນຕອນ MyDateChange (ຜູ້ສົ່ງ: TObject); {user ປະກາດຈັດການ (ຊື່ໃດ). ຕົວຈັດການໄດ້ຖືກເອີ້ນວ່າໃນເວລາທີ່ເປັນ€œOnChangeâ€ກໍລະນີທີ່ໄດ້ຖືກຍິງໂດຍ MyDate (TDate3) ອົງປະກອບ}
ຂັ້ນຕອນ Button2Click (ຜູ້ສົ່ງ: TObject);
ສ່ວນຕົວ
{ການປະກາດເອກກະຊົນ}
ສາທາລະນະ
{ການປະກາດສາທາລະນະ}
ໃນທີ່ສຸດ;

var
Form1: TForm1;

ການປະຕິບັດ
{$ R * .dfm}
ຂັ້ນຕອນ TForm1.Button1Click (ຜູ້ສົ່ງ: TObject);
ເລີ່ມຕົ້ນ
MyDate: = TDate3.Create (ຕົນເອງ) // ສ້າງ TDate3 ວັດຖຸ MyDate.OnChange: = MyDateChange; {ຈັດການສະມາຄົມກັບມາດຕະຖານ€œOnChangeâ€ກໍລະນີ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ໃນທີ່ສຸດ;
ຂັ້ນຕອນ TForm1.myDateChange (ຜູ້ສົ່ງ: TObject); {ຈັດການເຫດການຕົວຈິງ} ເລີ່ມຕົ້ນ ShowMessage (ມື້€ ~The ໄດ້changed’) ໃນທີ່ສຸດ;
ຂັ້ນຕອນ TForm1.Button2Click (ຜູ້ສົ່ງ: TObject); ເລີ່ມຕົ້ນ MyDate.Day:=29; {ຂຽນຄຸນສົມບັດວັນ, ການນໍາໃຊ້ SetDate () ທີ່ມາຈາກພາຍໃນເອີ້ນ Dochang () firing ກໍລະນີ} ໃນຕອນທ້າຍ;
ໃນຕອນທ້າຍ.
ຫນ່ວຍບໍລິການ Date3;
ການໂຕ້ຕອບການນໍາໃຊ້ SysUtils, ຫ້ອງຮຽນ;
ປະເພດ TDate3 class = (TComponent) ສ່ວນຕົວ FDay, FMonth, FYear: Word; DummyWord: ຄໍາ; {- ຄຸນສົມບັດກໍລະນີ —}
{1} FOnChange: TNotifyEvent; {ລະບົບການພິມກໍລະນີທີ່ໄດ້ປະກາດເປັນ: ລະບຽບການ (ຜູ້ສົ່ງ: TObject) ຂອງວັດຖຸ;}
ການປ້ອງກັນຂັ້ນຕອນ SetDay (newDay: Word)
{3} Dochang ຂັ້ນຕອນ; ການເຄື່ອນໄຫວ; {ໃນເວລາທີ່ເອີ້ນໄຟກໍລະນີທີ່}
ສ້າງສາທາລະນະສ້າງ (AOwner: TComponent)
ວັນຄຸນສົມບັດການຈັດພີມມາ: ຄໍາອ່ານ FDay ຂຽນ SetDay; ເດືອນຄຸນສົມບັດ: ຄໍາອ່ານ FMonth ຂຽນ DummyWord; ປີຄຸນສົມບັດ: ຄໍາອ່ານ FYear ຂຽນ DummyWord;
{2} ຄຸນສົມບັດ onChange: TNotifyEvent ອ່ານ FOnChange ຂຽນ FOnChange; ໃນທີ່ສຸດ;
ຂັ້ນຕອນການລົງທະບຽນ;
ການປະຕິບັດ
ຂັ້ນຕອນການລົງທະບຽນ; ເລີ່ມຕົ້ນ RegisterComponents (ເປັນ€~Samples’, [TDate3]); ໃນທີ່ສຸດ;
constructor TDate3.Create (AOwner: TComponent) ເລີ່ມຕົ້ນ inherited ສ້າງ (AOwner)
ຖອດລະຫັດ (SysUtils.Date, FYear, FMonth, FDay) ໃນທີ່ສຸດ;
{4} ຂັ້ນຕອນ TDate3.SetDay (newDay: Word) {ເອີ້ນກໍລະນີເປັນ€ “”ວັນມີການປ່ຽນແປງ}
ເລີ່ມຕົ້ນ FDay: = newDay; {ນີ້ແມ່ນກໍລະນີທີ່ໄດ້ຮັບການແຈ້ງ}
{4} Dochang; {ນີ້ຍິງກໍລະນີໂດຍການເອີ້ນຂັ້ນຕອນທີ່ກ່ຽວຂ້ອງຂອງຕົນ

FOnChange (self) ຊຶ່ງເປັນຕົວຈິງໂທກັບກໍລະນີທີ່ໄດ້ຮັບມອບຫມາຍຈັດການ} ໃນຕອນທ້າຍ;
{3a} TDate3.DoChange ຂັ້ນຕອນ; ເລີ່ມຕົ້ນຖ້າຫາກວ່າການມອບຫມາຍ (FOnChange) ຫຼັງຈາກນັ້ນ FOnChange (ຕົນເອງ) {ເອີ້ນທີ່ກ່ຽວຂ້ອງຈັດການເຫດການໃນຂະນະທີ່ມັນຖ່າຍທອດວັດຖຸສິ່ງຂອງທີ່ຍົກຂຶ້ນມາກໍລະນີທີ່} ໃນຕອນທ້າຍ; ໃນຕອນທ້າຍ.

“——————————————————————————————————————————————————

Support Translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

Event T22-23 Components Firing
Unit1 unitas;
interface
usus,
Fenestra, Messages, SysUtils, Iunius, Classes, Graphics, Imperium, formae, Alternis,
StdCtrls, Date3;

TForm1 type = generis (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
ratio Button1Click (Seneca: TObject);

ratio MyDateChange (Seneca: TObject); {User se Handl (aliquid name). Tenens cum est res animos € € œOnChangeâ per MyDate (TDate3) Component}
ratio Button2Click (Seneca: TObject);
private
Secretum} {declarationes
publicae
{Declarationes publicas}
finis;

var
Form1: TForm1;

exsequendam
R $ .dfm} {*
ratio TForm1.Button1Click (Seneca: TObject);
incipere
MyDate: TDate3.Create = (sui); // Construere TDate3 quod MyDate.OnChange: MyDateChange =; Tracto in re socius {Latin} €, â € œOnChangeâ
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

finis;
ratio TForm1.myDateChange (Seneca: TObject); {Primum} orci eventum ShowMessage (changedâ € ™, â € ~The dies); finis;
ratio TForm1.Button2Click (Seneca: TObject); MyDate.Day:=29 incipiunt; {Diem writes est proprietas, per SetDate () quod de intus invocat DoChange () incendere} in finem eventus;
finis.
Date3 unitas;
SysUtils interface utitur, Classes;
Type = TDate3 genus (TComponent) FDay privata, FMonth, FYear: Verbum; DummyWord: Verbum; {- Eventum rei —}
{I} FOnChange: TNotifyEvent; {Rei ratio ut ratio declarat: ratio (Seneca: TObject) de obiecto;}
praesidio ratio SetDay (newDay: Verbum);
III} {DoChange ratio; motum; {Ignes, ubi invocatum est eventus}
Create publica constructor (AOwner: TComponent);
published rebus die: FDay scribe SetDay Verbum legit; res mensis: factum est verbum legitur FMonth DummyWord scribere; res Year: Verbum, legit FYear DummyWord scribere;
{II} bona onchange: TNotifyEvent FOnChange legistis scribere FOnChange; finis;
Register procedure;
exsequendam
Register procedure; RegisterComponents incipiunt (~Samplesâ € ™, â €, [TDate3]); finis;
constructor TDate3.Create (AOwner: TComponent); Incipe inherited Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); finis;
} {Ratio TDate3.SetDay IV (newDay: Verbum); {Vocat res â € “”die mutatur}
Incipe FDay: newDay =; {Est} re moneat
IV} {DoChange; {Ignes, haec una ratio est eventus, qui per eius

FOnChange (sui) quidem dicunt, quod est ad orci} casu sibi finem;
} {3a ratione TDate3.DoChange; Incipe, si Assignati (FOnChange) tunc FOnChange (sui); {Invocat coniungitur cum transiret eum recusare, quod tracto vicis suscitavit} in finem eventus; finis.

“——————————————————————————————————————————————————

Atbalsts translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Spridzināšanas Event
vienība Unit1;
interfeiss
lietojumi
Logi, Messages, SysUtils, variantus, klases, Grafika, Controls, Veidlapas, Dialogs,
StdCtrls, Date3;

ierakstiet TForm1 = klase (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedūra Button1Click (Sender: TObject);

procedūra MyDateChange (Sender: TObject); {Lietotāja paziņoja kopējs (jebkuru nosaukumu). Hendleris sauc kad € œOnChangeâ € gadījumā tiek kurināti ar MyDate (TDate3) komponents}
procedūra Button2Click (Sender: TObject);
Privāts
{Privātas deklarācijas}
valsts
{valsts deklarācijas}
galu;

VAR
Form1: TForm1;

īstenošana
{$ R * .dfm}
procedūra TForm1.Button1Click (Sender: TObject);
sākt
MyDate: = TDate3.Create (self); // Būvēt TDate3 objektu MyDate.OnChange: = MyDateChange; {Asociētais kopējs ar standarta â € œOnChangeâ € notikuma}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

galu;
procedūra TForm1.myDateChange (Sender: TObject); {Faktisko notikumu apdarinātājs} sākt ShowMessage (â € ~The diena ir changedâ € ™); galu;
procedūra TForm1.Button2Click (Sender: TObject); sākt MyDate.Day:=29~~dobj; {Raksta īpašuma diena, izmantojot SetDate (), kas no iekšpuses dzirdot DoChange () apdedzinot notikuma} beigas;
beigas.
vienība Date3;
interfeiss izmanto SysUtils, nodarbības;
TYPE TDate3 = klase (TComponent) privātais FDay, FMonth, FYear: Word; DummyWord: vārds; {- Notikums īpašums —}
{1} FOnChange: TNotifyEvent; {Sistēmas notikums tips deklarēta kā: procedūru (Sender: TObject) objekta;}
aizsargāts procedūra SetDay (Newday: Word);
{3} procedūra DoChange; dinamisks; {Kad atsaucas ugunsgrēki notikumu}
sabiedriskā konstruktors Izveidot (AOwner: TComponent);
publicēja īpašuma diena: vārds lasīt FDay rakstīt SetDay; īpašums Mēnesis: vārds lasīt FMonth rakstīt DummyWord; īpašums Gads: vārds lasīt FYear rakstīt DummyWord;
{2} īpašums OnChange: TNotifyEvent lasīt FOnChange rakstīt FOnChange; galu;
procedūra Register;
īstenošana
procedūra Register; sākt RegisterComponents (a € ~Samplesâ € ™, [TDate3]); galu;
konstruktors TDate3.Create (AOwner: TComponent); Begin mantoja izveide (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); galu;
{4} procedūra TDate3.SetDay (Newday: Word); {Atsaucas notikums â € “”diena tiek mainīts}
Sākas FDay: = Newday; {Tas ir notikums, kas jāpaziņo}
{4} DoChange; {Tas ugunsgrēki notikumu, atsaucoties ar to saistīto procedūru

FOnChange (self), kas faktiski ir zvanīt uz piešķirts notikumu apdarinātājs} beigām;
{3a} procedūru TDate3.DoChange; Sākt ja Piešķirtie (FOnChange) tad FOnChange (self); {Atsaucas saistīta notikumu apdarinātājs bet iet tas objekts, kas izvirzīja notikuma} beigas; beigas.

“——————————————————————————————————————————————————

Pagalba vertimas: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 komponentai Įvykis
vienetas Unit1;
sąsaja
naudojimas
Langai, Žinutės, SysUtils variantai, Klasės, Grafika, kontrolė, Blankai, Dialogai,
StdCtrls, DATE3;

įrašykite TForm1 = klasė (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedūra Button1Click (Siuntėjas: TObject);

procedūra MyDateChange (Siuntėjas: TObject); {Vartotojas pareiškė prižiūrėtojas (bet kokį vardą). Prižiūrėtojas vadinamas kai ā € œOnChangeâ € įvykio atleistas iš MyDate (TDate3) komponentas}
procedūra Button2Click (Siuntėjas: TObject);
privatus
{Privačios deklaracijos}
visuomenės
{public deklaracijos}
galas;

var
Form1: TForm1;

vykdymas
{$ R * .dfm}
procedūra TForm1.Button1Click (Siuntėjas: TObject);
pradėti
MyDate: = TDate3.Create (si); // Statyti TDate3 objekto MyDate.OnChange: = MyDateChange; {Asocijuota prižiūrėtojas su standartas â € œOnChangeâ € atveju}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

galas;
procedūra TForm1.myDateChange (Siuntėjas: TObject); {Faktinis įvykis prižiūrėtojas} pradėti ShowMessage (ā € ~The diena changedâ € ™); galas;
procedūra TForm1.Button2Click (Siuntėjas: TObject); pradėti MyDate.Day:=29~~dobj; {Rašo diena turto, naudojant SetDate (), kuris iš vidaus paleidžia DoChange () šaudymo event} pabaigą;
galas.
vienetas DATE3;
sąsaja naudoja SysUtils, klasių;
TIPAS TDate3 = klasė (TComponent) asmeninįpranešimą FDay, FMonth, FYear: Žodis; DummyWord: žodis; {- Renginys turtas —}
{1} FOnChange: TNotifyEvent; {Sistema įvykis tipas deklaruoti kaip: tvarka (Siuntėjas: TObject) objekto;}
apsaugotas procedūra SetDay (Newday: Word);
{3} procedūra DoChange; dinamiškas; {Kai remiamasi gaisrai renginį}
visuomenės konstruktorius Sukurti (AOwner: TComponent);
paskelbta nuosavybė diena: Žodis skaityti FDay Parašyti SetDay; turtas Mėnuo: Žodis skaityti FMonth rašyti DummyWord; turtas Metai: Žodis skaityti FYear rašyti DummyWord;
{2} nuosavybė OnChange: TNotifyEvent skaityti FOnChange rašyti FOnChange; galas;
procedūra registrą;
vykdymas
procedūra registrą; pradėti RegisterComponents (ā € ~Samplesâ € ™ [TDate3]); galas;
konstruktorius TDate3.Create (AOwner: TComponent); Pradžia paveldėjo Sukurti (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); galas;
{4} procedūra TDate3.SetDay (Newday: Word); {Remiasi renginį â € “”diena pakeitė}
Pradžia FDay: = Newday; {Tai yra įvykis turi būti pranešta}
{4} DoChange; {Šią gaisrai renginį, remdamasis savo, susijusią procedūrą

FOnChange (si), kuris faktiškai skambinti į priskirti įvykių apdorojimo} pabaigos;
{3a} procedūra TDate3.DoChange; Pradžia jei Asignuotos (FOnChange), tada FOnChange (si); {Remiasi susijęs aptarnavimo įvykio eidamas jis daiktas, kuris iškėlė event} pabaigą; galas.

“——————————————————————————————————————————————————

Ënnerstëtzung Iwwersetzung: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenten misst Event
Eenheet Unit1;
Interface
Utilisatioune
Windows, Messagen, SysUtils, Varianten, Classes, Grafiken, Kontrolle, klasssech, Dialogs,
StdCtrls, Date3;

Typ TForm1 = Klass (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Prozedur Button1Click (Sender: TObject);

Prozedur MyDateChange (Sender: TObject); {Benotzer deklaréiert eem (all Numm). D’Handler ass genannt wann € œOnChangeâ € Evenement vun der MyDate (TDate3) Komponent bliwwen ass}
Prozedur Button2Click (Sender: TObject);
private
{Private Deklaratioune}
ëffentlechen
{Öffentlechen Deklaratioune}
Enn;

VAR
Form1: TForm1;

Ëmsetzung
{$ R * .dfm}
Prozedur TForm1.Button1Click (Sender: TObject);
begin
MyDate: = TDate3.Create (Indépendant); // Bauen TDate3 Objet MyDate.OnChange: = MyDateChange; {Associé eem mat der Norm â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

Enn;
Prozedur TForm1.myDateChange (Sender: TObject); {Tatsächlech event eem} fänken ShowMessage (e € ~The Dag huet changedâ € ™); Enn;
Prozedur TForm1.Button2Click (Sender: TObject); fänken MyDate.Day:=29; {Schreift un Day Propriétéit, SetDate benotzt () déi vu bannen invokes DoChange () misst de Fall} Enn;
Enn.
Eenheet Date3;
Interface benotzt SysUtils, Classes;
KLOER TDate3 = Klass (TComponent) private FDay, FMonth, FYear: Wuert; DummyWord: Wuert; {- Event Propriétéit —}
{1} FOnChange: TNotifyEvent; {System event Typ deklaréiert wéi: Prozedur (Sender: TObject) vun Objet;}
geschützt Prozedur SetDay (newDay: Word);
{3} Prozedur DoChange; dynamesch; {Wann ofgeruff Flamen Fall}
ëffentlechen constructor opmaachen (AOwner: TComponent);
publizéiert Propriétéit Day: Wuert FDay schreiwen SetDay liesen; Propriétéit Mount: Wuert FMonth schreiwen DummyWord liesen; Propriétéit Year: Wuert DummyWord liesen FYear schreiwen;
{2} Propriétéit OnChange: TNotifyEvent liesen FOnChange FOnChange schreiwen; Enn;
Prozedur Schreiwt;
Ëmsetzung
Prozedur Schreiwt; fänken RegisterComponents (e € ~Samplesâ € ™, [TDate3]); Enn;
constructor TDate3.Create (AOwner: TComponent); Fänken ierflecher opmaachen (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Enn;
{4} Prozedur TDate3.SetDay (newDay: Word); {Invokes event â € “”Dag verännert ass}
Fänken FDay: = newDay; {Dat ass de Fall ugekënnegt gin}
{4} DoChange; {Dëser Flamen Fall duerch seng verbonne Prozedur invoking

FOnChange (Indépendant) déi eigentlech ruffen ass un der unerkannten event eem} Enn;
{3A} Prozedur TDate3.DoChange; Fänken wann Assignatsë (FOnChange) dann FOnChange (Indépendant); {Invokes event eem verbonne iwwerdeems Virowend et Objet deem Fall opgewuess} Enn; Enn.

“——————————————————————————————————————————————————

Поддршка превод: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Компоненти Отпуштање на настанот
единица Unit1;
интерфејс
употреба
Прозорци, пораки, SysUtils, варијанти, класи, графика, контроли, форми, дијалози,
StdCtrls, Date3;

тип = TForm1 класа (TForm) Копче1: TButton;
MyDate: TDate3;
Копче2: TButton;
постапката Button1Click (Испраќач: TObject);

постапката MyDateChange (Испраќач: TObject); {Корисникот прогласи управувачот (било име). Обработувачот се повикува при â € œOnChangeâ € настан е отпуштен од страна на MyDate (TDate3) компонента}
постапката Button2Click (Испраќач: TObject);
приватна
{Приватни декларации}
јавниот
{Јавни изјави}
заврши;

var
Формулар1: TForm1;

имплементација
{$ R * .dfm}
постапката TForm1.Button1Click (Испраќач: TObject);
започне
MyDate: = TDate3.Create (само); // Изградба TDate3 објект MyDate.OnChange: = MyDateChange; {Соработник управувачот со стандардот â € œOnChangeâ € настан}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

заврши;
постапката TForm1.myDateChange (Испраќач: TObject); {Вистински настан управувачот} започне ShowMessage (â € ~The денот changedâ € ™); заврши;
постапката TForm1.Button2Click (Испраќач: TObject); започне MyDate.Day:=29; {Пишува за Денот на имот, со користење на SetDate () кој од внатрешноста се повикува DoChange () отпуштање случај} крај;
крај.
единица Date3;
интерфејс користи SysUtils, класи;
ТИП TDate3 = класа (TComponent) приватни FDay, FMonth, FYear: Збор; DummyWord: зборот; {- Настан имотот —}
{1} FOnChange: TNotifyEvent; {Тип систем настан прогласени за: постапка (Испраќач: TObject) на објектот;}
заштитени постапка SetDay (newDay: Word);
{3} постапка DoChange; динамична; {Кога се повикува пожари случај}
јавен конструктор создаде (AOwner: TComponent);
објавени ден сопственост: зборот читаат FDay пишуваат SetDay; сопственост месецот: зборот читаат FMonth пишува DummyWord; сопственост на годината: зборот прочитате FYear пишува DummyWord;
{2} имот OnChange: TNotifyEvent прочитате FOnChange пишува FOnChange; заврши;
постапката регистар;
имплементација
постапката регистар; започне RegisterComponents (â € ~Samplesâ € ™, [TDate3]); заврши;
конструктор TDate3.Create (AOwner: TComponent); Почнат наследени создаде (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); заврши;
{4} постапка TDate3.SetDay (newDay: Word); {Повикува настан â € “”ден се менува}
Почнат FDay: = newDay; {Ова е случај да бидете известени}
{4} DoChange; {Овој пожари настанот повикувајќи се на својата поврзани постапка

FOnChange (само) која е всушност повик на доделените настан управувачот} крај;
3а} {постапка TDate3.DoChange; Започне ако Доделени (FOnChange), тогаш FOnChange (само); {Повикува поврзани настан управувачот додека поминува тоа се противат кој го покрена случај} крај; крај.

“——————————————————————————————————————————————————

Support fandikan-teny: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components nitifitra Event
vondrona Unit1;
interface tsara
fampiasana
Windows, Messages, SysUtils, Variants, Classes, Graphics, mifehy, Forms, Dialogs,
StdCtrls, Date3;

nitendry TForm1 = kilasy (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
fomba Button1Click (mpandefa: TObject);

fomba MyDateChange (mpandefa: TObject); {Mpampiasa nanambara Handler (misy anarana). Ny Handler atao hoe, raha â € œOnChangeâ € hetsika dia voaroaka ny MyDate (TDate3) singa}
fomba Button2Click (mpandefa: TObject);
tsy miankina
{Private fanambarana}
-bahoaka
{Public fanambarana}
tapitra;

var
Form1: TForm1;

fampiharana
{$ R * .dfm}
fomba TForm1.Button1Click (mpandefa: TObject);
manomboka
MyDate: = TDate3.Create (tena); // Hanorina zavatra TDate3 MyDate.OnChange: = MyDateChange; {Mpiara-miasa Handler amin’ny fitsipika â € œOnChangeâ € hetsika}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

tapitra;
fomba TForm1.myDateChange (mpandefa: TObject); {} Handler tena hetsika manomboka ShowMessage (â € ~The andro no changedâ € ™); tapitra;
fomba TForm1.Button2Click (mpandefa: TObject); manomboka MyDate.Day:=29; {Manoratra Anio fananana, mampiasa SetDate () izay avy ao anatin’ny mitalaho DoChange () nitifitra ny hetsika} farany;
tapitra.
vondrona Date3;
mampiasa interface tsara SysUtils, Classes;
KARAZANA TDate3 = kilasy (TComponent) tsy miankina FDay, FMonth, FYear: Teny; DummyWord: teny; {- Hetsika fananan’ny —}
{1} FOnChange: TNotifyEvent; {Rafitra Hoy karazana hetsika toy ny: fomba (mpandefa: TObject) ny zavatra;}
arovana paika SetDay (newDay: Teny);
{3} fomba fanao DoChange; mavitrika; {Rehefa mitifitra hampiharina ny hetsika}
-bahoaka Mpanao Mamorona (AOwner: TComponent);
namoaka fananana Day: namaky teny FDay soraty SetDay; fananana Month: FMonth mamaky teny manoratra DummyWord; fananana Taona: FYear mamaky teny manoratra DummyWord;
{2} fananana OnChange: TNotifyEvent namaky FOnChange manoratra FOnChange; tapitra;
fomba fanao Register;
fampiharana
fomba fanao Register; manomboka RegisterComponents (â € ~Samplesâ € ™, [TDate3]); tapitra;
Mpanao TDate3.Create (AOwner: TComponent); Atombohy nolovan’ny Mamorona (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); tapitra;
{4} fomba TDate3.SetDay (newDay: Teny); {Mitalaho hetsika â € “”andro dia niova}
Manomboka ny FDay: = newDay; {Izao no hetsika tokony nampahafantatra}
{4} DoChange; {Izany mitifitra ny hetsika amin’ny fanononany ny fiandrianam ny mifandray paika

FOnChange (tena) izay raha ny marina Miantso ny voatendry Handler} hetsika farany;
{} 3a TDate3.DoChange fomba fanao; Atombohy raha voatendry (FOnChange) dia FOnChange (tena); {Mitalaho hetsika mifandray Handler raha mandalo izany fanoherana izay nanangana ny hetsika} farany; tapitra.

“——————————————————————————————————————————————————

Sokongan terjemahan: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponen acara menembak
unit Unit1;
antara muka
kegunaan
Windows, Mesej, SysUtils, Kelainan, Kelas, Grafik, Controls, Borang, Dialog,
StdCtrls, Date3;

menaip TForm1 = kelas (TForm) Tombol1: TButton;
MyDate: TDate3;
Tombol2: TButton;
prosedur Button1Click (Sender: TObject);

prosedur MyDateChange (Sender: TObject); {User diisytiharkan pengendali (apa-apa nama). Handler ini dipanggil apabila â € acara œOnChangeâ € dipecat oleh komponen MyDate (TDate3)}
prosedur Button2Click (Sender: TObject);
swasta
{Pengisytiharan Swasta}
awam
{Pengisytiharan Awam}
berakhir;

var
Form1: TForm1;

pelaksanaan
{$ R * .dfm}
prosedur TForm1.Button1Click (Sender: TObject);
bermula
MyDate: = TDate3.Create (diri); // Membina TDate3 objek MyDate.OnChange: = MyDateChange; {Pengendali bersekutu dengan â € standard œOnChangeâ € acara}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

berakhir;
prosedur TForm1.myDateChange (Sender: TObject); {Pengendali peristiwa sebenar} mula ShowMessage (â € ~The hari telah changedâ € ™); berakhir;
prosedur TForm1.Button2Click (Sender: TObject); mula MyDate.Day:=29; {Menulis kepada harta Day, menggunakan SetDate () yang dari dalam menyembah DoChange () menembak event} akhir;
akhir.
unit Date3;
antara muka menggunakan SysUtils, Kelas;
JENIS TDate3 = kelas (TComponent) swasta FDay, FMonth, FYear: Word; DummyWord: kata; {- Hartanah acara —}
{1} FOnChange: TNotifyEvent; {Sistem jenis acara diisytiharkan sebagai: prosedur (Sender: TObject) objek;}
dilindungi prosedur SetDay (Newday: Word);
{3} prosedur DoChange; dinamik; {Apabila berdoa kebakaran acara}
pembina awam Cipta (AOwner: TComponent);
yang diterbitkan di Hari harta: perkataan membaca FDay menulis SetDay; Bulan harta: perkataan membaca FMonth naik DummyWord; harta Tahun: perkataan read FYear naik DummyWord;
{2} harta onChange: TNotifyEvent membaca FOnChange naik FOnChange; berakhir;
prosedur Daftar;
pelaksanaan
prosedur Daftar; mula RegisterComponents (â € ~Samplesâ € ™, [TDate3]); berakhir;
pembina TDate3.Create (AOwner: TComponent); Mula diwarisi Cipta (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); berakhir;
{4} prosedur TDate3.SetDay (Newday: Word); {Menyembah acara â € “”hari ditukar}
Mula FDay: = Newday; {Ini adalah acara untuk diberitahu}
{4} DoChange; {Ini kebakaran acara dengan memohon prosedur yang berkaitan dengannya

FOnChange (sendiri) yang sebenarnya menyeru kepada yang diberikan pengendali peristiwa} akhir;
{3a} prosedur TDate3.DoChange; Mula jika Ditugaskan (FOnChange) maka FOnChange (diri); {Menyembah sesuatu yang berkaitan pengendali peristiwa manakala lulus ia membantah yang menaikkan event} akhir; akhir.

“——————————————————————————————————————————————————

പിന്തുണ വിവർത്തനം: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ഘടകങ്ങൾ സ്ക്വാഡ് ഇവന്റ്
യൂണിറ്റ് Unit1;
ഇന്റർഫേസ്
ഉപയോഗങ്ങൾ
വിൻഡോസ്, സന്ദേശങ്ങൾ, SysUtils, ഭേദങ്ങൾ, ക്ലാസുകൾ, ഗ്രാഫിക്സ്, നിയന്ത്രണങ്ങൾ, ഫോമുകൾ, ഡയലോഗുകൾ,
StdCtrls, Date3;

ടൈപ്പ് TForm1 = ക്ലാസ് (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
നടപടിക്രമം Button1Click (പ്രേഷിത: TObject);

നടപടിക്രമം MyDateChange (പ്രേഷിത: TObject); {ഉപയോക്തൃ ഹാൻഡ്ലർ (ഏതെങ്കിലും പേര്) പ്രഖ്യാപിച്ചു. â € œOnChangeâ € ഇവന്റ് MyDate (TDate3) ഘടകം തൊടുത്തു ചെയ്യുമ്പോൾ ഹാൻഡലർ വിളിക്കുന്നു}
നടപടിക്രമം Button2Click (പ്രേഷിത: TObject);
സ്വകാര്യ
{സ്വകാര്യ പ്രസ്താവനകൾ}
പൊതു
{പൊതു പ്രസ്താവനകൾ}
അവസാനിക്കുന്നു;

var
Form1: TForm1;

നടപ്പിലാക്കൽ
{$ ആർ * .dfm}
നടപടിക്രമം TForm1.Button1Click (പ്രേഷിത: TObject);
ആരംഭിക്കുന്നു
MyDate: = TDate3.Create (സ്വയം); // TDate3 ഒബ്ജക്റ്റ് MyDate.OnChange നിർമിച്ചു = MyDateChange; {€ œOnChangeâ € ഇവന്റ് ഒരു നിലവാരവുമായി അസോസിയേറ്റ് ഹാൻഡ്ലർ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

അവസാനിക്കുന്നു;
നടപടിക്രമം TForm1.myDateChange (പ്രേഷിത: TObject); {യഥാർത്ഥ ഇവന്റ്} ShowMessage തുടങ്ങും (€ ~The ദിവസം ഒരു changedâ € ™ ഉണ്ട്); അവസാനിക്കുന്നു;
നടപടിക്രമം TForm1.Button2Click (പ്രേഷിത: TObject); MyDate.Day:=29 തുടങ്ങുന്നു; അവസാനം {SetDate () ഏത് അകത്തു നിന്നും DoChange (പ്രാർത്ഥിക്കുന്ന) ഉപയോഗിച്ച് ഇവന്റ് നിറയൊഴിക്കുകയുണ്ടായി ദിവസം പ്രോപ്പർട്ടി എഴുതുന്നു};
അവസാനിക്കുന്നു.
യൂണിറ്റ് Date3;
ഇന്റർഫേസ് SysUtils, ക്ലാസുകൾ ഉപയോഗിക്കുന്നു;
തരം TDate3 = ക്ലാസ് (TComponent) സ്വകാര്യ FDay, FMonth, FYear: വചനം; DummyWord: വചനം {- ഇവന്റ് പ്രോപ്പർട്ടി —}
{1} FOnChange: TNotifyEvent; {സിസ്റ്റം ഇവന്റ് തരം പ്രഖ്യാപിച്ചത്: നടപടിക്രമം (പ്രേഷിത: TObject) വസ്തുവിന്റെ;}
സംരക്ഷിച്ചിരിക്കുന്നു നടപടിക്രമം SetDay (newDay: വാക്ക്);
{3} നടപടിക്രമം DoChange; ചലനാത്മക; {അഭ്യർത്ഥിച്ചിരിക്കുമ്പോൾ ഇവന്റ് തീയോ}
പൊതു കൺസ്ട്രക്ടർ (AOwner: TComponent) സൃഷ്ടിക്കുക;
പ്രോപ്പർട്ടി ദിവസം പ്രസിദ്ധീകരിച്ച: പദം FDay SetDay എഴുതുകയോ വായിക്കുകയോ; പ്രോപ്പർട്ടി മാസം: വചനം FMonth DummyWord എഴുതുകയോ വായിക്കുകയോ; പ്രോപ്പർട്ടി വർഷം: വചനം FYear DummyWord എഴുതുകയോ വായിക്കുകയോ;
{2} പ്രോപ്പർട്ടി OnChange: TNotifyEvent FOnChange FOnChange എഴുതുകയോ വായിക്കുകയോ; അവസാനിക്കുന്നു;
നടപടിക്രമം രജിസ്റ്റർ;
നടപ്പിലാക്കൽ
നടപടിക്രമം രജിസ്റ്റർ; RegisterComponents തുടങ്ങും (A € ~Samplesâ € ™, [TDate3]); അവസാനിക്കുന്നു;
കൺസ്ട്രക്ടർ TDate3.Create (AOwner: TComponent); പൈതൃകമായി തുടങ്ങുക (AOwner) സൃഷ്ടിക്കുക;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); അവസാനിക്കുന്നു;
{4} നടപടിക്രമങ്ങൾ TDate3.SetDay (newDay: വാക്ക്); {പ്രാർത്ഥിക്കുന്ന € “”ദിവസം ഒരു ഇവന്റ് മാറുന്നു}
FDay ആരംഭിക്കുക: = newDay; {ഈ അറിയിക്കണമെങ്കിൽ സംഭവമാണ്}
{4} DoChange; {ഈ ബന്ധപ്പെട്ട നടപടിക്രമങ്ങൾ ഇൻവോകിംഗ് വഴി ഇവന്റ് തീയോ

FOnChange (സ്വയം) യഥാർത്ഥത്തിൽ അസൈൻ ഇവന്റ്} അവസാനം വിളിക്കുകയും ആണ്;
{3 എ} നടപടിക്രമം TDate3.DoChange; അസൈൻഡ് എങ്കിൽ തുടങ്ങുക (FOnChange) പിന്നീട് FOnChange (സ്വയം); അവസാനം {പ്രാർത്ഥിക്കുന്ന അതു ഇവന്റ് ഉയിർത്തെഴുന്നേല്പിച്ചു ഒബ്ജക്റ്റിനായി പാസിംഗ് സമയത്ത് ഇവന്റ് ബന്ധപ്പെട്ട}; അവസാനിക്കുന്നു.

“——————————————————————————————————————————————————

Appoġġ traduzzjoni: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenti Firing Avveniment
unità Unit1;
interface
użi
Twieqi, Messaġġi, SysUtils, Varjanti, Klassijiet, Grafika, Kontrolli, Formoli, Dialogs,
StdCtrls, Date3;

tip TForm1 = klassi (tform) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Proċedura Button1Click (Sender: TObject);

Proċedura MyDateChange (Sender: TObject); {Handler (kwalunkwe isem) utent iddikjarat. Il Handler huwa msejjaħ meta avveniment € € œOnChangeâ jiġi sparat tir mill-MyDate (TDate3) komponent}
Proċedura Button2Click (Sender: TObject);
privata
{dikjarazzjonijiet privati}
pubbliku
{dikjarazzjonijiet pubbliċi}
tmiem;

var
Form1: TForm1;

implimentazzjoni
{$ R * .dfm}
Proċedura TForm1.Button1Click (Sender: TObject);
tibda
MyDate: = TDate3.Create (awto); // Jinbena TDate3 oġġett MyDate.OnChange: = MyDateChange; {Handler jassoċjaw mal-istandard avveniment € € œOnChangeâ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

tmiem;
Proċedura TForm1.myDateChange (Sender: TObject); {Handler avveniment attwali} jibda ShowMessage (kuljum € ~ Il ikun changedâ € ™); tmiem;
Proċedura TForm1.Button2Click (Sender: TObject); jibdew MyDate.Day:=29; {Jikteb lill-proprjetà Jum, bl-użu SetDate () li minn ġewwa tinvoka DoChange () isparar F’każ} aħħar;
tmiem.
unità Date3;
interface użi SysUtils, Klassijiet;
TIP TDate3 = klassi (TComponent) privat FDay, FMonth, FYear: Kelma; DummyWord: kelma; {- Proprjetà avveniment —}
{1} FOnChange: TNotifyEvent; {Sistema tip avveniment ikun iddikjarat li: Proċedura (Sender: TObject) tal-oġġett;}
Proċedura protetti SetDay (Newday: Word);
{3} DoChange proċedura; dinamiku; {Meta invokat nirien l-avveniment}
kostruttur pubbliku Oħloq (AOwner: TComponent);
Jum proprjetà ppubblikati: kelma aqra FDay write SetDay; proprjetà Xahar: kelma jaqraw FMonth jiktbu DummyWord; Sena proprjetà: kelma taqra FYear ikteb DummyWord;
{2} proprjetà OnChange: TNotifyEvent jaqraw FOnChange jiktbu FOnChange; tmiem;
Reġistru proċedura;
implimentazzjoni
Reġistru proċedura; tibda RegisterComponents (â € ~Samplesâ € ™, [TDate3]); tmiem;
TDate3.Create kostruttur (AOwner: TComponent); Tibda wiret Oħloq (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); tmiem;
{4} proċedura TDate3.SetDay (Newday: Word); {Tinvoka avveniment â € “”jum tinbidel}
Tinbeda FDay: = Newday; {Dan huwa l-avveniment li jiġu notifikati}
{4} DoChange; {Dan il nirien f’każ billi jinvoka proċedura assoċjat miegħu

FOnChange (awto) li huwa attwalment sejħa biex l assenjat avveniment handler} għan;
{3a} proċedura TDate3.DoChange; Tibda jekk Assenjat (FOnChange) imbagħad FOnChange (awto); {Tinvoka assoċjat handler avveniment filwaqt li tgħaddi hi toġġezzjona li qajmet l-avveniment} aħħar; tmiem.

“——————————————————————————————————————————————————

Tautoko translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Wae Takahanga pupuhi
wae Unit1;
atanga
whakamahinga
Windows, Karere, SysUtils, Taupē, Karaehe, Graphics, Mana, Puka, Kōrero,
StdCtrls, Date3;

pato TForm1 = piha (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
tukanga Button1Click (Kaituku: TObject);

MyDateChange tukanga (Kaituku: TObject); {Korerotia kaiwhakamahi pūnanao (tetahi ingoa). huaina te Handler te ka â hui € œOnChangeâ € puhia e te MyDate (TDate3) wähanga}
tukanga Button2Click (Kaituku: TObject);
tūmataiti
{Whakapuakanga Private}
tūmatanui
{Whakapuakanga Public}
mutu;

var
Form1: TForm1;

whakatinanatanga
{$ .dfm R *}
tukanga TForm1.Button1Click (Kaituku: TObject);
timata
MyDate: = TDate3.Create (whaiaro); // Hanga TDate3 ahanoa MyDate.OnChange: = MyDateChange; {Pūnanao tuarua ki te â paerewa hui € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

mutu;
tukanga TForm1.myDateChange (Kaituku: TObject); {Pūnanao takahanga tūturu} timata ShowMessage (â kua changedâ € ~The ra € ™); mutu;
tukanga TForm1.Button2Click (Kaituku: TObject); timata MyDate.Day:=29; {Tuhi ki te taonga Day, te whakamahi i SetDate () e i roto ei tiaororaa DoChange () pupuhi te hui} mutunga;
mutunga.
wae Date3;
whakamahi atanga SysUtils, Karaehe;
Tuhinga TDate3 = piha (TComponent) tūmataiti FDay, FMonth, FYear: Kupu; DummyWord: kupu; {- Taonga takahanga —}
{1} FOnChange: TNotifyEvent; {Pūnaha momo hui korerotia rite: tukanga (Kaituku: TObject) o te ahanoa;}
SetDay tiakina tukanga (newDay: Kupu);
{3} tukanga DoChange; hihiri; {Ka whakahuatia ahi te hui}
hanganga tūmatanui Waihanga (AOwner: TComponent);
Day rawa whakaputaina: kupu lau FDay Tuhituhi SetDay; taonga Marama: kupu lau FMonth tuhituhi DummyWord; taonga Tau: kupu kite tuhituhi FYear DummyWord;
{2} rawa OnChange: tai’o TNotifyEvent tuhituhi FOnChange FOnChange; mutu;
Rēhita tukanga;
whakatinanatanga
Rēhita tukanga; timata RegisterComponents (â € ~Samplesâ € ™, [TDate3]); mutu;
TDate3.Create hanganga (AOwner: TComponent); Timata riro Waihanga (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); mutu;
{4} tukanga TDate3.SetDay (newDay: Kupu); {Ei tiaororaa kaupapa â € “”ke ra te}
Timata FDay: = newDay; {Ko te hui ki te kia whakamōhiotia tenei}
{4} DoChange; {Ahi tenei te hui mā te Haute tona tukanga e pā ana

FOnChange (whaiaro) i te mea mau e karanga ki te} mutunga faataahia pūnanao takahanga;
{3a} tukanga TDate3.DoChange; Timata ki te tautuhia, (FOnChange) ka FOnChange (whaiaro); {Ei tiaororaa e pā ana hui pūnanao i haere whakahe reira i whakaarahia te hui} mutunga; mutunga.

“——————————————————————————————————————————————————

समर्थन अनुवाद: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 घटक गोळीबार इव्हेंट
युनिट Unit1;
संवाद
वापर
विंडोज, संदेश, SysUtils, रूपे, वर्ग, ग्राफिक्स, नियंत्रणे, फॉर्म, संवाद,
StdCtrls, Date3;

टाइप TForm1 class = (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
प्रक्रिया Button1Click (प्रेषक: TObject);

प्रक्रिया MyDateChange (प्रेषक: TObject); {वापरकर्ता जाहीर हँडलर (कोणत्याही नाव). एक € œOnChangeâ € घटना MyDate (TDate3) घटक} हा उडाला आहे, तेव्हा हँडलर म्हणतात
प्रक्रिया Button2Click (प्रेषक: TObject);
खाजगी
{खाजगी घोषणा}
सार्वजनिक
{सार्वजनिक घोषणा}
समाप्त;

var
Form1: TForm1;

अंमलबजावणी
{$ आर * .dfm}
प्रक्रिया TForm1.Button1Click (प्रेषक: TObject);
सुरू
MyDate: = TDate3.Create (स्वत: ची); // TDate3 ऑब्जेक्ट MyDate.OnChange तयार: = MyDateChange; {मानक एक € œOnChangeâ € कार्यक्रम संबद्ध हँडलर}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

समाप्त;
प्रक्रिया TForm1.myDateChange (प्रेषक: TObject); {प्रत्यक्ष घटना हँडलर} ShowMessage सुरू (एक € ~The दिवस € ™ changedâ आहे); समाप्त;
प्रक्रिया TForm1.Button2Click (प्रेषक: TObject); MyDate.Day:=29 सुरू होतील; शेवटी {SetDate () आतून हरपला जे DoChange () गोळीबार इव्हेंट वापरून, दिवस मालमत्ता लिहितो};
शेवटी.
युनिट Date3;
संवाद SysUtils, वर्ग वापरते;
TYPE TDate3 class = (TComponent) खासगी FDay, FMonth, FYear: शब्द; DummyWord: शब्द; {- घटना मालमत्ता —}
{1} FOnChange: TNotifyEvent; {: प्रक्रिया प्रणाली इव्हेंट प्रकार म्हणून घोषित (प्रेषक: TObject) ऑब्जेक्ट;}
संरक्षित प्रक्रिया SetDay (newDay: शब्द);
{3} प्रक्रिया DoChange; डायनॅमिक; {लागू केली गेली तेव्हा कार्यक्रम शेकोटीचे}
सार्वजनिक बांधकाम तयार करा (AOwner: TComponent);
प्रकाशित मालमत्ता दिवस: शब्द वाचा FDay लेखन SetDay; मालमत्ता महिना: शब्द FMonth DummyWord लिहू वाचा; मालमत्ता वर्ष: read शब्द FYear DummyWord लिहू;
{2} मालमत्ता OnChange: TNotifyEvent FOnChange FOnChange लिहू वाचा; समाप्त;
प्रक्रिया नोंदणी;
अंमलबजावणी
प्रक्रिया नोंदणी; RegisterComponents (€ ~Samplesâ € ™, [TDate3] अ) सुरू होतील; समाप्त;
रचनाकार TDate3.Create (AOwner: TComponent); वारसा तयार करा (AOwner) सुरू होतील;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); समाप्त;
{4} प्रक्रिया TDate3.SetDay (newDay: शब्द); {एक € कार्यक्रम हरपला “”दिवस बदलले आहे}
FDay सुरू: = newDay; {हा कार्यक्रम सूचित केले आहे}
{4} DoChange; {हे त्याचे संबंधित प्रक्रिया करत कार्यक्रमाची शेकोटीचे

FOnChange (स्वत: ची) नियुक्त कार्यक्रम हँडलर} शेवटी कॉल प्रत्यक्षात आहे;
{3A} प्रक्रिया TDate3.DoChange; लागू असल्यास, (FOnChange) नंतर FOnChange (स्वत: ची) सुरू होतील; शेवटी {जाणार्यांसाठी करताना कार्यक्रम असण्याचा ज्या आक्षेप हरपला कार्यक्रम हँडलर संबंधित}; शेवटी.

“——————————————————————————————————————————————————

Дэмжих орчуулга: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 бүрэлдэхүүн гал нээх үйл
нэгж Unit1;
интерфэйс
хэрэглээ
Windows, Messages, SysUtils, хувилбарууд, Ангиуд, Graphics, Controls, Forms, харилцах цонх,
StdCtrls, Date3;

бичиж TForm1 = анги (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
журам Button1Click (Илгээгч: TObject);

журам MyDateChange (Илгээгч: TObject); {Хэрэглэгчийн зохицуулагчийг (ямар ч нэрээ) зарласан. € œOnChangeâ € Үзэсгэлэн MyDate (TDate3) бүрэлдэхүүн хэсэг} хамт ажлаас нь халсан байна хөтлөгч гэж нэрлэдэг
журам Button2Click (Илгээгч: TObject);
хувийн
{Хувийн мэдүүлэг}
олон нийтийн
{Public мэдүүлэг}
Төгсгөл;

VAR
Form1: TForm1,

хэрэгжилт
{$ R * .dfm}
журам TForm1.Button1Click (Илгээгч: TObject);
Эхлэх
MyDate: = TDate3.Create (өөрөө); // TDate3 объект MyDate.OnChange барих: = MyDateChange; {Стандарт нь € œOnChangeâ € үйл явдал нь нөхөр хөтлөгч}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

Төгсгөл;
журам TForm1.myDateChange (Илгээгч: TObject); {Бодит үйл явдал хөтлөгч} ShowMessage эхэлнэ (€ ~The өдөр € ™ changedâ байна â); Төгсгөл;
журам TForm1.Button2Click (Илгээгч: TObject); MyDate.Day:=29~~dobj эхэлж, төгсгөл {SetDate () дотроос үйл явдал халах DoChange (эхлүүлэн) ашиглан, өдөр эд хөрөнгө бичдэг};
Төгсгөл.
нэгж Date3;
интерфэйс SysUtils, Classes ашиглах;
TYPE TDate3 = анги (TComponent) хувийн FDay, FMonth, FYear: Word, DummyWord: үг, {- Үйл явдал эд —}
{1} FOnChange: TNotifyEvent; {: Журмыг системийн үйл төрөл тунхагласан (Илгээгч: TObject) объектын;}
Тусгай хамгаалалттай журам SetDay (newDay: Word);
{3} журам DoChange; динамик, {Дуудаж байх үед үйл явдлыг түймэр}
Олон нийтийн байгуулагч (AOwner: TComponent) бий болгох;
хэвлэгдсэн үл хөдлөх хөрөнгийн өдөр: үг уншиж FDay бичих SetDay; үл хөдлөх хөрөнгийн Сар: үг DummyWord бичих FMonth уншиж, үл хөдлөх хөрөнгийн он: үг FYear DummyWord бичиж уншиж,
{2} үл хөдлөх хөрөнгийн OnChange: TNotifyEvent FOnChange FOnChange бичиж уншиж, Төгсгөл;
журам Бүртгүүлэх;
хэрэгжилт
журам Бүртгүүлэх; RegisterComponents (€ ~Samplesâ € ™ [TDate3] а) эхлэх; Төгсгөл;
байгуулагч TDate3.Create (AOwner: TComponent); Үүсгэх үед өвлөгдөн үлдэх (AOwner) эхлэх;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Төгсгөл;
{4} журам TDate3.SetDay (newDay: Word); {€ â үйл явдлыг дуудна “”өдөр өөрчлөгдсөн байна}
FDay эхлэх: = newDay; {Энэ үйл явдал мэдэгдэнэ байна}
{4} DoChange; {Энэ нь холбоотой журмыг ажиллуулж байгаа өөр арга хэмжээ түймэр

FOnChange (өөрөө) томилсон үйл явдал хөтлөгч} төгсгөл гэж нэрлэдэг нь үнэндээ юм;
{3a} журам TDate3.DoChange; (FOnChange) дараа нь FOnChange (өөрөө) томилогдсон бол эхлүүлэх; төгсгөл {Энэ арга хэмжээ өссөн нь объектын өнгөрч байхад эхлүүлэн үйл явдал зохицуулагчийг холбоотой}; Төгсгөл.

“——————————————————————————————————————————————————

ပံ့ပိုးမှုဘာသာပြန်ချက်: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

ပွဲဖြုတ်ပစ်လိုက်တယ် T22-23 Components
ယူနစ် Unit1;
interface ကို
အသုံးပြုမှု
ကို Windows, မက်ဆေ့ခ်ျများ, SysUtils, မူကွဲ, Classes, Graphics, ထိန်းချုပ်မည်, Form များ, dialog,
StdCtrls, Date3;

TForm1 = အတန်းအစား (TForm) BUTTON1 ရိုက်ထည့်: TButton;
MyDate: TDate3;
BUTTON2: TButton;
လုပ်ထုံးလုပ်နည်း Button1Click (ပေးပို့သူ: TObject);

လုပ်ထုံးလုပ်နည်း MyDateChange (ပေးပို့သူ: TObject); {အသုံးပြုသူ handler ကို (မည်သည့်အမည်) ကြေငြာခဲ့ပါတယ်။ “OnChangeâ€အဖြစ်အပျက်အ MyDate (TDate3) အစိတ်အပိုင်းအားဖြင့်ပစ်ခတ်သောအခါအဆိုပါ handler} ဟုခေါ်သည်
လုပ်ထုံးလုပ်နည်း Button2Click (ပေးပို့သူ: TObject);
ကိုယ်ပိုင်
{ပုဂ္ဂလိကကြေညာချက်များ}
အများပြည်သူ
{ပြည်သူ့ကြေညာချက်များ}
အဆုံး;

var
Form1: TForm1;

အကောင်အထည်ဖော်မှု
{$ R ကို * .dfm}
လုပ်ထုံးလုပ်နည်း TForm1.Button1Click (ပေးပို့သူ: TObject);
အစ
MyDate: = TDate3.Create (ကိုယ်ပိုင်); // TDate3 အရာဝတ္ထု MyDate.OnChange တည်ဆောက်: = MyDateChange; {€œOnChangeâ€အဖြစ်အပျက်âစံနှင့်အတူတွဲဖက် handler ကို}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

အဆုံး;
လုပ်ထုံးလုပ်နည်း TForm1.myDateChange (ပေးပို့သူ: TObject); {အမှန်တကယ်ဖြစ်ရပ် handler ကို} (€ ~The နေ့ရက်changed’ရှိပါတယ်) ShowMessage စတင်ဖို့; အဆုံး;
လုပ်ထုံးလုပ်နည်း TForm1.Button2Click (ပေးပို့သူ: TObject); MyDate.Day:=29 စတင်ဖို့; အဆုံး {အဖြစ်အပျက်ပစ်ခတ်အတွင်းမှ DoChange (အမှီ ပြု. ပြီးသော SetDate ()) ကိုအသုံးပြုပြီး, နေ့အိမ်ခြံမြေထားလိုက်တယ်};
အဆုံး။
ယူနစ် Date3;
interface ကို SysUtils, Classes ကိုအသုံးပြုသည်,
TYPE TDate3 = အတန်းအစား (TComponent) ပုဂ္ဂလိက FDay, FMonth, FYear: Word ကို; DummyWord: စကားလုံး; {- အဖြစ်အပျက်အိမ်ခြံမြေ —}
{1} FOnChange: TNotifyEvent; {: လုပ်ထုံးလုပ်နည်း (ပေးပို့သူ: TObject) အဖြစ်ကြေငြာမှုစနစ်အဖြစ်အပျက်အမျိုးအစားအရာဝတ္ထု၏;}
protected လုပ်ထုံးလုပ်နည်း SetDay (newDay: Word ကို);
{3} လုပ်ထုံးလုပ်နည်း DoChange; ပြောင်းလဲနေသော; {မဖြစ်၏လာသောအခါထိုအဖြစ်အပျက်မီး}
အများပြည်သူလုပ်ငန်းခွင် (AOwner: TComponent) Create;
ပစ္စည်းဥစ္စာပိုင်ဆိုင်မှုနေ့ထုတျဝထေား: စကားလုံး FDay SetDay ရေးထားဖတ်; ပစ္စည်းဥစ္စာပိုင်ဆိုင်မှုလ: စကားလုံး FMonth DummyWord ရေးထားဖတ်; ပစ္စည်းဥစ္စာပိုင်ဆိုင်မှုကိုတစ်နှစ်တာ: စကားလုံး FYear DummyWord ရေးထားဖတ်;
{2} အိမ်ခြံမြေ OnChange: FOnChange FOnChange ရေးထားဖတ် TNotifyEvent; အဆုံး;
လုပ်ထုံးလုပ်နည်းမှတ်ပုံတင်မည်;
အကောင်အထည်ဖော်မှု
လုပ်ထုံးလုပ်နည်းမှတ်ပုံတင်မည်; RegisterComponents စတင်ဖို့ (â€~Samples’, [TDate3]); အဆုံး;
လုပ်ငန်းခွင် TDate3.Create (AOwner: TComponent); အမွေဆက်ခံစတင်ဖို့ (AOwner) Create;
စာဝှက် (SysUtils.Date, FYear, FMonth, FDay); အဆုံး;
{4} လုပ်ထုံးလုပ်နည်း TDate3.SetDay (newDay: Word ကို); {€ “”နေ့âအဖြစ်အပျက်ပြောင်းလဲအမှီ ပြု. }
FDay စတင်ဖို့: = newDay; {ဒီအကြောင်းကြားခံရဖို့ထိုအဖြစ်အပျက်သည်}
{4} DoChange; {ဒီနဲ့သက်ဆိုင်တဲ့လုပ်ထုံးလုပ်နည်းသွန်းလောင်းပေးခြင်းအားဖြင့်အဖြစ်အပျက်မီး

အမှန်တကယ်တာဝန်ပေးအပ်အဖြစ်အပျက် handler ကို} အဆုံးမှမခေါ်ဖြစ်သည့် FOnChange (ကိုယ်ပိုင်);
{3A} လုပ်ထုံးလုပ်နည်း TDate3.DoChange; Assigned လျှင် (FOnChange) ထို့နောက် FOnChange (ကိုယ်ပိုင်) ကိုစတင်; အဆုံး {invokes ကအဖြစ်အပျက်ကြီးပြင်းရာကန့်ကွက်ဖြတ်သန်းစဉ်အဖြစ်အပျက် handler ကိုဆက်စပ်}; အဆုံး။

“——————————————————————————————————————————————————

समर्थन अनुवाद: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 अवयव फायर घटना
एकाइ Unit1;
इन्टरफेस
उपयोगहरु
विंडोज, संदेश, SysUtils, भिन्न, कक्षा, ग्राफिक्स, नियन्त्रण, फाराम, संवाद,
StdCtrls, Date3;

टाइप TForm1 = वर्ग (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
प्रक्रिया Button1Click (प्रेषक: TObject);

प्रक्रिया MyDateChange (प्रेषक: TObject); {प्रयोगकर्ता सञ्चालनकर्ता (कुनै पनि नाम) घोषणा गरे। â € œOnChangeâ € घटना छ MyDate (TDate3) घटक} द्वारा निकाल जब ह्यान्ड्लर भनिन्छ
प्रक्रिया Button2Click (प्रेषक: TObject);
निजी
{निजी घोषणाहरूमा}
सार्वजनिक
{सार्वजनिक घोषणाहरूमा}
अन्त;

var
Form1: TForm1;

कार्यान्वयन
{$ आर * .dfm}
प्रक्रिया TForm1.Button1Click (प्रेषक: TObject);
सुरु
MyDate: = TDate3.Create (आत्म); // निर्माण TDate3 वस्तु MyDate.OnChange: = MyDateChange; {मानक â € œOnChangeâ € घटना संग एसोसिएट सञ्चालनकर्ता}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

अन्त;
प्रक्रिया TForm1.myDateChange (प्रेषक: TObject); {वास्तविक घटना सञ्चालनकर्ता} ShowMessage सुरु (एक € ~The दिन changedâ छ € ™); अन्त;
प्रक्रिया TForm1.Button2Click (प्रेषक: TObject); MyDate.Day:=29 सुरु; अन्त {भित्र बाट invokes जो DoChange () घटना फायर SetDate () को प्रयोग गरेर, दिन सम्पत्ति लेख्छन्};
अन्त।
एकाइ Date3;
इन्टरफेस SysUtils, कक्षा प्रयोग;
प्रकार TDate3 = वर्ग (TComponent) निजी FDay, FMonth, FYear: शब्द; DummyWord: शब्द; {- घटना सम्पत्ति —}
{1} FOnChange: TNotifyEvent; {: प्रक्रिया सिस्टम घटना प्रकार घोषणा (प्रेषक: TObject) वस्तुको;}
सुरक्षित प्रक्रिया SetDay (newDay: शब्द);
{3} प्रक्रिया DoChange; गतिशील; {बोलाइएको छ जब घटना आगलागी}
सार्वजनिक निर्माता (AOwner: TComponent) सिर्जना;
प्रकाशित सम्पत्ति दिन: शब्द पढ्न FDay लेख्ने SetDay; सम्पत्ति महिना: शब्द DummyWord लेख्न FMonth पढ्न; सम्पत्ति साल: शब्द FYear लेख्न बाकी DummyWord;
{2} सम्पत्ति OnChange: TNotifyEvent FOnChange FOnChange लेख्न पढ्न; अन्त;
प्रक्रिया दर्ता;
कार्यान्वयन
प्रक्रिया दर्ता; RegisterComponents (एक € ~Samplesâ € ™, [TDate3]) सुरु; अन्त;
निर्माता TDate3.Create (AOwner: TComponent); सुरु जन्मजात सिर्जना (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); अन्त;
{4} प्रक्रिया TDate3.SetDay (newDay: शब्द); {एक € घटना invokes “”दिन परिवर्तन हुन्छ}
FDay सुरु: = newDay; {यो घटना सूचित गर्न छ}
{4} DoChange; {यो यसको सम्बन्धित प्रक्रिया लागू गरेर घटना आगलागी

FOnChange (आत्म) वास्तवमा जो नियुक्त घटना सञ्चालनकर्ता} अन्त गर्न कल;
{3A} प्रक्रिया TDate3.DoChange; तोकिएको यदि (FOnChange) त्यसपछि FOnChange (आत्म) सुरु; अन्त {यो घटना खडा जो आपत्ति पारित गर्दा invokes घटना सञ्चालनकर्ता सम्बन्धित}; अन्त।

“——————————————————————————————————————————————————

Support oversettelse: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Firing Hendelses
enhet Unit1;
grensesnitt
bruker
Windows, Meldinger, SysUtils, Varianter, kurs, grafikk, kontroller, skjemaer, Dialoger,
StdCtrls, DATE3;

skriver TForm1 = klasse (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Prosedyren Button1Click (Sender: TObject);

Prosedyren MyDateChange (Sender: TObject); {User erklært handler (alle navn). Den Handler kalles når â € œOnChangeâ € hendelsen sparken av MyDate (TDate3) komponent}
Prosedyren Button2Click (Sender: TObject);
privat
{private erklæringer}
offentlig
{offentlige erklæringer}
slutt;

Var
Form1: TForm1;

gjennomføring
{$ R * .dfm}
Prosedyren TForm1.Button1Click (Sender: TObject);
begynne
MyDate: = TDate3.Create (selv); // Konstruere TDate3 objekt MyDate.OnChange: = MyDateChange; {Knytte handler med standard â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

slutt;
Prosedyren TForm1.myDateChange (Sender: TObject); {Faktiske hendelseshåndterer} begynne ShowMessage (â € ~ dag har changedâ € ™); slutt;
Prosedyren TForm1.Button2Click (Sender: TObject); begynne MyDate.Day:=29; {Skriver til Dag eiendom, ved hjelp setDate () som fra innsiden påkaller DoChange () avfyring tilfelle} slutten;
slutt.
enhet DATE3;
grensesnittet bruker SysUtils, klasser;
TYPE TDate3 = klasse (TComponent) private FDay, FMonth, FYear: Word; DummyWord: ord; {- Event eiendom —}
{1} FOnChange: TNotifyEvent; {System hendelsestype deklarert som: prosedyre (Sender: TObject) objekt;}
beskyttet prosedyre SetDay (NewDay: Word);
{3} prosedyre DoChange; dynamisk; {Når påberopes branner hendelsen}
offentlig konstruktør Opprette (AOwner: TComponent);
publisert eiendom Day: ord lese FDay skrive SetDay; Eiendommen Måned: ord lese FMonth skrive DummyWord; Eiendommen År: ordet les FYear skrive DummyWord;
{2} eiendom OnChange: TNotifyEvent lese FOnChange skrive FOnChange; slutt;
prosedyre Register;
gjennomføring
prosedyre Register; begynne RegisterComponents (â € ~Samplesâ € ™, [TDate3]); slutt;
konstruktør TDate3.Create (AOwner: TComponent); Begynn arvet Opprette (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); slutt;
{4} prosedyre TDate3.SetDay (NewDay: Word); {Påkaller begivenhet â € “”dag endres}
Begynn FDay: = NewDay; {Dette er hendelser som skal varsles}
{4} DoChange; {Dette fyrer av hendelsen ved å påkalle den tilhørende prosedyre

FOnChange (egen-) som faktisk ringe til den tildelte hendelseshåndterer} slutten;
{3a} prosedyre TDate3.DoChange; Begynn hvis Assigned (FOnChange) så FOnChange (selv); {Påkaller assosiert hendelsesbehandling mens man går den motsette som hevet tilfelle} slutten; slutt.

“——————————————————————————————————————————————————

د ملاتړ ژباړه: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 د اجزاو څخه ويشتونکي دکمپاینونو
واحد Unit1؛
د ليدنمخ
هغه ګټي
Windows، پيغامونه، SysUtils، تانبه، د ټولګيو لپاره، ګرافونه، کنترول، فورمې، د Dialogs د،
StdCtrls، Date3؛

ډول TForm1 = ټولګي (TForm) Button1: TButton؛
MyDate: TDate3؛
Button2: TButton؛
طرزالعمل Button1Click (استوونکی: TObject)؛

طرزالعمل MyDateChange (استوونکی: TObject)؛ {د کارونکي سمبالوونکی (هر نوم) اعلان کړه. د سمبالوونکی نوم ياديږي کله چې â € œOnChangeâ € سيالۍ} د MyDate (TDate3) جز له خوا توغول شوي
طرزالعمل Button2Click (استوونکی: TObject)؛
د خصوصي
{خصوصي اعلامیو}
د عامه
{د عامه اعلامیو}
پای؛

var
Form1: TForm1؛

د تطبیق
{$ R * .dfm}
طرزالعمل TForm1.Button1Click (استوونکی: TObject)؛
پيل كيدل؛ شروع كيدل: او چنېدل، راوتل
MyDate: = TDate3.Create (ځاني)؛ // TDate3 څيز MyDate.OnChange جوړولو: = MyDateChange؛ {سره د معياري â € œOnChangeâ € پيښه همکار سمبالوونکی}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

پای؛
طرزالعمل TForm1.myDateChange (استوونکی: TObject)؛ {واقعي پيښه سمبالوونکی} پيل ShowMessage (â € ~The ورځ € ™ changedâ)؛ پای؛
طرزالعمل TForm1.Button2Click (استوونکی: TObject)؛ پيل MyDate.Day:=29؛ {ته په ورځ د ملکیت ليکي، SetDate () چې له دننه رابلي DoChange () د ډزو په صورت کې د کارولو} پای؛
پای.
واحد Date3؛
د ليدنمخ SysUtils، د ټولګيو لپاره کاروي؛
ډول TDate3 = ټولګي (TComponent) خصوصي FDay، FMonth، FYear: Word؛ DummyWord: کلمه؛ {- غونډې شتمني —}
{1} FOnChange: TNotifyEvent؛ {: طرزالعمل سېسټم پېښه ډول په توګه اعلان (استوونکی: TObject) د څيز؛}
خوندي طرزالعمل SetDay (newDay: Word)؛
{3} طرزالعمل DoChange؛ خوځنده؛ {کله چې حالت د اور په صورت}
د عامه جوړونکی جوړول (AOwner: TComponent)؛
خپاره ملکیت ورځ: کلمه پاتې FDay لیکلو SetDay؛ د ملکیت مياشت: کلمه پاتې FMonth DummyWord ولیکي؛ د ملکیت کال: کلمه پاتې FYear ولیکي DummyWord؛
{2} ملکیت OnChange: TNotifyEvent پاتې FOnChange ولیکي FOnChange؛ پای؛
طرزالعمل د نوم ثبتول؛
د تطبیق
طرزالعمل د نوم ثبتول؛ RegisterComponents (â € ~Samplesâ € ™، [TDate3]) پیل شي؛ پای؛
جوړونکی TDate3.Create (AOwner: TComponent)؛ پيل په ميراث جوړول (AOwner)؛
DecodeDate (SysUtils.Date، FYear، FMonth، FDay)؛ پای؛
{4} طرزالعمل TDate3.SetDay (newDay: Word)؛ {â € رابلي پيښه “”ورځ ده بدل}
پيل FDay: = newDay؛ {دا په صورت کې خبر کړای شي}
{4} DoChange؛ {په دې صورت کې د خپلو تړاو طرزالعمل او چیغه د اور سره

FOnChange (ځاني) چې په حقیقت کې د ګمارل پيښه سمبالوونکی} پای ته زنګ؛
{} 3A طرزالعمل TDate3.DoChange؛ که ګمارل شوي (FOnChange) نو FOnChange (ځاني) پیل شي؛ {رابلي پيښه سمبالوونکی د تړاو په داسې حال کې د تيريدو دا اعتراض چې په صورت کې راپورته} پای؛ پای.

“——————————————————————————————————————————————————

ترجمه پشتیبانی: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 قطعات جرقه رویداد
واحد Unit1؛
رابط
استفاده
ویندوز، پیام، SysUtils، انواع، کلاس ها، گرافیک، کنترل، فرم ها، تبادل نظر،
StdCtrls، Date3؛

نوع TForm1 = کلاس (TForm) Button1 را: کد: TButton؛
MyDate: TDate3؛
BUTTON2: کد: TButton؛
روش Button1Click (فرستنده: TObject) می.

MyDateChange روش (فرستنده: TObject) می. {برای کاربران اعلام کرد کنترل (هر نامی). کنترل نامیده می شود که یک رویداد € œOnChangeâ € توسط MyDate (TDate3) جزء} اخراج
روش Button2Click (فرستنده: TObject) می.
خصوصی
{اظهارات شخصی}
عمومی
{اعلان عمومی}
پایان؛

VAR
Form1: TForm1.

پیاده سازی
{$ R * .dfm}
روش TForm1.Button1Click (فرستنده: TObject) می.
شروع
MyDate: = TDate3.Create (خود)؛ // ساخت TDate3 MyDate.OnChange شی: = MyDateChange؛ {کنترل معاشرت با یک استاندارد رویداد € œOnChangeâ €}
از کامپوننت های (IntToStr (today.Day)):
از کامپوننت های (IntToStr (today.Month)):
از کامپوننت های (IntToStr (today.Year)):

پایان؛
روش TForm1.myDateChange (فرستنده: TObject) می. {اداره کننده رویداد واقعی} شروع از کامپوننت های (روز € ~The changedâ است € ™)؛ پایان؛
روش TForm1.Button2Click (فرستنده: TObject) می. آغاز MyDate.Day:=29؛ {می نویسد به اموال روز، با استفاده setDate بصورت زیر () که از داخل فراخوانی DoChange () شلیک رویداد} پایان؛
پایان.
واحد Date3؛
رابط با استفاده از SysUtils، کلاس؛
نوع TDate3 = کلاس (TComponent) خصوصی FDay، FMonth، FYear: کلمه؛ DummyWord: کلمه؛ {- اموال رویداد —}
{1} FOnChange: TNotifyEvent؛ {سیستم نوع رویداد اعلام کرد به عنوان: روش (فرستنده: TObject) می شی؛}
محافظت روش SetDay (newDay: کلمه)؛
{3} روش DoChange؛ پویا. {وقتی استناد آتش رویداد}
سازنده عمومی درست (AOwner: TComponent)؛
منتشر شده روز ملک: کلمه به عنوان خوانده FDay ارسال SetDay؛ ماه ملک: کلمه به عنوان خوانده FMonth ارسال DummyWord؛ املاک سال: کلمه به عنوان خوانده FYear ارسال DummyWord؛
{2} اموال OnChange: TNotifyEvent به عنوان خوانده شده FOnChange ارسال FOnChange؛ پایان؛
ثبت نام روش؛
پیاده سازی
ثبت نام روش؛ آغاز RegisterComponents (â € ~Samplesâ € ™، [TDate3])؛ پایان؛
TDate3.Create سازنده (AOwner: TComponent)؛ آغاز درست به ارث برده (AOwner)؛
DecodeDate (SysUtils.Date، FYear، FMonth، FDay)؛ پایان؛
{4} روش TDate3.SetDay (newDay: کلمه)؛ {فراخوانی رویداد â € “”روز تغییر می کند}
آغاز FDay: = newDay؛ {این است که رویداد مطلع می شود}
{4} DoChange؛ {این آتش سوزی از این رویداد با استناد به روش مرتبط با آن

FOnChange (خود) است که در واقع پاسخ به اختصاص اداره کننده رویداد} پایان؛
{3A} TDate3.DoChange روش؛ آغاز خواهد شد اگر واگذار شده (FOnChange) پس از آن FOnChange (خود)؛ {فراخوانی مرتبط اداره کننده رویداد در حالی که عبور از آن شی که افزایش رویداد} پایان؛ پایان.

“——————————————————————————————————————————————————

Tłumaczenie Wsparcie: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenty Firing zdarzeń
Jednostka Unit1;
berło
zastosowania
Okna, Wiadomości, SysUtils, wariantowych, Classes, Graphics, Controls, Forms, Dialogi,
StdCtrls, Date3;

wpisz TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Procedura Button1Click (Sender: TObject);

Procedura MyDateChange (Sender: TObject); {User oświadczył obsługi (dowolna nazwa). Funkcja jest wywoływana, gdy zdarzenie € œOnChangeâ € jest zwolniony przez MyDate (TDate3) składnika}
Procedura Button2Click (Sender: TObject);
prywatny
{private deklaracje}
publiczny
{Deklaracje publiczne}
koniec;

var
Form1: TForm1;

realizacja
{$ R * .dfm}
Procedura TForm1.Button1Click (Sender: TObject);
zaczynać
MyDate: = TDate3.Create (self); // Skonstruowania TDate3 obiektu MyDate.OnChange: = MyDateChange; {Kojarzy teleskopowa z standard A € œOnChangeâ € imprezy}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

koniec;
Procedura TForm1.myDateChange (Sender: TObject); {Rzeczywista obsługi zdarzeń} zacząć ShowMessage (â € ~The dni ma changedâ € ™); koniec;
Procedura TForm1.Button2Click (Sender: TObject); rozpocznie MyDate.Day:=29~~dobj; {Pisze własności Day, używając setDate (), która od wewnątrz wywołuje DoChange () wypalania zdarzeń} end;
koniec.
Jednostka Date3;
Interfejs wykorzystuje sysutils, klas;
TYP TDate3 = class (TComponent) prywatne FDay, FMonth, FYear: Słowo; DummyWord: Słowo; {- Obiekt zdarzenia —}
{1} FOnChange: TNotifyEvent; {System typ zdarzenia zadeklarowane jako: procedury (Sender: TObject) obiektu;}
Procedura chronione SetDay (newday: Word);
{3} DoChange procedura; dynamiczny; {Przy wywołaniu odpala zdarzenia}
Konstruktor publicznego Tworzenie (AOwner: TComponent);
opublikowane Dzień nieruchomości: odczytane słowo FDay zapisu SetDay; Obiekt Miesiąc: odczytane słowo FMonth napisać DummyWord; Nieruchomość Rok: Słowo czytaj FYear napisać DummyWord;
{2} własność OnChange: TNotifyEvent przeczytać FOnChange napisać FOnChange; koniec;
Procedura rejestru;
realizacja
Procedura rejestru; rozpocznie RegisterComponents (a € ~Samplesâ € ™ [TDate3]); koniec;
TDate3.Create Konstruktor (AOwner: TComponent); Rozpocznij odziedziczył Tworzenie (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); koniec;
{4} Procedura TDate3.SetDay (newday: Word); {Wywołuje zdarzenie â € “”dzień ulega zmianie}
Rozpocznij FDay: = newday; {To zdarzenie być powiadamiany}
{4} DoChange; {Ta wyzwala zdarzenie powołując swoją procedurę związaną

FOnChange (self), który jest faktycznie zadzwonić do przypisane obsługi zdarzeń} end;
{3a} procedure TDate3.DoChange; Zacząć jeśli określony cel (FOnChange), a następnie FOnChange (self); {Wywołuje związane obsługi zdarzeń podczas przejazdu to obiekt, który podniósł event} end; koniec.

“——————————————————————————————————————————————————

Tradução Apoio: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Componentes acionamento do evento
unidade Unit1;
interface
usos
Janelas, Mensagens, SysUtils, Variantes, Classes, gráficos, controles, formulários, caixas de diálogo,
StdCtrls, DATE3;

digite TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
procedimento Button1Click (Sender: TObject);

procedimento MyDateChange (Sender: TObject); {User declarou manipulador (qualquer nome). O manipulador é chamado quando € œOnChangeâ € evento A é disparado pelo componente MyDate (TDate3)}
procedimento button2Click (Sender: TObject);
privado
{declarações privados}
público
{declarações públicas}
fim;

var
Form1: TForm1;

implementação
{$ R * .dfm}
procedimento TForm1.Button1Click (Sender: TObject);
início
MyDate: = TDate3.Create (self); // Construir TDate3 objeto MyDate.OnChange: = MyDateChange; {Manipulador associado com o um padrão € œOnChangeâ € evento}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fim;
procedimento TForm1.myDateChange (Sender: TObject); {Manipulador de evento real} começam ShowMessage (um dia € ~ tem changedâ € ™); fim;
procedimento TForm1.Button2Click (Sender: TObject); começam MyDate.Day:=29; {Escreve à propriedade Dia, usando SetDate (), que de dentro invoca DoChange () disparar o evento} end;
fim.
unidade DATE3;
interface usa SysUtils, Classes;
TIPO TDate3 = class (TComponent) privada FDay, FMonth, FYear: Palavra; DummyWord: Palavra; {- Propriedade de evento —}
{1} FOnChange: TNotifyEvent; {Sistema de tipo de evento declarado como: procedimento (Sender: TObject) do objeto;}
procedimento protegido SetDay (NewDay: Word);
{3} procedimento DoChange; dinâmico; {Quando invocado aciona o evento}
construtor público Create (AOwner: TComponent);
Dia propriedade publicada: palavra lida FDay gravação SetDay; Mês propriedade: palavra lida FMonth escrever DummyWord; propriedade Ano: palavra lida FYear escrever DummyWord;
{2} propriedade OnChange: TNotifyEvent ler FOnChange escrever FOnChange; fim;
procedimento de registo;
implementação
procedimento de registo; começam RegisterComponents (a € ~Samplesâ € ™, [TDate3]); fim;
TDate3.Create construtor (AOwner: TComponent); Comece herdado Criar (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); fim;
{4} procedimento TDate3.SetDay (NewDay: Word); {Invoca evento â € “”o dia é alterada}
Comece FDay: = NewDay; {Este é o evento para ser notificado}
{4} DoChange; {Este aciona o evento invocando a sua procedimento associado

FOnChange (self) que na verdade é chamada para o manipulador de eventos atribuído} end;
{3a} procedure TDate3.DoChange; Começar se Assigned (FOnChange), então FOnChange (self); {Invoca associado manipulador de eventos, enquanto passando-objeto que disparou o evento} end; fim.

“——————————————————————————————————————————————————

ਸਹਿਯੋਗ ਅਨੁਵਾਦ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 ਹਿੱਸੇ ਫਾਇਰਿੰਗ ਘਟਨਾ
ਯੂਨਿਟ Unit1;
ਇੰਟਰਫੇਸ
ਵਰਤਦਾ ਹੈ
Windows ਨੂੰ, ਸੁਨੇਹੇ, SysUtils, ਬਦਲ, ਇੱਕਸੁਰ, ਗਰਾਫਿਕਸ, ਕੰਟਰੋਲ, ਫਾਰਮ, ਡਾਈਲਾਗ,
StdCtrls, Date3;

ਟਾਈਪ TForm1 = ਕਲਾਸ (TForm) ਬਟਨ 1: TButton;
MyDate: TDate3;
Button2: TButton;
ਵਿਧੀ Button1Click (ਪ੍ਰੇਸ਼ਕ: TObject);

ਵਿਧੀ MyDateChange (ਪ੍ਰੇਸ਼ਕ: TObject); {ਯੂਜ਼ਰ ਨੂੰ ਹੈਡਲਰ (ਕਿਸੇ ਵੀ ਨਾਮ) ਦਾ ਐਲਾਨ. ਜਦ â € œOnChangeâ € ਘਟਨਾ MyDate (TDate3) ਭਾਗ} ਕੇ ਗੋਲੀਬਾਰੀ ਹੈ ਹੈਡਲਰ ਕਿਹਾ ਗਿਆ ਹੈ
ਵਿਧੀ Button2Click (ਪ੍ਰੇਸ਼ਕ: TObject);
ਪ੍ਰਾਈਵੇਟ
{ਪ੍ਰਾਈਵੇਟ ਐਲਾਨ}
ਜਨਤਕ
{ਪਬਲਿਕ ਐਲਾਨ}
ਨੂੰ ਖਤਮ;

var
Form1: TForm1;

ਲਾਗੂ ਕਰਨ
{$ R * .dfm}
ਵਿਧੀ TForm1.Button1Click (ਪ੍ਰੇਸ਼ਕ: TObject);
ਸ਼ੁਰੂ
MyDate: = TDate3.Create (ਸਵੈ); // ਉਸਾਰੀ TDate3 ਇਕਾਈ MyDate.OnChange: = MyDateChange; {ਮਿਆਰੀ â € œOnChangeâ € ਘਟਨਾ ਨਾਲ ਐਸੋਸੀਏਟ ਹੈਡਲਰ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ਨੂੰ ਖਤਮ;
ਵਿਧੀ TForm1.myDateChange (ਪ੍ਰੇਸ਼ਕ: TObject); {ਅਸਲ ਘਟਨਾ ਹੈਡਲਰ} ShowMessage ਸ਼ੁਰੂ (â € ~The ਦੇ ਦਿਨ € ™ changedâ ਗਿਆ ਹੈ); ਨੂੰ ਖਤਮ;
ਵਿਧੀ TForm1.Button2Click (ਪ੍ਰੇਸ਼ਕ: TObject); MyDate.Day:=29 ਸ਼ੁਰੂ; {ਦਿਵਸ ਸੰਪਤੀ ਨੂੰ ਲਿਖਦਾ ਹੈ, SetDate () ਹੈ, ਜਿਸ ਦੇ ਅੰਦਰ ਤੱਕ ਨੂੰ ਬੁਲਾਉਦਾ DoChange () ਘਟਨਾ ਗੋਲੀਬਾਰੀ ਵਰਤ} ਅੰਤ;
ਅੰਤ.
ਯੂਨਿਟ Date3;
ਇੰਟਰਫੇਸ SysUtils, ਇੱਕਸੁਰ ਵਰਤਦਾ ਹੈ;
TYPE TDate3 = ਕਲਾਸ (TComponent) ਨਿੱਜੀ FDay, FMonth, FYear: ਬਚਨ; DummyWord: ਸ਼ਬਦ ਦਾ; {- ਘਟਨਾ ਸੰਪਤੀ —}
{1} FOnChange: TNotifyEvent; {: ਵਿਧੀ ਸਿਸਟਮ ਘਟਨਾ ਦੀ ਕਿਸਮ ਦੇ ਤੌਰ ਤੇ ਐਲਾਨ ਕੀਤਾ: ਇਕਾਈ ਦੀ (ਪ੍ਰੇਸ਼ਕ TObject);}
ਸੁਰੱਖਿਅਤ ਵਿਧੀ SetDay (newDay: ਬਚਨ);
{3} ਵਿਧੀ DoChange; ਡਾਇਨਾਮਿਕ; {ਜਦ ਪਛਾਣੀ ਘਟਨਾ ਚੱਲਦਾ}
ਜਨਤਕ ਕੰਸਟਰਕਟਰ (AOwner: TComponent) ਬਣਾਓ;
ਪ੍ਰਕਾਸ਼ਿਤ ਸੰਪਤੀ ਦਿਵਸ: ਸ਼ਬਦ ਦਾ ਨੂੰ ਪੜ੍ਹਨ FDay ਲਿਖਣ SetDay; ਸੰਪਤੀ ਨੂੰ ਮਹੀਨਾ: ਸ਼ਬਦ ਦਾ DummyWord ਲਿਖਣ ਦੀ FMonth ਨੂੰ ਪੜ੍ਹ; ਸੰਪਤੀ ਨੂੰ ਸਾਲ: ਬਚਨ ਪੜ੍ਹਨ FYear ਲਿਖਣ ਦੀ DummyWord;
{2} ਸੰਪਤੀ OnChange: TNotifyEvent ਨੂੰ ਪੜ੍ਹ FOnChange ਲਿਖਣ ਦੀ FOnChange; ਨੂੰ ਖਤਮ;
ਵਿਧੀ ਰਜਿਸਟਰ;
ਲਾਗੂ ਕਰਨ
ਵਿਧੀ ਰਜਿਸਟਰ; RegisterComponents (â € ~Samplesâ € ™, [TDate3]) ਸ਼ੁਰੂ; ਨੂੰ ਖਤਮ;
ਕੰਸਟਰਕਟਰ TDate3.Create (AOwner: TComponent); ਵਿਰਸੇ ਬਣਾਓ (AOwner) ਸ਼ੁਰੂ;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ਨੂੰ ਖਤਮ;
{4} ਵਿਧੀ TDate3.SetDay (newDay: ਬਚਨ); {€ â ਘਟਨਾ ਨੂੰ ਬੁਲਾਉਦਾ “”ਦਿਨ ਬਦਲ ਗਿਆ ਹੈ}
FDay ਸ਼ੁਰੂ: = newDay; {ਇਸ ਘਟਨਾ ਸੂਚਿਤ ਕੀਤਾ ਕਰਨ ਲਈ ਹੈ}
{4} DoChange; {ਇਸ ਨੂੰ ਇਸ ਦੇ ਸਬੰਧਿਤ ਵਿਧੀ ਨੂੰ ਲਾਗੂ ਕਰ ਕੇ ਘਟਨਾ ਚੱਲਦਾ

FOnChange (ਸਵੈ), ਜੋ ਕਿ ਅਸਲ ਵਿੱਚ ਹੈ ਨਿਯੁਕਤ ਘਟਨਾ ਹੈਡਲਰ} ਦਾ ਅੰਤ ਕਰਨ ਲਈ ‘ਤੇ ਕਾਲ ਕਰੋ;
{3 ੳ} ਵਿਧੀ TDate3.DoChange; ਜੇ ਨਿਰਧਾਰਤ (FOnChange) ਫਿਰ FOnChange (ਸਵੈ) ਸ਼ੁਰੂ; {ਬੁਲਾਉਦਾ ਘਟਨਾ ਹੈਡਲਰ ਸਬੰਧਤ ਹੈ, ਜਦਕਿ ਪਾਸ ਇਸ ਨੂੰ ਇਤਰਾਜ਼ ਹੈ, ਜੋ ਕਿ ਘਟਨਾ ਨੂੰ ਉਭਾਰਿਆ} ਅੰਤ; ਅੰਤ.

“——————————————————————————————————————————————————

Traducere suport: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components Eveniment Trăgând
Unitate de Unit1;
interfață
utilizări
Ferestre, Mesaje, SysUtils, variante, Clase, Grafică, Control, Formulare, Dialoguri,
StdCtrls, DATE3;

tip TForm1 = clasa (TForm) Button1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
Procedura Button1Click (Expeditor: TObject);

Procedura MyDateChange (Expeditor: TObject); {Utilizator a declarat manipulant (orice nume). Handler-ul este apelat când â € œOnChangeâ € eveniment este concediat de MyDate (TDate3) componenta}
Procedura Button2Click (Expeditor: TObject);
privat
{declarațiile private}
public
{declarații publice}
Sfârşit;

var
Form1: TForm1;

punerea în aplicare
{$ R * .dfm}
Procedura TForm1.Button1Click (Expeditor: TObject);
ÎNCEPE
MyDate: = TDate3.Create (auto); // Construct TDate3 obiect MyDate.OnChange: = MyDateChange; {Handler asociat cu standardul â € œOnChangeâ € eveniment}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

Sfârşit;
Procedura TForm1.myDateChange (Expeditor: TObject); {Handler real eveniment} a începe ShowMessage (â € ~The zi a changedâ € ™); Sfârşit;
Procedura TForm1.Button2Click (Expeditor: TObject); începe să MyDate.Day:=29; {Scrie proprietate Day, folosind SetDate (), care din interior invocă DoChange () de ardere eveniment} sfârșitul anului;
Sfârşit.
Unitate de DATE3;
interfață utilizează SysUtils, Clase;
TYPE TDate3 = clasa (TComponent) privat FDay, FMonth, FYear: Word; DummyWord: cuvânt; {- Proprietate eveniment —}
{1} FOnChange: TNotifyEvent; {Sistem de tip eveniment declarat ca: procedură (Expeditor: TObject) a obiectului;}
Procedura protejată SetDay (newday: Word);
{3} Procedura DoChange; dinamic; {Atunci când a invocat incendii evenimentul}
constructor publice Creare (AOwner: TComponent);
publicat Ziua de proprietate: cuvânt citit FDay scrie SetDay; Proprietate Luna: cuvânt citește FMonth scrie DummyWord; Proprietate Anul: cuvânt citește FYear scrie DummyWord;
{2} proprietate onchange: TNotifyEvent citește FOnChange scrie FOnChange; Sfârşit;
Procedura de registru;
punerea în aplicare
Procedura de registru; începe să RegisterComponents (â € ~Samplesâ € ™, [TDate3]); Sfârşit;
TDate3.Create constructor (AOwner: TComponent); Începe să moșteniți Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Sfârşit;
{4} Procedura TDate3.SetDay (newday: Word); {Invocă evenimentul â € “”ziua se schimbă}
Începe să FDay: = newday; {Acesta este evenimentul care urmează să fie notificat}
{4} DoChange; {Acest eveniment se declanșează prin invocarea procedurii sale asociate

FOnChange (auto), care este de fapt apela la tratare a evenimentului atribuit} sfârșitul anului;
{3a} Procedura TDate3.DoChange; A începe dacă este atribuit (FOnChange), apoi FOnChange (auto); {Asociat de tratare a evenimentului invocă în timp ce trecerea acestuia, care a ridicat obiecții cu evenimentul} sfârșitul anului; Sfârşit.

“——————————————————————————————————————————————————

перевод Поддержка: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Компоненты для розжига событий
Блок Unit1;
интерфейс
использования
Окна, Сообщения, SysUtils, варианты, классы, графики, управления, формы, Диалоги,
StdCtrls, Date3;

тип TForm1 = класс (TFORM) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Процедура Button1Click (Sender: TObject);

Процедура MyDateChange (Sender: TObject); {Пользователь объявлен обработчик (любое имя). Обработчик вызывается, когда â € œOnChangeâ € событие вызывается по MyDate (TDate3) компонента}
Процедура Button2Click (Sender: TObject);
частный
{} Частные декларации
общественности
{} публичных деклараций
конец;

вар
Form1: TForm1;

реализация
{$ R * .dfm}
Процедура TForm1.Button1Click (Sender: TObject);
начать
MyDate: = TDate3.Create (само); // Построить TDate3 объект MyDate.OnChange: = MyDateChange; {Ассоциировать обработчик со стандартным â € œOnChangeâ € событие}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.month)):
ShowMessage (IntToStr (today.Year)):

конец;
Процедура TForm1.myDateChange (Sender: TObject); {Фактический обработчик событий} начать ShowMessage (â € ~The день changedâ € ™); конец;
Процедура TForm1.Button2Click (Sender: TObject); начинают MyDate.Day:=29~~dobj; {Пишет собственность день, используя SETDATE (), который изнутри вызывает DoChange () обжиг событие} конец;
конец.
Блок Date3;
интерфейс использует SysUtils, классы;
ТИП TDate3 = класс (ТСотропепЬ) частное FDay, FMonth, FYear: Word; DummyWord: слово; {- Свойство события —}
{1} FOnChange: TNotifyEvent; {Система тип события объявлен как: процедура (Sender: TObject) объекта;}
защищенная процедура SetDay (NewDay: Word);
{3} процедура DoChange; динамический; {При вызове запускает событие}
открытый конструктор Create (AOwner: TComponent);
опубликованные День собственности: слово чтения FDay записи SetDay; Свойство месяц: прочитанное слово FMonth написать DummyWord; Свойство Год: слово читать FYear писать DummyWord;
{2} свойство OnChange: TNotifyEvent чтения FOnChange написать FOnChange; конец;
Процедура регистрации;
реализация
Процедура регистрации; начинают RegisterComponents (â € ~Samplesâ € ™, [TDate3]); конец;
Конструктор TDate3.Create (AOwner: ТСотропепЬ); Начало унаследовали Создать (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); конец;
{4} процедура TDate3.SetDay (NewDay: Word); {Вызывает событие â € “”день меняется}
Начало FDay: = NewDay; {Это событие, чтобы получать уведомления}
{4} DoChange; {Это запускает событие, вызвав связанную с ним процедуру

FOnChange (Я), которая на самом деле позвонить в Обработчик события} конца;
{3a} процедура TDate3.DoChange; Начните, если Assigned (FOnChange), то FOnChange (само); {Вызывает связанный обработчик события во время прохождения его объект, который вызвал событие} конец; конец.

“——————————————————————————————————————————————————

Support faaliliuga: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Vaega Firing Mea na Tutupu
iunite Unit1;
Ofisa
faaaogaina
Faamalama, Messages, SysUtils, Variants, Vasega, vaaiga, Pulega tau, Pepa, Dialogs,
StdCtrls, Date3;

ituaiga TForm1 = vasega (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
taualumaga Button1Click (Sender: TObject);

MyDateChange taualumaga (Sender: TObject); {Faaaogāina tautino Handler (so o se igoa). O le Handler ua taʻua pe se € œOnChangeâ € mea ua musuia e le MyDate (TDate3) vaega}
taualumaga Button2Click (Sender: TObject);
patino
{Tautinoga Tumaoti}
lautele
{Tautinoga Malo}
muta;

var
Form1: TForm1;

faatinoga
{$ R * .dfm}
taualumaga TForm1.Button1Click (Sender: TObject);
amata
MyDate: = TDate3.Create (le tagata lava ia); // Fausia TDate3 MyDate.OnChange mea: = MyDateChange; {Lagolago Handler ma se tagavai € œOnChangeâ € mea}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

muta;
taualumaga TForm1.myDateChange (Sender: TObject); {Handler mea moni} amata ShowMessage (a € ~The aso ua changedâ € ™); muta;
taualumaga TForm1.Button2Click (Sender: TObject); amata MyDate.Day:=29; {Tusia i Aso meatotino, i le faaaogaina SetDate () lea mai totonu e fagua DoChange () firing le mea na tupu} iuga;
iuga.
iunite Date3;
faaaoga Ofisa SysUtils, Vasega;
ITUAIGA TDate3 = vasega (TComponent) tumaoti FDay, FMonth, FYear: Upu; DummyWord: upu; {- Mea meatotino —}
{1} FOnChange: TNotifyEvent; {Ituaiga mea faiga tautino mai e pei o le: taualumaga (Sender: TObject) o mea;}
SetDay taualumaga puipuia (newDay: Upu);
{3} taualumaga DoChange; maoae; {Pe a faamaoniaina afi le mea na tupu}
constructor lautele Fatu (AOwner: TComponent);
Aso meatotino lomia: upu faitau tusi FDay SetDay; meatotino Masina: upu faitau FMonth tusi DummyWord; meatotino Tausaga: upu faitau tusi FYear DummyWord;
{2} meatotino OnChange: faitau TNotifyEvent tusi FOnChange FOnChange; muta;
Tusi Resitala taualumaga;
faatinoga
Tusi Resitala taualumaga; amata RegisterComponents (a € ~Samplesâ € ™, [TDate3]); muta;
TDate3.Create constructor (AOwner: TComponent); Amata tuufaasolo Fatu (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); muta;
{4} taualumaga TDate3.SetDay (newDay: Upu); {Fagua mea se € “”aso ua suia}
Amata FDay: = newDay; {O le mea lenei e ao ona logoina}
{4} DoChange; {Afi le mea lenei e le aumaia ai ana taualumaga e fesootai

FOnChange (le tagata lava ia) e valaau moni i le Handler mea tofia} iuga;
{3a} taualumaga TDate3.DoChange; Amata pe afai Tofia (FOnChange) lea FOnChange (le tagata lava ia); {Fagua fesootai mea Handler ao tufatufa atu tetee lea e faatuina le mea na tupu} iuga; iuga.

“——————————————————————————————————————————————————

Taic eadar-theangachadh: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 pàirtean Firing Tachartas
aonad Unit1;
eadar-aghaidh
cleachdaidhean
Windows, Teachdaireachdan, SysUtils, Tionndaidhean, clasaichean, Grafaigeachd, Smachdan, Foirmean, Dialogs,
StdCtrls, Date3;

taipidh TForm1 = clas (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
modh Button1Click (neach: TObject);

modh MyDateChange (neach: TObject); {User ghairm an cìobair (ainm sam bith). Tha Handler ris an canar â € nuair a œOnChangeâ € tachartas a losgadh leis an MyDate (TDate3) phàirt}
modh Button2Click (neach: TObject);
prìobhaideach
{Prìobhaideach dearbhadh}
poblach
{Phoblach dearbhadh}
gu crìch;

var
Form1: TForm1;

buileachadh
{$ R * .dfm}
modh TForm1.Button1Click (neach: TObject);
tòiseachadh
MyDate: = TDate3.Create (fèin); // Thogail TDate3 nì MyDate.OnChange: = MyDateChange; {Leas cìobair le bratach â € œOnChangeâ € tachartas}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

gu crìch;
modh TForm1.myDateChange (neach: TObject); {Fìor thachartas cìobair} tòiseachadh ShowMessage (â € ~The latha air changedâ € ™); gu crìch;
modh TForm1.Button2Click (neach: TObject); rithist MyDate.Day:=29; { ‘Sgrìobhadh gu Latha seilbh, a’ cleachdadh SetDate () a tha a-staigh bho invokes DoChange () ‘losgadh an tachartas} deireadh;
deireadh.
aonad Date3;
eadar-aghaidh a ‘cleachdadh SysUtils, Clasaichean;
SHEÒRSA TDate3 = clas (TComponent) prìobhaideach FDay, FMonth, FYear: Word; DummyWord: facal; {- Tachartas seilbh —}
{1} FOnChange: TNotifyEvent; {Siostam seòrsa tachartas a ghairm mar: modh (neach: TObject) rud;}
dìon modh SetDay (newDay: Word);
{3} modh DoChange; fiùghantach; {Nuair invoked teintean an tachartas}
poblach constructor Cruthaich (AOwner: TComponent);
fhoillseachadh seilbh Day: facal leughadh FDay sgrìobhaidh SetDay; seilbh Mìos: facal leughadh FMonth sgrìobhadh DummyWord; seilbh Bliadhna: facal leughadh FYear sgrìobhadh DummyWord;
{2} seilbh OnChange: TNotifyEvent leughadh FOnChange sgrìobhadh FOnChange; gu crìch;
Clàr mhodh;
buileachadh
Clàr mhodh; rithist RegisterComponents (â € ~Samplesâ € ™, [TDate3]); gu crìch;
constructor TDate3.Create (AOwner: TComponent); Toisich shealbhaich Cruthaich (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); gu crìch;
{4} modh TDate3.SetDay (newDay: Word); {Invokes tachartas â € “”tha e air atharrachadh latha}
Toisich FDay: = newDay; { ‘S e seo an tachartas a gheibh fios}
{4} DoChange; {Seo teintean an tachartas le bhith a invoking modh-obrach co-cheangailte

FOnChange (fèin) a tha dha-rìribh gairm air a shònrachadh tachartas cìobair} deireadh;
{} 3a modh TDate3.DoChange; Toisich ma shònrachadh (FOnChange) an uair sin FOnChange (fèin); {Invokes co-cheangailte fhad ‘sa bha an tachartas a’ dol seachad e an cìobair aghaidh a thog an tachartas} deireadh; deireadh.

“——————————————————————————————————————————————————

Подршка превод: хттп://амзн.то/1З7д5оц
——————————————————————————————————————————————————

Т22-23 Компоненте Фиринг догађај
јединица Унит1;
приступ
користи
Прозори, поруке, сисутилс, Варијанте, класе, Графика, контроле, Облици, Дијалог,
СтдЦтрлс, Дате3;

типе ТФорм1 = цласс (ТФорм) Буттон1: ТБуттон;
МиДате: ТДате3;
Буттон2: ТБуттон;
Поступак Буттон1Цлицк (Сендер: ТОбјецт);

Поступак МиДатеЦханге (Сендер: ТОбјецт); {Корисник је изјавио Хандлер (било које име). Руковалац се зове када је € œОнЦхангеа € случају је испалила МиДате (ТДате3) компонента}
Поступак Буттон2Цлицк (Сендер: ТОбјецт);
приватни
{Привате децларатионс}
јавни
{јавним изјавама}
крај;

вар
Форм1: ТФорм1;

извршење
{$ Р * .дфм}
процедуре ТФорм1.Буттон1Цлицк (Сендер: ТОбјецт);
започети
МиДате: = ТДате3.Цреате (само); // Изградити ТДате3 објецт МиДате.ОнЦханге: = МиДатеЦханге; {Сарадник трговине са стандард € œОнЦхангеа € случају}
СховМессаге (ИнтТоСтр (тодаи.Даи)):
СховМессаге (ИнтТоСтр (тодаи.Монтх)):
СховМессаге (ИнтТоСтр (тодаи.Иеар)):

крај;
Поступак ТФорм1.миДатеЦханге (Сендер: ТОбјецт); {Стварни догађај трговине} почети СховМессаге (в € ~ дан је цхангеда € ™); крај;
Поступак ТФорм1.Буттон2Цлицк (Сендер: ТОбјецт); бегин МиДате.Даи:=29~~добј; {Пише Даи имовине, користећи СетДате () који изнутра намецу ДоЦханге () печењем евент} енд;
крај.
јединица Дате3;
интерфејс користи СисУтилс, класе;
ТИП ТДате3 = класа (ТЦомпонент) приватно ФДаи, ФМонтх, ФИеар: Реч; ДуммиВорд: реч; {- Догађај имовина —}
{1} ФОнЦханге: ТНотифиЕвент; {Систем тип догађаја проглашена: процедуре (Сендер: ТОбјецт) објекта;}
протецтед поступак СетДаи (НевДаи: Реч);
{3} поступак ДоЦханге; динамичан; {Када се позива отпусти догађај}
јавни цонструцтор Цреате (АОвнер: ТЦомпонент);
објављено имовина Дан: реч читати ФДаи писање СетДаи; имовина месец: реч читати ФМонтх писати ДуммиВорд; имовина Година: реч реад ФИеар писати ДуммиВорд;
{2} имовина онЦханге: ТНотифиЕвент читати ФОнЦханге писати ФОнЦханге; крај;
Поступак Региструј;
извршење
Поступак Региструј; почети РегистерЦомпонентс (а € ~Самплеса € ™, [ТДате3]); крај;
конструктор ТДате3.Цреате (АОвнер: ТЦомпонент); Бегин наслеђених Цреате (АОвнер);
ДецодеДате (СисУтилс.Дате, ФИеар, ФМонтх, ФДаи); крај;
{4} поступак ТДате3.СетДаи (НевДаи: Реч); {Позива догађај а € “”дан се мења}
Бегин ФДаи: = НевДаи; {То је догађај да буде обавештен}
{4} ДоЦханге; {То фирес догађај позивајући се на своје повезан поступак

ФОнЦханге (само) који је заправо позове на додељени догађај утоваривач} енд;
{3а} поступак ТДате3.ДоЦханге; Бегин иф Ассигнед (ФОнЦханге) онда ФОнЦханге (само); {Позива повезана евент хандлер док је пролазио то објецт које подигла евент} енд; крај.

#VALUE!
“——————————————————————————————————————————————————

Support shanduro: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 zvinoumba nokuridzira Event
Unit Unit1;
inowanikwa
tizvishandise
Windows, Messages, SysUtils, Variants, Classes, Graphics, Kutonga, Forms, Dialogs,
StdCtrls, Date3;

kutaipa TForm1 = kirasi (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
nzira Button1Click (Sender: TObject);

nzira MyDateChange (Sender: TObject); {Mushandisi akataura Handler (chero zita). The Handler anonzi apo â € œOnChangeâ € chiitiko iri kudzingwa basa neDare MyDate (TDate3) chikamu}
nzira Button2Click (Sender: TObject);
voga
{Private kuzivisa}
ruzhinji rwevanhu
{Public kuzivisa}
vanoguma;

gat
Form1: TForm1;

implementation
{$ R * .dfm}
nzira TForm1.Button1Click (Sender: TObject);
kutanga
MyDate: = TDate3.Create (kuzviremekedza); // Kuvaka TDate3 chinhu MyDate.OnChange: = MyDateChange; {Nevanotonga Handler pamwe mureza â € œOnChangeâ € chiitiko}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

vanoguma;
nzira TForm1.myDateChange (Sender: TObject); {Zvomene chiitiko Handler} kutanga ShowMessage (â € ~The nezuva changedâ € ™); vanoguma;
nzira TForm1.Button2Click (Sender: TObject); kutanga MyDate.Day:=29; {Anonyorera Day pfuma, achishandisa SetDate () izvo kubva mukati anodana DoChange () vachiridzira chiitiko} kuguma;
magumo.
Unit Date3;
inowanikwa anoshandisa SysUtils, Classes;
TYPE TDate3 = kirasi (TComponent) dzakavanzika FDay, FMonth, FYear: Shoko; DummyWord: Shoko; {- Chiitiko pfuma —}
{1} FOnChange: TNotifyEvent; {Hurongwa chiitiko mhando akataura se: nzira (Sender: TObject) nechinhu;}
akadzivirira nzira SetDay (newDay: Shoko);
{3} nzira DoChange; simba; {Kana vachikumbira pamoto chiitiko}
voruzhinji constructor Create (AOwner: TComponent);
rakabudiswa pfuma Day: Shoko verenga FDay nyora SetDay; pfuma Mwedzi: Shoko kuverenga FMonth kunyora DummyWord; pfuma Year: Shoko verenga FYear nyora DummyWord;
{2} pfuma OnChange: TNotifyEvent kuverenga FOnChange kunyora FOnChange; vanoguma;
nzira Register;
implementation
nzira Register; vanotanga RegisterComponents (â € ~Samplesâ € ™, [TDate3]); vanoguma;
constructor TDate3.Create (AOwner: TComponent); Tanga nhaka Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); vanoguma;
{4} nzira TDate3.SetDay (newDay: Shoko); {Anodana chiitiko â € “”zuva dzinoshandurwa}
Tanga FDay: = newDay; {Ichi ndicho chiitiko chinofanira nezvokudzokera}
{4} DoChange; {Ichi pamoto chiitiko kuburikidza kushandisa dzayo akabatanidza nzira

FOnChange (kuzviremekedza) inova chaizvoizvo kushevedzera basa chiitiko Handler} magumo;
{3a} nzira TDate3.DoChange; Tanga kana Akapiwa (FOnChange) Saka FOnChange (kuzviremekedza); {Anodana akabatanidza chiitiko Handler apo kupfuura izvozvo kuramba wakamutsa chiitiko} kuguma; magumo.

“——————————————————————————————————————————————————

حمايت ترجمو: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 حصن ۾ واقعي جي فائرنگ
يونٽ Unit1؛
انٽرفيس
فائدا
ونڊوز، تحريرون، SysUtils، Variants، ڪلاس، چٽ، سنڀال، شڪليون، Dialogs،
StdCtrls، Date3؛

قسم TForm1 = طبقو (TForm) Button1: TButton؛
MyDate: TDate3؛
Button2: TButton؛
طريقيڪار Button1Click (موڪليندڙ: TObject)؛

طريقيڪار MyDateChange (موڪليندڙ: TObject)؛ {استعمال ڪندڙ handler (ڪنهن جو نالو) قرار ڏنو. جڏهن € œOnChangeâ € واقعي جي MyDate (TDate3) اتحاد جي فائرنگ آهي ته Handler سڏيو ويندو آهي}
طريقيڪار Button2Click (موڪليندڙ: TObject)؛
نجي
{پرائيويٽ منادین}
عوامي
{پبلڪ منادین}
آخر ۾،

var
Form1: TForm1؛

تي عملدرآمد
{$ ر * .dfm}
طريقيڪار TForm1.Button1Click (موڪليندڙ: TObject)؛
شروع
MyDate: = TDate3.Create (خود) // TDate3 شئي MyDate.OnChange تعمير: = MyDateChange؛ {روان € œOnChangeâ € واقعي جي معيار سان شريڪ handler}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

آخر ۾،
طريقيڪار TForm1.myDateChange (موڪليندڙ: TObject)؛ {حقيقي واقعي handler} شروع ShowMessage (€ ~The هڪ ڏينهن هڪ ڪري ڇڏيو changedâ € ™)؛ آخر ۾،
طريقيڪار TForm1.Button2Click (موڪليندڙ: TObject)؛ MyDate.Day:=29 شروع؛ {ڏينھن مال لاء لکي ٿو ته، SetDate () جنهن جي اندر مان ٻئي DoChange () استعمال ڪرڻ جي واقعي جي فائرنگ} آخر؛
آخر.
يونٽ Date3؛
انٽرفيس SysUtils، ڪلاس لاء استعمال ڪري.
قسم TDate3 = طبقو (TComponent) نجي FDay، FMonth، FYear: ڪلام؛ DummyWord: ڪلام؛ {- واقعي مال —}
{1} FOnChange: TNotifyEvent؛ {نظام واقعي جو قسم قرار ڏنو: طريقيڪار (موڪليندڙ: TObject) مفعول جي؛}
محفوظ طريقيڪار SetDay (newDay: حڪم)؛
{3} طريقيڪار DoChange؛ متحرڪ؛ {جڏهن سڏبو جي واقعي الانبن}
عوامي constructor (AOwner: TComponent) ٺاهيو.
شايع ٿيل مال ڏينهن: ڪلام جو مطالعو FDay لکڻ SetDay؛ مال ورھين: ڪلام جو مطالعو FMonth لکڻ DummyWord؛ مال سال: ڪلام جو مطالعو FYear لکڻ DummyWord؛
{2} ملڪيت OnChange: پڙهڻ TNotifyEvent FOnChange FOnChange لکڻ؛ آخر ۾،
طريقيڪار تي گهڻن؛
تي عملدرآمد
طريقيڪار تي گهڻن؛ RegisterComponents شروع (a € ~Samplesâ € ™، [TDate3]). آخر ۾،
constructor TDate3.Create (AOwner: TComponent)؛ وارث شروع ٺاهيو (AOwner)؛
DecodeDate (SysUtils.Date، FYear، FMonth، FDay)؛ آخر ۾،
{4} طريقيڪار TDate3.SetDay (newDay: حڪم)؛ {ٻئي روان € “”ڏينهن واقعي تبديل ٿي ويو آهي}
شروع FDay: = newDay؛ {هن اطلاع ڏنو وڃي ته واقعي آهي}
{4} DoChange؛ {هن پنهنجي لاڳاپيل طريقيڪار گھرڻ جي واقعي الانبن

FOnChange (خود) اصل ۾ هن دفعي واقعي handler} ختم ڪرڻ لاء سڏ آهي جنهن؛
{3a} طريقيڪار TDate3.DoChange؛ شروع جيڪڏھن دفعي (FOnChange) پوء FOnChange (خود) {مدائيء کي واقعي handler لاڳاپيل جڏهن ته ان اعتراض جنهن جي واقعي جيئرو ڪارڻ} آخر؛ آخر.

“——————————————————————————————————————————————————

සහාය පරිවර්තන: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

EVENT පත්තුවීම T22-23 සංරචක
ඒකකය Unit1;
අතුරුමුහුණත
භාවිතා
වින්ඩෝස්, ලිපි, SysUtils, ප්රභේද, ටියුශන් පන්ති, ග්රැෆික්, පාලන, ආකෘති පත්ර, සංවාද,
StdCtrls, Date3;

TForm1 = පන්තිය (TForm) Button1 යතුරු කරන්න: TButton;
MyDate: TDate3;
Button2: TButton;
පටිපාටිය Button1Click (යවන්නාගේ: TObject);

පටිපාටිය MyDateChange (යවන්නාගේ: TObject); {පරිශීලක හසුරුවන්නා (ඕනෑම නමක්) ප්රකාශ කලේ ය. මගේ කතාව € œOnChangeâ € අවස්ථාවට MyDate (TDate3) සංරචකය මගින් එල්ල කළ විට හසුරුවන්නා ලෙස හැඳින්වේ}
පටිපාටිය Button2Click (යවන්නාගේ: TObject);
පුද්ගලික
{පුද්ගලික ප්රකාශ}
පොදු
{රාජ්ය ප්රකාශ}
අවසානය;

var
Form1: TForm1;

ක්රියාත්මක කිරීම
{$ R * .dfm}
පටිපාටිය TForm1.Button1Click (යවන්නාගේ: TObject);
ආරම්භය
MyDate: = TDate3.Create (ස්වයං); // TDate3 වස්තුව MyDate.OnChange ඉදිකිරීමට: = MyDateChange; {€ œOnChangeâ € උත්සවය සම්මත රාහු සමග හසුරුවන්නා}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

අවසානය;
පටිපාටිය TForm1.myDateChange (යවන්නාගේ: TObject); {ඇත්ත සිද්ධියක් හසුරුවන්නා} (€ ~The දිනය ඇත changedâ € ™) ShowMessage ආරම්භ; අවසානය;
පටිපාටිය TForm1.Button2Click (යවන්නාගේ: TObject); MyDate.Day:=29 ආරම්භ; අවසන් {මෙම අවස්ථාවට වෙඩි ඇතුළත සිට DoChange (අල්ලාහ් වන SetDate ()) භාවිතා කරමින්, දිනය දේපල ලියයි};
අවසානය.
ඒකකය Date3;
අතුරු මුහුණත SysUtils, ටියුශන් පන්ති භාවිතා කරයි;
TYPE TDate3 = පන්තිය (TComponent) පෞද්ගලික FDay, FMonth, FYear: වචනය; DummyWord: වචනය; {- අවස්ථාවට දේපල —}
{1} FOnChange: TNotifyEvent; {: ක්රියා පටිපාටිය (යවන්නාගේ: TObject) ලෙස ප්රකාශයට පත් පද්ධති සිද්ධිය වර්ගය වස්තුවක;}
ආරක්ෂා පටිපාටිය SetDay (newDay: වචනය);
{3} පටිපාටිය DoChange; ගතික; {සඳහන් කිරීමේ අවස්ථාවට ගිනි}
පොදු ඉදිකිරීමටත් (AOwner: TComponent) නිර්මාණය කරන්න;
දේපල දිනය ප්රකාශයට පත්: වචනය කියවන්න FDay SetDay ලියන්න; දේපල මාසික: වචනය කියවන්න FMonth DummyWord ලියන්න; දේපල වර්ෂය: වචනය කියවන්න FYear DummyWord ලියන්න;
{2} දේපල OnChange: කියවීමට TNotifyEvent FOnChange FOnChange ලියන්න; අවසානය;
පටිපාටිය රෙජිස්ටර්;
ක්රියාත්මක කිරීම
පටිපාටිය රෙජිස්ටර්; RegisterComponents ආරම්භ (අ € ~Samplesâ € ™, [TDate3]); අවසානය;
ඉදිකිරීමටත් TDate3.Create (AOwner: TComponent); උරුම ආරම්භ කරන්න සාදන්න (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); අවසානය;
{4} පටිපාටිය TDate3.SetDay (newDay: වචනය); {අල්ලාහ් € “”දවස උත්සවය වෙනස්}
FDay ආරම්භ කරන්න: = newDay; {මෙම අවස්ථාවට දැනුම් දෙනු ඇත}
{4} DoChange; {මෙම එයට අදාළ ක්රියා පටිපාටිය කැඳවමින් මෙම අවස්ථාවට ගිනි

FOnChange (ස්වයං) ඇත්තටම පවරා අවස්ථාවට හසුරුවන්නා} අවසන් අමතන්න වන;
{3 අ} පටිපාටිය TDate3.DoChange; නොම්මර නම් ආරම්භ කරන්න (FOnChange), පසුව FOnChange (ස්වයං); අවසන් {අල්ලාහ් එය මෙම අවස්ථාවට මතු වන විරුද්ධත්වය යද්දී අවස්ථාවට හසුරුවන්නා සම්බන්ධ}; අවසානය.

“——————————————————————————————————————————————————

Podpora prekladu: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenty Vypaľovacie Event
Jednotka Unit1;
rozhranie
použitie
Windows, Správy, sysutils, varianty, tried, grafika, Controls, Forms, Dialógy,
StdCtrls, Date3;

typ TForm1 = class (TForm) Button1: tna;
MyDate: TDate3;
Button2: tna;
Postup Button1Click (Sender: TObject);

Postup MyDateChange (Sender: TObject); {User vyhlásená za psovoda (ľubovoľný názov). Handler je volaná pri â € œOnChangeâ € udalosti je zapálený do MyDate (TDate3) zložka}
Postup Button2Click (Sender: TObject);
súkromné
{Private vyhlásenie}
verejnosť
{Public vyhlásenie}
koniec;

var
Form1: TForm1;

uskutočnenie
{$ R * .dfm}
Postup TForm1.Button1Click (Sender: TObject);
začať
MyDate: = TDate3.Create (self); // Postaviť TDate3 objekt MyDate.OnChange: = MyDateChange; {Spolupracovník psovod so štandardným â € œOnChangeâ € udalosti}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

koniec;
Postup TForm1.myDateChange (Sender: TObject); {Skutočná rutina udalosti} začne ShowMessage (â € ~ The deň sa Changed € ™); koniec;
Postup TForm1.Button2Click (Sender: TObject); začínajú MyDate.Day:=29~~dobj; {Píše na majetku denne pomocou SetDate (), ktorá zvnútra vyvolá DoChange () vypálenie event} koniec;
koniec.
Jednotka Date3;
rozhranie používa sysutils, triedy;
TYPE TDate3 = class (TComponent) súkromný FDay, FMonth, FYear: Word; DummyWord: word; {- Vlastnosť udalosť —}
{1} FOnChange: TNotifyEvent; {Systém typ udalosti deklarovaný ako: postup (Sender: TObject) objektu;}
chránenej postup SetDay (NewDay: Word);
{3} postup DoChange; dynamický; {Pri vyvolaní je udalosť}
verejný konštruktor Vytvoriť (AOwner: TComponent);
publikoval vlastnosť Deň: Slovo čítanie FDay zápis SetDay; nehnuteľnosť Mesiac: Slovo čítať FMonth písať DummyWord; nehnuteľnosť Rok: Slovo čítanie FYear napísať DummyWord;
{2} vlastnosť OnChange: TNotifyEvent čítať FOnChange písať FOnChange; koniec;
Postup Register;
uskutočnenie
Postup Register; zahájiť RegisterComponents (â € ™ ~ Samples [TDate3]); koniec;
konštruktor TDate3.Create (AOwner: TComponent); Začnite zdedil Create (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); koniec;
{4} postup TDate3.SetDay (NewDay: Word); {Vyvolá udalosť â € “”deň sa zmení}
Začínajú FDay: = NewDay; {To je udalosť, ktoré majú byť oznámené}
{4} DoChange; {To je udalosť odvolaním jeho spojený postup

FOnChange (self), čo je vlastne zavolať na priradené obsluhy udalostí} konca;
{} 3a postup TDate3.DoChange; Ak začne pridelené (FOnChange), potom FOnChange (self); {Odvoláva spojené rutinu udalosti pri priechode to objekt, ktorý zvýšil o udalostiach} koniec; koniec.

“——————————————————————————————————————————————————

prevod podpora: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponente streljanje Event
Enota Unit1;
vmesnik
uporabe
Windows, Sporočila, SysUtils, Variante, razredov, grafika, Controls, obrazci, Pogovorna okna,
StdCtrls, Date3;

tip TForm1 = razred (TForm) BUTTON1: TButton;
MyDate: TDate3;
Button2: TButton;
Postopek Button1Click (Sender: TObject);

Postopek MyDateChange (Sender: TObject); {User razglasila za prekladanje (poljubno ime). Vodnik se imenuje, ko â € œOnChangeâ € primeru je odpuščen, ki jih MyDate (TDate3) komponenta}
Postopek Button2Click (Sender: TObject);
zasebno
{Zasebni izjave}
javno
{Javne izjave}
konec;

var
Form1: TForm1;

izvajanje
{$ R * .dfm}
Postopek TForm1.Button1Click (Sender: TObject);
začeti
MyDate: = TDate3.Create (samo); // Zgraditi TDate3 objekta MyDate.OnChange: = MyDateChange; {Sodelavec vodnik s standardno â € œOnChangeâ € dogodku}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

konec;
Postopek TForm1.myDateChange (Sender: TObject); {Resnični dogodek trener} začne ShowMessage (â € ~The dan changedâ € ™); konec;
Postopek TForm1.Button2Click (Sender: TObject); začetek MyDate.Day:=29~~dobj; {Piše na dan premoženja, s pomočjo SetDate (), ki od znotraj uveljavlja DoChange () žganjem dogodka} konec;
end.
Enota Date3;
vmesnik uporablja SysUtils, razredov;
TYPE TDate3 = razred (TComponent) zasebni FDay, FMonth, FYear: Beseda; DummyWord: beseda; {- Dogodki lastnina —}
{1} FOnChange: TNotifyEvent; {Sistem tip dogodka je deklariran kot: postopek (Sender: TObject) objekta;}
zaščiten postopek SetDay (Newday: Word);
{3} Postopek DoChange; dinamično; {Ko uveljavlja sproži dogodek}
javni konstruktor Ustvarite (AOwner: TComponent);
objavljeno Dan nepremičnine: bere FDay pisanje SetDay; nepremičnine Mesec: bere FMonth pisati DummyWord; nepremičnine Leto: beseda branje FYear pisati DummyWord;
{2} nepremičnine OnChange: TNotifyEvent brati FOnChange pisati FOnChange; konec;
Postopek Register;
izvajanje
Postopek Register; začeli RegisterComponents (a € ~Samplesâ € ™, [TDate3]); konec;
Konstruktor TDate3.Create (AOwner: TComponent); Začnite podedoval Ustvarite (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); konec;
{4} postopek TDate3.SetDay (Newday: Word); {Sklicuje na dogodek â € “”dan se spremeni}
Začnite FDay: = Newday; {To je dogodek, ki se sporočajo}
{4} DoChange; {To sproži dogodek, sklicujoč se na svojo povezani postopek

FOnChange (samo), ki je pravzaprav klic na dodeljena dogodek trener} konca;
{3a} postopek TDate3.DoChange; Začeti, če namenski (FOnChange), potem FOnChange (samo); {Sklicuje povezan dogodek trener, medtem ko poteka ugovarja ki je dvignila dogodka} konec; end.

“——————————————————————————————————————————————————

turjumaad Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Qaybaha Cayrin Event
unit Unit1;
interface
isticmaalka
Windows, Messages, SysUtils, Lahjadaha, fasalada, Graphics, kontoroolha, Foomamka, Dialogs,
StdCtrls, Date3;

ku qor TForm1 = fasalka (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Nidaamka Button1Click (Qofka dirayo: TObject);

MyDateChange nidaamka (Qofka dirayo: TObject); {User sheegay Handler (magac). Handler waxaa lagu magacaabaa marka â € dhacdo œOnChangeâ € waxaa rasaas by MyDate ah (TDate3) qayb}
Nidaamka Button2Click (Qofka dirayo: TObject);
gaarka ah
{Caddayntu Private}
dadweynaha
{Caddayntu Public}
afjaro,

var
Form1: TForm1;

fulinta
{$ R * .dfm}
Nidaamka TForm1.Button1Click (Qofka dirayo: TObject);
bilaabaan
MyDate: = TDate3.Create (self); // Dhiso TDate3 MyDate.OnChange shay: = MyDateChange; {Handler associate la â € heerka œOnChangeâ € dhacdo}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

afjaro,
Nidaamka TForm1.myDateChange (Qofka dirayo: TObject); {Handler dhacdo dhab ah} bilaabi ShowMessage (â € maalinta ~The ayaa changedâ € ™); afjaro,
Nidaamka TForm1.Button2Click (Qofka dirayo: TObject); bilaabaan MyDate.Day:=29; {Qoray in hantida Day, iyadoo la isticmaalayo SetDate () taas oo gudaha ka baryi DoChange () rasaas ay dhacdo} dhamaadka;
dhamaadka.
unit Date3;
interface isticmaalaa SysUtils, Fasalada;
NOOCA TDate3 = fasalka (TComponent) gaarka ah FDay, FMonth, FYear: Word, DummyWord: ereyga; {- Hantida dhacdo —}
{1} FOnChange: TNotifyEvent; {Nidaamka nooca dhacdada sheegay sida: habka (Qofka dirayo: TObject) ee shay;}
ilaaliyo SetDay nidaamka (newDay: Word);
{3} DoChange nidaamka; firfircoon; {Marka gawraco erya dhacdo}
constructor dadweynaha Abuur (AOwner: TComponent);
Maalinta hantida la daabacay: erayga akhri FDay SetDay u qortaa; Bisha hantida, erayga akhri FMonth qori DummyWord; Year hantida, erayga akhriyin FYear qori DummyWord;
{2} hantida OnChange: TNotifyEvent akhri FOnChange qori FOnChange; afjaro,
Register nidaamka;
fulinta
Register nidaamka; bilaabaan RegisterComponents (â € ~Samplesâ € ™, [TDate3]); afjaro,
TDate3.Create constructor (AOwner: TComponent); Ku bilow dhaxlay Abuur (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); afjaro,
{4} nidaamka TDate3.SetDay (newDay: Word); {Baryi dhacdo â € “”maalin la bedelo}
Ku bilow FDay: = newDay; {Tani waa dhacdo in lala socodsiiyo}
{4} DoChange; {This erya dhacdo by koofaaro ay hab la xiriira

FOnChange (self) taas oo dhab ahaantii waa soo wac si loo qoondeeyey Handler dhacdo} dhamaadka;
{3a} TDate3.DoChange nidaamka; Ku bilow haddii lagugu Qoray (FOnChange) markaas FOnChange (self); {Maqleyn xidhiidha Handler dhacdo halka marayay nimaano oo sara kiciyey dhacdo} dhamaadka; dhamaadka.

“——————————————————————————————————————————————————

traducción de soporte: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Componentes Firing Evento
Unit1 unidad;
interfaz
usos
Ventanas, mensajes, SysUtils, variantes, clases, gráficos, controles, formularios, cuadros de diálogo,
StdCtrls, fecha3;

escriba TForm1 = class (TForm) Button1: TButton;
MiFecha: TDate3;
Botón2: TButton;
procedimiento Button1Click (Sender: TObject);

MyDateChange procedimiento (Sender: TObject); {User declaró manejador (cualquier nombre). El controlador se llama cuando â € € œOnChangeâ evento se dispara por el MiFecha (TDate3) componente}
procedimiento Button2Click (Sender: TObject);
privado
{} declaraciones privadas
público
{} Las declaraciones públicas
fin;

var
Form1: TForm1;

implementación
{$ R * .dfm}
procedimiento TForm1.Button1Click (Sender: TObject);
empezar
MiFecha: = TDate3.Create (auto); // Construir TDate3 objeto MyDate.OnChange: = MyDateChange; {Manejador asociado con la norma € â € œOnChangeâ evento}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

fin;
procedimiento TForm1.myDateChange (Sender: TObject); {} Controlador de eventos reales comienzan ShowMessage (â € ~ día ha changedâ € ™); fin;
procedimiento TForm1.Button2Click (Sender: TObject); comenzará MyDate.Day:=29; {Escribe a la propiedad Día, utilizando SetDate () que invoca desde el interior DoChange () disparando el evento} end;
fin.
fecha3 unidad;
interfaz utiliza SysUtils, las clases;
TIPO TDate3 = class (TComponent) fday privada, FMonth, FYear: Word; DummyWord: Palabra; {-} — Propiedad de evento
{1} FOnChange: TNotifyEvent; {Sistema de tipo de evento declarado como: Procedimiento (Sender: TObject) del objeto;}
procedimiento protegida setDay (newDay: Word);
{3} DoChange procedimiento; dinámica; {Cuando se invoca desencadena el evento}
Crear constructor público (AOwner: TComponent);
publicada el día propiedad: leer la palabra fday setDay escritura; Mes propiedad: palabra leída FMonth escribir DummyWord; Año propiedad: Palabra leída FYear escribir DummyWord;
{2} propiedad OnChange: TNotifyEvent leer FOnChange escribir FOnChange; fin;
Registro procedimiento;
implementación
Registro procedimiento; comenzará RegisterComponents (â € ~Samplesâ € ™, [TDate3]); fin;
TDate3.Create constructor (AOwner: TComponent); Comience heredado Crear (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, fday); fin;
{4} procedimiento TDate3.SetDay (newDay: Word); {Invoca evento â € “”se cambia día}
Comience fday: = newDay; {Este es el evento para ser notificado}
{4} DoChange; {Esto desencadena el evento invocando su procedimiento asociado

FOnChange (auto) que en realidad es llamar al extremo asignado controlador de eventos};
{3a} TDate3.DoChange procedimiento; Comience si Asignado (FOnChange), entonces FOnChange (auto); {Invoca el controlador de eventos asociados al pasar del inmueble, que ha provocado el evento} end; fin.

“——————————————————————————————————————————————————

panarjamahan Rojongan: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 komponén Firing Kajadian
unit Unit1;
interface
kagunaan
Windows, Messages, SysUtils, Varian, kelas, grafik, kadali, Bentuk, Dialogs,
StdCtrls, Date3;

ngetik TForm1 = kelas (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
prosedur Button1Click (pangirim: TObject);

prosedur MyDateChange (pangirim: TObject); {Pamaké nyatakeun Handler (ngaran nu mana wae nu). Handler disebut lamun â € œOnChangeâ € kajadian dipecat ku komponén MyDate (TDate3)}
prosedur Button2Click (pangirim: TObject);
swasta
{Declarations wasta}
masarakat
{Declarations Public}
tungtung;

var
Form1: TForm1;

palaksanaan
{$ R * .dfm}
prosedur TForm1.Button1Click (pangirim: TObject);
mimiti
MyDate: = TDate3.Create (diri); // Nyusunna TDate3 obyék MyDate.OnChange: = MyDateChange; {Gaul Handler jeung standar â € œOnChangeâ € kajadian}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

tungtung;
prosedur TForm1.myDateChange (pangirim: TObject); {Sabenerna kajadian Handler} dimimitian ShowMessage (â € ~The poé geus changedâ € ™); tungtung;
prosedur TForm1.Button2Click (pangirim: TObject); dimimitian MyDate.Day:=29; {Nyerat ka sipat Day, ngagunakeun SetDate () nu ti jero invokes DoChange () firing kajadian} ahir;
tungtung.
unit Date3;
interface ngagunakeun SysUtils, kelas;
Tipe TDate3 = kelas (TComponent) swasta FDay, FMonth, FYear: Kecap; DummyWord: kecap; {- Kajadian sipat —}
{1} FOnChange: TNotifyEvent; {Sistim tipe kajadian didéklarasikeun minangka: prosedur (pangirim: TObject) obyék;}
SetDay prosedur ditangtayungan (newDay: Kecap);
{3} DoChange prosedur; dinamis; {Lamun invoked kahuruan acara}
constructor umum Jieun (AOwner: TComponent);
diterbitkeun Poé sipat: kecap maca FDay nulis SetDay; Bulan sipat: kecap maca FMonth nulis DummyWord; Taun sipat: kecap maca FYear nulis DummyWord;
{2} sipat OnChange: TNotifyEvent maca FOnChange nulis FOnChange; tungtung;
prosedur ngadaptar;
palaksanaan
prosedur ngadaptar; dimimitian RegisterComponents (â € ~Samplesâ € ™, [TDate3]); tungtung;
constructor TDate3.Create (AOwner: TComponent); Dimimitian diwariskeun Jieun (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); tungtung;
{4} prosedur TDate3.SetDay (newDay: Kecap); {Invokes kajadian â € “”poe ieu robah}
Dimimitian FDay: = newDay; {Ieu acara bisa nyaho}
{4} DoChange; {Ieu kahuruan kajadian ku invoking prosedur anak patali

FOnChange (diri) nu sabenerna nelepon ka ditugaskeun kajadian Handler} ahir;
{3a} prosedur TDate3.DoChange; Dimimitian lamun Nangtukeun (FOnChange) mangka FOnChange (diri); {Invokes patali kajadian Handler bari ngalirkeun eta obyék nu diangkat kajadian} ahir; tungtung.

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Components kurusha Tukio
kitengo Unit1;
interface
matumizi
Madirisha, Ujumbe, SysUtils, Variants, Classes, Graphics, Udhibiti, Fomu, Dialogs,
StdCtrls, Date3;

aina TForm1 = darasa (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
utaratibu Button1Click (Sender: TObject);

utaratibu MyDateChange (Sender: TObject); {User alitangaza handler (jina lolote). Handler inaitwa wakati â € œOnChangeâ € Tukio hilo ni fired kwa MyDate (TDate3) sehemu}
utaratibu Button2Click (Sender: TObject);
Privat
{Private maazimio}
umma
{Maazimio Public}
mwisho;

var
Form1: TForm1;

utekelezaji
{$ .dfm R *}
utaratibu TForm1.Button1Click (Sender: TObject);
kuanza
MyDate: = TDate3.Create (mwenyewe); // Kujenga TDate3 kitu MyDate.OnChange: = MyDateChange; {Mshirika handler kwa kiwango cha â € œOnChangeâ € tukio}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

mwisho;
utaratibu TForm1.myDateChange (Sender: TObject); {Halisi tukio handler} kuanza ShowMessage (â € ~The siku ina changedâ € ™); mwisho;
utaratibu TForm1.Button2Click (Sender: TObject); kuanza MyDate.Day:=29; {Anaandika kwa Day mali, kwa kutumia SetDate () ambayo kutoka ndani waomba DoChange () kurusha tukio} mwisho;
mwisho.
kitengo Date3;
interface anatumia SysUtils, Classes;
TYPE TDate3 = darasa (TComponent) binafsi FDay, FMonth, FYear: Neno; DummyWord: neno; {- Tukio mali —}
{1} FOnChange: TNotifyEvent; {Tukio aina ya mfumo alitangaza kama: utaratibu (Sender: TObject) ya kitu;}
ulinzi utaratibu SetDay (newDay: Neno);
{3} utaratibu DoChange; nguvu; {Wakati kutenguliwa moto tukio}
kuujenga umma Kujenga (AOwner: TComponent);
Siku kuchapishwa mali: neno kusoma FDay kuandika SetDay; mali Mwezi: neno kusoma FMonth kuandika DummyWord; mali Mwaka: neno kusoma FYear kuandika DummyWord;
{2} mali OnChange: TNotifyEvent kusoma FOnChange kuandika FOnChange; mwisho;
utaratibu Daftari;
utekelezaji
utaratibu Daftari; kuanza RegisterComponents (â € ~Samplesâ € ™, [TDate3]); mwisho;
kuujenga TDate3.Create (AOwner: TComponent); Kuanza kurithi Kujenga (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); mwisho;
{4} utaratibu TDate3.SetDay (newDay: Neno); {Waomba tukio â € “”siku ni iliyopita}
Kuanza FDay: = newDay; {Hili ni tukio ili kujulishwa}
{4} DoChange; {Huu moto tukio kwa kutaja utaratibu wake kuhusishwa

FOnChange (mwenyewe) ambayo ni kweli wito kwa ajili ya tukio handler} mwisho;
{3a} utaratibu TDate3.DoChange; Kuanza kama Zoezi (FOnChange) kisha FOnChange (mwenyewe); {Waomba kuhusishwa tukio handler wakati kupita kitu ambayo kukulia tukio} mwisho; mwisho.

“——————————————————————————————————————————————————

Översättningsstöd: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Komponenter Firing Händelse
enheten Unit1;
gränssnitt
användningar
Windows, meddelanden, SysUtils, varianter, klasserna, grafik, kontroller, formulär, dialogrutor,
StdCtrls, Date3;

typ TForm1 = klass (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
förfarande Button1Click (Sender: TObject);

förfarande MyDateChange (Sender: TObject); {Användare förklarade hanterare (något namn). Föraren anropas när â € œOnChangeâ € händelse avfyras av MyDate (TDate3) komponent}
förfarande Button2Click (Sender: TObject);
privat
{Private deklarationer}
offentlig
{public deklarationer}
slutet;

var
Form1: TForm1;

genomförande
{$ R * .dfm}
förfarande TForm1.Button1Click (Sender: TObject);
Börja
MyDate: = TDate3.Create (egen); // Konstruera TDate3 objekt MyDate.OnChange: = MyDateChange; {Associerar hanterare med standard â € œOnChangeâ € event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

slutet;
förfarande TForm1.myDateChange (Sender: TObject); {Faktiska händelsen handler} börja ShowMessage (â € ~The dag har changedâ € ™); slutet;
förfarande TForm1.Button2Click (Sender: TObject); börja MyDate.Day:=29; {Skriver på egendom Day, med hjälp av setdate () som inifrån åberopar DoChange () bränning händelsen} slutet;
slutet.
enheten Date3;
gränssnittet använder SysUtils, klasser;
TYP TDate3 = klass (TComponent) privat FDay, FMonth, FYear: Ord; DummyWord: ord; {- Händelse egendom —}
{1} FOnChange: TNotifyEvent; {Systemets händelse typ deklareras som: förfarande (Sender: TObject) av objekt;}
skyddad förfarande SetDay (Newday: Word);
{3} förfarande DoChange; dynamisk; {När anropas bränder händelsen}
offentlig konstruktören Skapa (AOwner: TComponent);
publicerat egendom Dag: ordet läsa FDay skriv SetDay; egendom månad: ordet läsa FMonth skriva DummyWord; egendom År: ord Läs FYear skriva DummyWord;
{2} egendom OnChange: TNotifyEvent läsa FOnChange skriva FOnChange; slutet;
förfarande Register;
genomförande
förfarande Register; börja RegisterComponents (â € ~Samplesâ € ™, [TDate3]); slutet;
constructor TDate3.Create (AOwner: TComponent); Börja ärftlig Skapa (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); slutet;
{4} förfarande TDate3.SetDay (Newday: Word); {Åberopar händelse â € “”dag ändras}
Börja FDay: = Newday; {Detta är händelsen som ska anmälas}
{4} DoChange; {Detta utlöses händelsen genom att anropa dess tillhörande förfarande

FOnChange (själv) som är faktiskt ringa till den tilldelade händelsehanteraren} ände;
{3a} förfarande TDate3.DoChange; Börja om Tilldelad (FOnChange) sedan FOnChange (själv); {Anropar associerade händelsehanterare medan passerar det föremål som höjde händelsen} slutet; slutet.

“——————————————————————————————————————————————————

Тарҷумаи Дастгирии: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Унсурњои сўзондан Чорабиниҳо
адад Unit1;
интерфейси
истифодаи
Windows, Паёмҳо, SysUtils, Намоиши, Синфҳо, графикӣ, назорат, шаклњои, диалог ва
StdCtrls, Date3;

чоп TForm1 = синф (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Тартиби Button1Click (Интиќолдињанда: TObject);

MyDateChange тартиби (Интиќолдињанда: TObject); {Истифодабаранда эълон handler (ном). Дар Handler номида мешавад, вақте ки як чорабинии € œOnChangeâ € аз тарафи MyDate (TDate3) ҷузъи} холӣ
Тартиби Button2Click (Интиќолдињанда: TObject);
хусусї
{Эъломияҳои хусусӣ}
умумӣ
{Эъломияҳои ҷамъиятии}
Поён;

var
Form1: TForm1;

татбиќи
{$ R * .dfm}
Тартиби TForm1.Button1Click (Интиќолдињанда: TObject);
Оғоз
MyDate: = TDate3.Create (худдорӣ); // Сохтмони TDate3 MyDate.OnChange объекти: = MyDateChange; {Handler шарики бо стандарти чорабинии € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

Поён;
Тартиби TForm1.myDateChange (Интиќолдињанда: TObject); {Handler сурати воқеии} сар ShowMessage (дар як рӯз € ~The changedâ кардааст € ™); Поён;
Тартиби TForm1.Button2Click (Интиќолдињанда: TObject); сар MyDate.Day:=29; {Менависад, ки ба молу мулки рӯз бо истифода аз SetDate (), ки аз даруни мехонад DoChange () сўзондан сурати} охири;
Поён.
адад Date3;
Интерфейси мебарад SysUtils, Синфҳо;
TYPE = TDate3 синф (TComponent) хусусӣ FDay, FMonth, FYear: Word; DummyWord: каломи; {- Молу мулки чорабинии —}
{1} FOnChange: TNotifyEvent; {Системаи навъи чорабинии эълон гардида: тартиби (Интиќолдињанда: TObject) иншооти;}
ҳифз тартиби SetDay (newDay: Каломи);
{3} тартиби DoChange; динамикӣ; {Ҳангоми забҳ сӯхтор сурати}
созандаи давлат Эҷоди (AOwner: TComponent);
нашр Рӯзи амвол: каломи хонда FDay бинавис SetDay; Моҳи амвол: каломи хонда FMonth нависед DummyWord; молу мулки Соли: каломи ро FYear нависед DummyWord;
{2} амволи OnChange: TNotifyEvent хонда FOnChange нависед FOnChange; Поён;
Феҳристи тартиби;
татбиќи
Феҳристи тартиби; сар RegisterComponents (а € ~Samplesâ € ™ [TDate3]); Поён;
TDate3.Create созандаи (AOwner: TComponent); Сар эҷод мерос (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); Поён;
{4} тартиби TDate3.SetDay (newDay: Каломи); {Мехонад чорабинии € «рӯз тағйир}
Оғози FDay: = newDay; {Ин аст, ки чорабинии огоі карда мешавад}
{4} DoChange; {Ин сӯхтор ҳолати аз тарафи худоӣ тартиби алоқаманд он

FOnChange (худдорӣ), ки дар асл даъват ба зиммаи handler чорабинии} охири;
{3а} TDate3.DoChange тартиби; Оғози агар Assigned (FOnChange) он гоҳ FOnChange (худдорӣ); {Мехонад алоқаманд handler сурати ҳангоми гузариш ба он эътироз, ки эҳьё сурати} охири; Поён.

“——————————————————————————————————————————————————

ஆதரவு மொழிபெயர்ப்பு: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 கூறுகள் துப்பாக்கி சூடு நிகழ்வு
அலகு Unit1;
இடைமுகம்
பயன்கள்
விண்டோஸ், செய்திகள், SysUtils, மாறிகள், வகுப்புகள், கிராபிக்ஸ், கட்டுப்பாடுகள், படிவங்கள், உரையாடல்கள்,
StdCtrls, Date3;

தட்டச்சு TForm1 class = (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
நடைமுறை Button1Click (அனுப்புநர்: TObject);

நடைமுறை MyDateChange (அனுப்புநர்: TObject); {பயனர் கையாளுதல் (எந்த பெயர்) அறிவித்தார். € œOnChangeâ € நிகழ்வு ஒரு MyDate (TDate3) கூறு} மூலம் துப்பாக்கி போது ஹேண்ட்லரைச் அழைக்கப்படுகிறது
நடைமுறை Button2Click (அனுப்புநர்: TObject);
தனியார்
{தனியார் அறிவிப்புக்கள்}
பொது
{பொது அறிவிப்புக்கள்}
முடிவுக்கு;

வார்
ஃபார்ம் 1: TForm1;

செயல்படுத்த
{$ ஆர் * .dfm}
நடைமுறை TForm1.Button1Click (அனுப்புநர்: TObject);
தொடங்கும்
MyDate: = TDate3.Create (சுய); // கட்ட TDate3 பொருள் MyDate.OnChange: = MyDateChange; {நிலையான ஒரு € œOnChangeâ € நிகழ்வு இணை கையாளுதல்}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

முடிவுக்கு;
நடைமுறை TForm1.myDateChange (அனுப்புநர்: TObject); {உண்மையான நிகழ்வு கையாளுதல்} தொடங்கும் ShowMessage (ஒரு € ~The நாள் € ™ changedâ வருகிறது); முடிவுக்கு;
நடைமுறை TForm1.Button2Click (அனுப்புநர்: TObject); MyDate.Day:=29 தொடங்க இறுதியில் {SetDate () இது உள்ளே இருந்து DoChange (எழுப்புவதற்கானவையே) நிகழ்வு துப்பாக்கி சூடு பயன்படுத்தி, நாள் சொத்து எழுதுகிறார்};
இறுதியில்.
அலகு Date3;
இடைமுகம் SysUtils, வகுப்புகள் பயன்படுத்துகிறது;
வகை TDate3 class = (TComponent) தனியார் FDay, FMonth, FYear: வார்த்தை; DummyWord: சொல்; {- நிகழ்வு சொத்து —}
{1} FOnChange: TNotifyEvent; {: செயல்முறை: பொருளின் (அனுப்புநர் TObject) போன்ற அமைப்பு நிகழ்வு வகை அறிவித்தார்;}
பாதுகாக்கப்பட்ட நடைமுறை SetDay (newDay: வேர்ட்);
{3} நடைமுறை DoChange; மாறும்; {பிறப்பித்த போது நிகழ்வு சுடுகிறது}
பொது கட்டமைப்பாளருக்கு (AOwner: TComponent) உருவாக்க;
வெளியிடப்பட்ட சொத்து நாள்: வார்த்தை கூட படிக்க FDay எழுத SetDay; சொத்து மாதம்: வார்த்தை FMonth DummyWord எழுத வாசிக்க; சொத்து ஆண்டு: வார்த்தையை வாசிக்க FYear எழுத DummyWord;
{2} சொத்து onchange: FOnChange FOnChange எழுத TNotifyEvent வாசிக்க; முடிவுக்கு;
நடைமுறை பதிவு;
செயல்படுத்த
நடைமுறை பதிவு; RegisterComponents (€ ~Samplesâ € ™, [TDate3] a) தொடங்க முடிவுக்கு;
கட்டமைப்பாளருக்கு TDate3.Create (AOwner: TComponent); மரபுரிமை (AOwner) உருவாக்க தொடங்க
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); முடிவுக்கு;
{4} நடைமுறை TDate3.SetDay (newDay: வேர்ட்); {ஒரு € நிகழ்வு எழுப்புவதற்கானவையே “”நாள் மாற்றப்பட்டது}
FDay டவுன்லோடு ஆக தொடங்கியிருக்கவேண்டும்: = newDay; {இந்த நிகழ்வை அறிவிக்கப்படும் உள்ளது}
{4} DoChange; {இந்த அதன் தொடர்புடைய நடைமுறை நாடுவதன் மூலம் நிகழ்வு சுடுகிறது

FOnChange (சுய) இது உண்மையில் ஒதுக்கப்படும் நிகழ்வு கையாளுதல்} இறுதியில் வைக்கிறேன்;
{3A} நடைமுறை TDate3.DoChange; ஒதுக்கப்பட்ட என்றால் (FOnChange) பின்னர் FOnChange (சுய) தொடங்கும்; இறுதியில் {அது நிகழ்வு எழுப்பிய ஆட்சேபம் செல்லும் போது அழைத்த நிகழ்வு கையாளுதல் தொடர்புடைய}; இறுதியில்.

“——————————————————————————————————————————————————

మద్దతు అనువాదం: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 భాగాలు రెస్యూమ్స్ ఈవెంట్
యూనిట్ Unit1;
ఇంటర్ఫేస్
ఉపయోగాలు
విండోస్, సందేశాలు, SysUtils, వైవిధ్యాలు, క్లాసులు, గ్రాఫిక్స్, నియంత్రణలు, రూపాలు, సంభాషణలు,
StdCtrls, Date3;

టైప్ TForm1 = తరగతి (TForm) BUTTON1: TButton;
MyDate: TDate3;
BUTTON2: TButton;
విధానం Button1Click (పంపినవారు: TObject);

విధానం MyDateChange (పంపినవారు: TObject); {యూజర్ నిర్వహణ (ఏ పేరు) ను ప్రకటించారు. â € œOnChangeâ € ఈవెంట్ MyDate (TDate3) భాగం} కాల్చారని ఉన్నప్పుడు హ్యాండ్లర్ అంటారు
విధానం Button2Click (పంపినవారు: TObject);
ప్రైవేట్
{ప్రైవేటు డిక్లరేషన్లు}
ప్రజా
{పబ్లిక్ డిక్లరేషన్లు}
అంతం;

var
Form1: TForm1;

అమలు
{$ R * .dfm}
విధానం TForm1.Button1Click (పంపినవారు: TObject);
ప్రారంభం
MyDate: = TDate3.Create (స్వీయ); // నిర్మించేందుకు TDate3 వస్తువును MyDate.OnChange: = MyDateChange; {స్టాండర్డ్ A € œOnChangeâ € సంఘటన తో అసోసియేట్ హ్యాండ్లర్}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

అంతం;
విధానం TForm1.myDateChange (పంపినవారు: TObject); {వాస్తవ సంఘటన హ్యాండ్లర్} ShowMessage ప్రారంభం (ఒక € ~The రోజు € ™ changedâ ఉంది); అంతం;
విధానం TForm1.Button2Click (పంపినవారు: TObject); MyDate.Day:=29 మొదలవుతుంది; ముగింపు {SetDate () లోపల నుండి DoChange (లేవనెత్తింది ఇది) కార్యక్రమంలో కాల్పులు ఉపయోగించి, డే ప్రాపర్టీ వ్రాయునప్పుడు};
ముగింపు.
యూనిట్ Date3;
ఇంటర్ఫేస్ SysUtils, క్లాసులు ఉపయోగిస్తుంది;
TYPE TDate3 = తరగతి (TComponent) ప్రైవేట్ FDay, FMonth, FYear: మాట; DummyWord: పదం; {- ఈవెంట్ ప్రాపర్టీ —}
{1} FOnChange: TNotifyEvent; {: విధానం: వస్తువు (పంపినవారు TObject) సిస్టం రకం గా ప్రకటించింది;}
రక్షిత విధానం SetDay (Newday: వర్డ్);
{3} విధానం DoChange; డైనమిక్; {ఆవాహన ఈవెంట్ కాలుస్తుంది}
ప్రజా తయారీదారు (AOwner: TComponent) సృష్టించి;
ప్రచురించిన ప్రాపర్టీ డే: పదాన్ని చదవడానికి FDay వ్రాయండి SetDay; ప్రాపర్టీ నెల: పదాన్ని వ్రాయండి FMonth DummyWord చదవండి; ప్రాపర్టీ ఇయర్: పదం FYear వ్రాయండి DummyWord చదవండి;
{2} ఆస్తిని onChange: TNotifyEvent చదవండి FOnChange వ్రాయండి FOnChange; అంతం;
విధానం నమోదు;
అమలు
విధానం నమోదు; RegisterComponents (ఒక € ~Samplesâ € ™, [TDate3]) మొదలవుతుంది; అంతం;
తయారీదారు TDate3.Create (AOwner: TComponent); వారసత్వంగా (AOwner) సృష్టించండి ప్రారంభం;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); అంతం;
{4} విధానం TDate3.SetDay (Newday: వర్డ్); {€ â ఈవెంట్ లేవనెత్తింది “”రోజు మార్చబడింది}
FDay ప్రారంభం: = Newday; {ఈ ఈవెంట్ తెలియజేయబడుతుంది ఉంది}
{4} DoChange; {ఈ దాని సంబంధం విధానం ప్రేరేపించడం ద్వారా ఈవెంట్ కాలుస్తుంది

FOnChange (స్వీయ) నిజానికి ఈ ఇవ్వబడిన ఈవెంట్ హ్యాండ్లర్} చివర కాల్ ఇది;
{3A} విధానం TDate3.DoChange; అసైన్డ్ ఉంటే (FOnChange) అప్పుడు FOnChange (స్వీయ) ప్రారంభం; ముగింపు {లేవనెత్తింది ఇది లేపిన ఈవెంట్ అభ్యంతరం ప్రయాణిస్తున్న సమయంలో సంఘటన హ్యాండ్లర్ సంబంధం}; ముగింపు.

“——————————————————————————————————————————————————

แปลสนับสนุน: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 องค์ประกอบของเหตุการณ์ยิง
หน่วย Unit1;
อินเตอร์เฟซ
การใช้งาน
หน้าต่างข้อความ SysUtils สายพันธุ์, การศึกษา, กราฟิก, การควบคุมฟอร์มกล่องโต้ตอบ
StdCtrls, DATE3;

พิมพ์ TForm1 = (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
ขั้นตอนการ Button1Click (Sender: TObject);

ขั้นตอน MyDateChange (Sender: TObject); {ผู้ใช้จัดการประกาศ (ชื่อใด ๆ ) จัดการจะถูกเรียกเมื่อ“OnChangeâ€เหตุการณ์ถูกไล่ออกจาก MyDate (TDate3) ส่วนประกอบ}
ขั้นตอน Button2Click (Sender: TObject);
ส่วนตัว
{ประกาศ} เอกชน
สาธารณะ
{} ประกาศสาธารณะ
end;

var
Form1: TForm1;

การดำเนินงาน
{$ R * .dfm}
ขั้นตอน TForm1.Button1Click (Sender: TObject);
เริ่ม
MyDate = TDate3.Create (ตัวเอง); // สร้างวัตถุ TDate3 MyDate.OnChange = MyDateChange; {จัดการเชื่อมโยงกับมาตรฐาน€œOnChangeâ€เหตุการณ์}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

end;
ขั้นตอน TForm1.myDateChange (Sender: TObject); {จัดการเหตุการณ์ที่เกิดขึ้นจริง} เริ่มต้น ShowMessage (วัน€ ~The ได้changed’); end;
ขั้นตอน TForm1.Button2Click (Sender: TObject); เริ่มต้น MyDate.Day:=29; {เขียนไปยังสถานที่ให้บริการวันโดยใช้ SetDate () ซึ่งจากภายในเรียก DoChange () ยิงเหตุการณ์} end;
ปลาย
หน่วย DATE3;
อินเตอร์เฟซที่ใช้ SysUtils เรียน;
ประเภท TDate3 = ระดับ (TComponent) ส่วนตัว FDay, FMonth, FYear: word; DummyWord: คำ; {- ทรัพย์สินเหตุการณ์ —}
{1} FOnChange: TNotifyEvent; {ระบบประเภทเหตุการณ์ประกาศเป็น: ขั้นตอน (Sender: TObject) ของวัตถุ;}
การป้องกันขั้นตอน SetDay (newday: word);
{3} DoChange ขั้นตอน; พลวัต {เมื่อเรียกเหตุการณ์ยิง}
สร้างสาธารณะสร้าง (AOwner: TComponent);
วันที่ตีพิมพ์คุณสมบัติ: คำอ่านเขียน FDay SetDay; เดือนทรัพย์สิน: คำอ่านเขียน FMonth DummyWord; ปีทรัพย์สิน: คำอ่านเขียน FYear DummyWord;
{2} คุณสมบัติ OnChange: TNotifyEvent อ่าน FOnChange เขียน FOnChange; end;
ขั้นตอนการสมัครสมาชิก;
การดำเนินงาน
ขั้นตอนการสมัครสมาชิก; เริ่มต้น RegisterComponents (â€~Samples’ [TDate3]); end;
คอนสตรัค TDate3.Create (AOwner: TComponent); เริ่มต้นการสร้างสืบทอด (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); end;
{4} ขั้นตอน TDate3.SetDay (newday: word); {เรียกเหตุการณ์†“”วันที่มีการเปลี่ยนแปลง}
เริ่มต้น FDay = newday; {นี้เป็นเหตุการณ์ที่จะได้รับการแจ้ง}
{4} DoChange; {นี้เหตุการณ์ความรุนแรงโดยการเรียกขั้นตอนที่เกี่ยวข้อง

FOnChange (ตัวเอง) ซึ่งเป็นจริงการเรียกร้องให้เหตุการณ์ที่ได้รับมอบหมายให้จัดการ} end;
{} 3a TDate3.DoChange ขั้นตอน; ถ้าเริ่มต้นที่ได้รับมอบหมาย (FOnChange) แล้ว FOnChange (ตัวเอง); {ต้องการเรียกเกี่ยวข้องจัดการเหตุการณ์ในขณะที่ผ่านมันวัตถุซึ่งยกเหตุการณ์} end; ปลาย

“——————————————————————————————————————————————————

Destek çeviri: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Bileşenleri Atış Olay
Birim Birimini1;
arayüzey
kullanım
Windows, Messages, SysUtils, varyantlar, Sınıflar, Grafikler, Kontrolleri, Formlar, iletişim kutuları,
StdCtrls, DATE3;

TForm1 = sınıfı (TForm) Button1 yazın: TButton;
MyDate: TDate3;
Button2: TButton;
prosedür Button1Click (Sender: TObject);

Prosedür MyDateChange (Sender: TObject); {Kullanıcı işleyicisi (herhangi bir ad) ilan etti. € œOnChangeâ € olayı â MyDate (TDate3) bileşeni} tarafından ateş edildiğinde Handler denir
prosedür Button2Click (Sender: TObject);
özel
{Özel bildirimleri}
halka açık
{Kamu bildirimleri}
son;

var
Form1: TForm1;

uygulama
{$ R * Dfm}
procedure TForm1.Button1Click (Sender: TObject);
başla
MyDate: = TDate3.Create (serbest meslek); // TDate3 nesne MyDate.OnChange inşa: = MyDateChange; {Standart â € œOnChangeâ € olayla ilişkilendirmek işleyicisi}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

son;
prosedür TForm1.myDateChange (Sender: TObject); {Gerçek olay işleyicisi} ShowMessage başlar (€ ~The gün € ™ changedâ olan â); son;
prosedür TForm1.Button2Click (Sender: TObject); MyDate.Day:=29~~dobj başlar; sonuna {içeriden olay ateş) DoChange (çağırır setDate () kullanarak, Gün özelliğine yazar};
son.
Birim DATE3;
arayüz sysutils, sınıfları kullanır;
TİP TDate3 = sınıfı (TComponent) özel FDay, FMonth, FYear: Kelime; DummyWord: sözcük; {- Olay özelliği —}
{1} FOnChange: TNotifyEvent; {Nesne: (TObject Sender) prosedürü, sistem olay türü olarak ilan;}
korumalı prosedür SetDay (newday: Word);
{3} prosedürü DoChange; dinamik; {Çağrıldığında olayı harekete}
Kamu yapıcı (Aowner: TComponent) oluşturun;
yayınlanan özellik Gün: kelime okuma FDay yazma SetDay; mülkiyet Ay: kelime DummyWord yazmak FMonth okuma; mülkiyet Yıl: kelime FYear DummyWord yazma okuma;
{2} özellik OnChange: TNotifyEvent FOnChange FOnChange bilgileri okumak; son;
prosedür Ol;
uygulama
prosedür Ol; (€ ~Samplesâ € ™ [TDate3] â) RegisterComponents başlar; son;
Yapıcı TDate3.Create (Aowner: TComponent); (Aowner) oluşturma miras başlayın;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); son;
{4} prosedür TDate3.SetDay (newday: Word); {Gün değişir â € “”olayı çağırır}
FDay başlayın: = newday; {Bu olay haberdar olmaktır}
{4} DoChange; {Bu ilişkili prosedürü çağırarak olayı harekete

FOnChange atanan olay işleyicisi} sonuna kadar çağrı aslında (serbest meslek);
{3a} prosedür TDate3.DoChange; (FOnChange) sonra FOnChange (serbest meslek) Atanan eğer başlayın; sonuna {olay büyüdü hangi nesne geçerken çağıran olay işleyicisi ilişkili}; son.

“——————————————————————————————————————————————————

переклад Підтримка: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Компоненти для розпалювання подій
Блок Unit1;
інтерфейс
використання
Вікна, Повідомлення, SysUtils, варіанти, класи, графіки, управління, форми, Діалоги,
StdCtrls, Date3;

тип TForm1 = клас (TFORM) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Процедура Button1Click (Sender: TObject);

Процедура MyDateChange (Sender: TObject); {Користувач оголошений обробник (будь-яке ім’я). Оброблювач викликається, коли â € œOnChangeâ € подія викликається по MyDate (TDate3) компонента}
Процедура Button2Click (Sender: TObject);
приватний
{} Приватні декларації
громадськості
{} Публічних декларацій
кінець;

вар
Form1: TForm1;

реалізація
{$ R * .dfm}
Процедура TForm1.Button1Click (Sender: TObject);
почати
MyDate: = TDate3.Create (само); // Побудувати TDate3 об’єкт MyDate.OnChange: = MyDateChange; {Порівнювати обробник зі стандартним â € œOnChangeâ € подія}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.month)):
ShowMessage (IntToStr (today.Year)):

кінець;
Процедура TForm1.myDateChange (Sender: TObject); {Фактичний обробник подій} почати ShowMessage (â € ~ The день changedâ € ™); кінець;
Процедура TForm1.Button2Click (Sender: TObject); починають MyDate.Day:=29~~dobj; {Пише власність день, використовуючи SETDATE (), який зсередини викликає DoChange () випал подія} кінець;
кінець.
Блок Date3;
інтерфейс використовує SysUtils, класи;
ТИП TDate3 = клас (ТСотропепЬ) приватна FDay, FMonth, FYear: Word; DummyWord: слово; {- Властивість події —}
{1} FOnChange: TNotifyEvent; {Система тип події оголошений як: процедура (Sender: TObject) об’єкта;}
захищена процедура SetDay (NewDay: Word);
{3} процедура DoChange; динамічний; {Коли Ви телефонуєте запускає подія}
відкритий конструктор Create (AOwner: TComponent);
опубліковані День власності: слово читання FDay записи SetDay; Властивість місяць: прочитане слово FMonth написати DummyWord; Властивість Рік: слово читати FYear писати DummyWord;
{2} властивість OnChange: TNotifyEvent читання FOnChange написати FOnChange; кінець;
Процедура реєстрації;
реалізація
Процедура реєстрації; починають RegisterComponents (â € ~ Samplesâ € ™, [TDate3]); кінець;
Конструктор TDate3.Create (AOwner: ТСотропепЬ); Початок успадкували Створити (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); кінець;
{4} процедура TDate3.SetDay (NewDay: Word); {Викликає подія â € “”день змінюється}
Початок FDay: = NewDay; {Ця подія, щоб отримувати повідомлення}
{4} DoChange; {Це запускає подія, викликавши пов’язану з ним процедуру

FOnChange (Я), яка насправді зателефонувати в Обробник події} кінця;
{3a} процедура TDate3.DoChange; Почніть, якщо Assigned (FOnChange), то FOnChange (само); {Викликає пов’язаний обробник події під час проходження його об’єкт, який викликав подія} кінець; кінець.

“——————————————————————————————————————————————————

سپورٹ ترجمہ: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 اجزاء فائرنگ واقعہ
یونٹ Unit1؛
انٹرفیس
استعمالات
ونڈوز، پیغامات، SysUtils، متغیرات، کلاسز، گرافکس، کنٹرول، فارم، مکالمے،
StdCtrls، Date3؛

ٹائپ TForm1 = کلاس (TForm) BUTTON1: TButton؛
MyDate: TDate3؛
BUTTON2: TButton؛
ضابطے کی Button1Click (مرسل: TObject)؛

ضابطے کی MyDateChange (مرسل: TObject)؛ {صارف ہینڈلر (کسی کا نام) کا اعلان کر دیا. € œOnChangeâ € واقعہ ایک MyDate (TDate3) جزو} کی طرف سے فائرنگ کی ہے جب ہینڈلر کہا جاتا ہے
ضابطے کی Button2Click (مرسل: TObject)؛
نجی
{نجی ڈیکلیریشنز}
عوام
{عوامی ڈیکلیریشنز}
آخر؛

متغیر
Form1: TForm1؛

عمل درآمد
{$ R * .dfm}
ضابطے کی TForm1.Button1Click (مرسل: TObject)؛
شروع
MyDate: = TDate3.Create (خود)؛ // تعمیر TDate3 اعتراض MyDate.OnChange: = MyDateChange؛ {معیاری â € œOnChangeâ € ایونٹ کے ساتھ ایسوسی ایٹ ہینڈلر}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

آخر؛
ضابطے کی TForm1.myDateChange (مرسل: TObject)؛ {اصل ایونٹ ہینڈلر} ShowMessage شروع (€ ~The دن € ™ changedâ ایک)؛ آخر؛
ضابطے کی TForm1.Button2Click (مرسل: TObject)؛ MyDate.Day:=29 شروع؛ {، یوم املاک کو لکھتے SetDate () اندر سے DoChange (پکارتا ہے جس) ایونٹ فائرنگ کا استعمال کرتے ہوئے} آخر؛
آخر میں.
یونٹ Date3؛
انٹرفیس SysUtils، کلاسز استعمال کرتا ہے؛
TYPE TDate3 = کلاس (TComponent) نجی FDay، FMonth، FYear: لفظ؛ DummyWord: لفظ؛ {- واقعہ جائیداد —}
{1} FOnChange: TNotifyEvent؛ {: طریقہ کار نظام کے طور پر اعلان کیا واقعہ کی قسم (مرسل: TObject) اعتراض کی؛}
محفوظ طریقہ کار SetDay (Newday کی: لفظ)؛
{3} کا طریقہ کار DoChange؛ متحرک؛ {چلائے جانے کے واقعہ آگ}
پبلک تعمیر (AOwner: TComponent) بنائیں؛
شائع جائیداد دن: لفظ پڑھ FDay لکھنے SetDay؛ جائیداد مہینہ: لفظ FMonth DummyWord لکھ پڑھ؛ جائیداد سال: لفظ FYear پڑھ لکھ DummyWord؛
{2} جائیداد OnChange: TNotifyEvent FOnChange لکھ FOnChange پڑھ؛ آخر؛
طریقہ کار رجسٹر؛
عمل درآمد
طریقہ کار رجسٹر؛ RegisterComponents (€ ~Samplesâ € ™، [TDate3] ا) شروع؛ آخر؛
ڈویلپر TDate3.Create (AOwner: TComponent)؛ شروع وراثت میں بنائیں (AOwner)؛
DecodeDate (SysUtils.Date، FYear، FMonth، FDay)؛ آخر؛
{4} کا طریقہ کار TDate3.SetDay (Newday کی: لفظ)؛ {€ â ایونٹ پکارتا “”دن کو تبدیل کر دیا جاتا ہے}
FDay شروع کریں: = Newday کی؛ {اس ایونٹ کو مطلع کیا جائے کے لئے ہے}
{4} DoChange؛ {اس اس کے متعلقہ طریقہ کار invoking کی طرف سے واقعہ کی آگ

FOnChange (خود) اصل میں تفویض ایونٹ ہینڈلر} اختتام کرنے کے لئے فون ہے جس میں؛
{3A} کا طریقہ کار TDate3.DoChange؛ اگر (FOnChange) پھر FOnChange (خود) تفویض شروع؛ اختتام {یہ اعتراض جس واقعہ کو اٹھایا منظور کرتے وقت پکارتا ایونٹ ہینڈلر منسلک}؛ آخر میں.

“——————————————————————————————————————————————————

Support tarjima: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 komponentlar otishma Voqealar
birligi Unit1;
interfeysi
foydalanish
Windows, Xabarlar, SysUtils, Variants, sinflar, Grafika, elementlari, shakllar, dialoglari,
StdCtrls, Date3;

TForm1 = sinf (TForm) Button1 kiriting: TButton;
Mydate: TDate3;
Button2: TButton;
tartibi Button1Click (sanasi: TObject);

tartibi MyDateChange (sanasi: TObject); {Foydalanuvchi işleyici (har qanday ism) deb e’lon qildi. € œOnChangeâ € tadbir â mydate (TDate3) tarkibiy qismi} o’chog’idan qachon xanda deb ataladi
tartibi Button2Click (sanasi: TObject);
shaxsiy
{Xususiy deklaratsiyalari}
ijtimoiy
{Public deklaratsiyalari}
oxiri;

var
Form1: TForm1;

amalga oshirish
{$ R * .dfm}
tartibi TForm1.Button1Click (sanasi: TObject);
boshlash
Mydate: = TDate3.Create (o’zini); // TDate3 ob’ekt MyDate.OnChange qurish: = MyDateChange; {Standart â € œOnChangeâ € tadbir bilan sherik qilish moslamasining}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

oxiri;
tartibi TForm1.myDateChange (sanasi: TObject); {Dolzarb voqea işleyici} ShowMessage boshlanadi (€ ~The kun € ™ changedâ qildi â); oxiri;
tartibi TForm1.Button2Click (sanasi: TObject); MyDate.Day:=29~~dobj boshlanadi; oxiri {ichidan voqea otishib) DoChange (iltijo SetDate () foydalanib, kun mulkiga yozadi};
oxiri.
birligi Date3;
interfeysi SysUtils, sinflar foydalanadi;
TYPE TDate3 = sinf (TComponent) xususiy FDay, FMonth, FYear: Word; DummyWord: so’z; {- Tadbir mulk —}
{1} FOnChange: TNotifyEvent; {Ob’ekt: (TObject jo) tartibi tizimi voqea turi deb e’lon;}
himoyalangan tartibi SetDay (newDay: Word);
{3} tartibi DoChange; dinamik; {Duo qachon voqea isitmalab}
davlat konstruktor (AOwner: TComponent) yaratish;
chop mulk kuni: word o’qib FDay yozish SetDay; mulk Oy: word DummyWord yozish FMonth o’qib; mulk yili: word FYear DummyWord yozish o’qish;
{2} mulk OnChange: TNotifyEvent FOnChange FOnChange yozish o’qib; oxiri;
tartibi Ro’yxatdan o’tish;
amalga oshirish
tartibi Ro’yxatdan o’tish; (€ ~Samplesâ € ™, [TDate3] â) RegisterComponents boshlanadi; oxiri;
konstruktor TDate3.Create (AOwner: TComponent); (AOwner) yaratish meros qilib boshlash;
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); oxiri;
{4} tartibi TDate3.SetDay (newDay: Word); {Kuni o’zgartirildi “”â € tadbir iltijo}
FDay boshlanadi: = newDay; {Bu voqea xabardor qilinadi}
{4} DoChange; {Bu uning bog’liq tartib-chaqirib voqea harakatga

FOnChange tayinlangan voqea işleyici} oxirigacha qo’ng’iroq aslida (o’zini);
{3a} tartibi TDate3.DoChange; (FOnChange) keyin FOnChange (o’zini) Xizmatdan bo’lsa boshlang; oxiri {bu voqea ko’tardi qaysi e’tiroz o’tayotganda chaqiradi voqea işleyicisi bog’liq}; oxiri.

“——————————————————————————————————————————————————

Hỗ trợ dịch thuật: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Linh kiện Firing tổ chức sự kiện
đơn vị Unit1;
giao diện
sử dụng
Windows, Messages, SysUtils, biến thể, lớp học, Graphics, Controls, Forms, Dialogs,
StdCtrls, Date3;

gõ TForm1 = class (TForm) Button1: TButton;
Chứa ngày: TDate3;
Button2: TButton;
thủ tục Button1Click (Tên người gửi: TObject);

MyDateChange thủ tục (Tên người gửi: TObject); {User tuyên bố xử lý (bất kỳ tên). Các Handler được gọi khi â € € œOnChangeâ sự kiện là bắn bởi chứa ngày (TDate3) thành phần}
thủ tục Button2Click (Tên người gửi: TObject);
riêng tư
{Tờ khai cá nhân}
công cộng
{Khai công}
kết thúc;

var
Form1: TForm1;

thực hiện
{$ R * .dfm}
thủ tục TForm1.Button1Click (Tên người gửi: TObject);
bắt đầu
Chứa ngày: = TDate3.Create (tự); // Xây dựng TDate3 đối tượng MyDate.OnChange: = MyDateChange; {Xử lý kết hợp với các tiêu chuẩn, â € € œOnChangeâ event}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

kết thúc;
thủ tục TForm1.myDateChange (Tên người gửi: TObject); {Xử lý sự kiện thực tế} bắt đầu ShowMessage (â € ~The ngày đã changedâ € ™); kết thúc;
thủ tục TForm1.Button2Click (Tên người gửi: TObject); bắt đầu MyDate.Day:=29; {Ghi vào tài sản ngày, sử dụng SetDate () mà từ bên trong gọi DoChange () bắn các sự kiện} end;
kết thúc.
đơn vị Date3;
Giao diện sử dụng SysUtils, Lớp học;
TYPE TDate3 = class (TComponent) tin FDay, FMonth, FYear: Word; DummyWord: word; {- Sở hữu sự kiện —}
{1} FOnChange: TNotifyEvent; {Hệ thống loại sự kiện khai báo là: thủ tục (Tên người gửi: TObject) của đối tượng;}
SetDay thủ tục bảo vệ (Newday: Word);
{3} DoChange thủ tục; năng động; {Khi gọi bắn sự kiện}
xây dựng công Tạo (AOwner: TComponent);
Ngày tài sản được công bố: từ đọc FDay ghi SetDay; Tháng sở hữu: từ đọc FMonth viết DummyWord; bất động sản năm: từ đọc FYear viết DummyWord;
{2} tính onchange: TNotifyEvent đọc FOnChange viết FOnChange; kết thúc;
thủ tục đăng ký;
thực hiện
thủ tục đăng ký; bắt đầu RegisterComponents (â € ~Samplesâ € ™, [TDate3]); kết thúc;
TDate3.Create constructor (AOwner: TComponent); Bắt đầu thừa kế Tạo (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); kết thúc;
{4} thủ tục TDate3.SetDay (Newday: Word); {Gọi sự kiện â € “”ngày được thay đổi}
Bắt đầu FDay: = Newday; {Đây là sự kiện để được thông báo}
{4} DoChange; {Này bắn ra sự kiện này bằng cách gọi thủ tục liên quan

FOnChange (tự) mà thực sự là gọi điện để xử lý sự kiện giao} end;
{3a} thủ tục TDate3.DoChange; Bắt đầu nếu Assigned (FOnChange) sau đó FOnChange (tự); {Gọi liên quan xử lý sự kiện trong khi đi qua nó phản đối nâng sự kiện} end; kết thúc.

“——————————————————————————————————————————————————

cyfieithu Cymorth: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 Cydrannau Digwyddiad Tanio
uned Unit1;
rhyngwyneb
defnyddiau
Windows, Negeseuon, SysUtils, Amrywiadau, Dosbarthiadau, Graffeg, Rheolaethau, Ffurflenni, Dadlau,
StdCtrls, Date3;

teipiwch TForm1 = ddosbarth (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
gweithdrefn Button1Click (Anfonwyd gan: TObject);

gweithdrefn MyDateChange (Anfonwyd gan: TObject); {Triniwr (unrhyw enw) Datganodd y defnyddiwr. Gelwir y Triniwr yw pan fydd y digwyddiad € œOnChangeâ € cael ei danio gan y MyDate (TDate3) cydran}
gweithdrefn Button2Click (Anfonwyd gan: TObject);
preifat
{Datganiadau preifat}
cyhoeddus
{Datganiadau cyhoeddus}
ben;

var
Form1: TForm1;

gweithredu
{$ R * .dfm}
gweithdrefn TForm1.Button1Click (Anfonwyd gan: TObject);
dechrau
MyDate: = TDate3.Create (hunan); // Adeiladu TDate3 MyDate.OnChange gwrthrych: = MyDateChange; {Triniwr cysylltiol gyda’r safon digwyddiad € œOnChangeâ €}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

ben;
gweithdrefn TForm1.myDateChange (Anfonwyd gan: TObject); {Gwirioneddol triniwr digwyddiad} dechrau ShowMessage (â € ~The dydd wedi changedâ € ™); ben;
gweithdrefn TForm1.Button2Click (Anfonwyd gan: TObject); dechrau MyDate.Day:=29; {Ysgrifennu i eiddo Day, gan ddefnyddio SetDate () sydd o’r tu mewn yn ennyn DoChange () tanio’r digwyddiad} pen;
diwedd.
uned Date3;
rhyngwyneb yn defnyddio SysUtils, Dosbarthiadau;
MATH TDate3 = ddosbarth (TComponent) preifat FDay, FMonth, FYear: Word; DummyWord: gair; {- Eiddo digwyddiad —}
{1} FOnChange: TNotifyEvent; {System Math o ddigwyddiad datgan fel: y weithdrefn (Anfonwyd gan: TObject) o’r gwrthrych;}
weithdrefn a ddiogelir SetDay (Newday: Word);
{3} trefn DoChange; dynamig; {Pan galw i rym tanau digwyddiad}
Constructor cyhoeddus Creu (AOwner: TComponent);
Diwrnod eiddo cyhoeddi: gair darllen SetDay ysgrifennu FDay; Mis eiddo: gair darllen FMonth ysgrifennu DummyWord; eiddo Blwyddyn: gair darllenwch FYear ysgrifennu DummyWord;
{2} eiddo OnChange: TNotifyEvent darllen FOnChange ysgrifennu FOnChange; ben;
Cofrestr weithdrefn;
gweithredu
Cofrestr weithdrefn; dechrau RegisterComponents (â € ~Samplesâ € ™, [TDate3]); ben;
TDate3.Create Constructor (AOwner: TComponent); Dechrau etifeddwyd Creu (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); ben;
{4} weithdrefn TDate3.SetDay (Newday: Word); {Ennyn digwyddiad â € “”dydd yn cael ei newid}
Dechrau FDay: = Newday; {Dyma’r digwyddiad i gael ei hysbysu}
{4} DoChange; {Mae hyn yn tanio y digwyddiad drwy ennyn ei weithdrefn cysylltiedig

FOnChange (hunan) sydd mewn gwirionedd yn galw i’r trafodwr digwyddiad a neilltuwyd} pen;
{} 3a trefn TDate3.DoChange; Dechrau os Neilltuol (FOnChange) yna FOnChange (hunan); {Ennyn cysylltiedig triniwr digwyddiad tra’n drosglwyddo wrthwynebu a gododd y digwyddiad} pen; diwedd.

“——————————————————————————————————————————————————

translation Support: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 lokuziKhethela, ukudutyulwa Indawo
unit Unit1;
ujongano
setyenziso
Windows, Imiyalezo, SysUtils, wobeko, Classes, Graphics, Controls, Forms, Iinketho,
StdCtrls, Date3;

ukuchwetheza TForm1 = eklasini (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Inkqubo Button1Click (Sender: TObject);

inkqubo MyDateChange (Sender: TObject); {Umsebenzisi wathi Umqheba (naliphi igama). Ukwehlela kuthiwa xa â € œOnChangeâ € siganeko evuthiswe le MyDate (TDate3) Icandelo}
Inkqubo Button2Click (Sender: TObject);
abucala
{Kwizibhengezo Private}
kawonke wonke
{Kwizibhengezo}
isiphelo;

var
Form1: TForm1;

nokuphunyezwa
{$ R * .dfm}
Inkqubo TForm1.Button1Click (Sender: TObject);
qala
MyDate: = TDate3.Create (abanye); // Ukwakha TDate3 into MyDate.OnChange: = MyDateChange; {Umqheba unxulumane â umgangatho € œOnChangeâ € isiganeko}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

isiphelo;
Inkqubo TForm1.myDateChange (Sender: TObject); {Umqheba isiganeko Eyona} kuqala ShowMessage (â € ~The imini changedâ € ™); isiphelo;
Inkqubo TForm1.Button2Click (Sender: TObject); kuqala MyDate.Day:=29; {Ubhala kwipropati Day, usebenzisa SetDate () apho phakathi usebenzisa DoChange () badubul isiganeko} ekupheleni;
isiphelo.
unit Date3;
ujongano usebenzisa SysUtils, Classes;
UHLOBO TDate3 = eklasini (TComponent) yabucala FDay, FMonth, FYear: iLizwi; DummyWord: igama; {- Ipropati isiganeko —}
{1} FOnChange: TNotifyEvent; {Inkqubo uhlobo isiganeko lubhengezwe: inkqubo (Sender: TObject) wento;}
akhuselwe inkqubo SetDay (newDay: Word);
{3} DoChange inkqubo; olutshintshatshintshayo; {Xa ibheniswa nemililo isiganeko}
umbangi loluntu Yenza (AOwner: TComponent);
Propati Usuku epapashwe: igama funda FDay bhala SetDay; Inyanga ipropati: igama funda FMonth ukubhala DummyWord; Unyaka ipropati: Funda igama FYear bhala DummyWord;
{2} ipropati OnChange: TNotifyEvent funda FOnChange ukubhala FOnChange; isiphelo;
inkqubo Register;
nokuphunyezwa
inkqubo Register; kuqala RegisterComponents (â € ~Samplesâ € ™, [TDate3]); isiphelo;
umbangi TDate3.Create (AOwner: TComponent); Qala ilifa Yenza (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); isiphelo;
{4} inkqubo TDate3.SetDay (newDay: Word); {Usebenzisa isiganeko â € “”imini itshintswa}
Qala FDay: = newDay; {Esi siganeko aziswe}
{4} DoChange; {Oku nemililo isiganeko esebenzisa inkqubo yaso ezinxulumene

FOnChange (ziyazihlawula ngokwazo) leyo bamemeze kubo ophatha isiganeko owabelwe} ekupheleni;
{3A} inkqubo TDate3.DoChange; Qala ukuba owabelwa (FOnChange) ngoko FOnChange (abanye); {UMboneleli ezinxulumene Umqheba isiganeko xa edlula ngayo into awasimisayo isiganeko} ekupheleni; isiphelo.

“——————————————————————————————————————————————————

שטיצן איבערזעצונג: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

ט22-23 קאַמפּאָונאַנץ פירינג געשעעניש
אַפּאַראַט וניט1;
צובינד
ניצט
פֿענצטער, אַרטיקלען, סיסוטילס, וועריאַנץ, קלאסן, Graphics, קאָנטראָלס, Forms, דיאַלאָגס,
סטדקטרלס, דאַטע3;

טיפּ טפאָרמ1 = קלאַס (טפאָרם) בוטטאָנ1: טבוטטאָן;
מידאַטע: טדאַטע3;
בוטטאָנ2: טבוטטאָן;
פּראָצעדור בוטטאָנ1קליקק (סענדער: טאָבדזשעקט);

פּראָצעדור מידאַטעטשאַנגע (סענדער: טאָבדזשעקט); {באַניצער דערקלערט האַנדלער (קיין נאָמען). די האַנדלער איז גערופֿן ווען אַ € œאָנטשאַנגעâ € געשעעניש איז FIRED דורך די מידאַטע (טדאַטע3) קאָמפּאָנענט}
פּראָצעדור בוטטאָנ2קליקק (סענדער: טאָבדזשעקט);
פּריוואַט
{פּריוואַט דעקלעריישאַנז}
עפנטלעך
{ציבור דעקלעריישאַנז}
סוף;

וואַר
פאָרמ1: טפאָרמ1;

ימפּלאַמענטיישאַן
{$ ר * .דפם}
פּראָצעדור טפאָרמ1.בוטטאָנ1קליקק (סענדער: טאָבדזשעקט);
אָנהייבן
מידאַטע: = טדאַטע3.קרעאַטע (אַליינ); // בויען טדאַטע3 כייפעץ מידאַטע.אָנטשאַנגע: = מידאַטעטשאַנגע; {מיטאַרבעטער האַנדלער מיט די סטאַנדאַרט אַ € œאָנטשאַנגעâ € געשעעניש}
שאָוומעססאַגע (ינטטאָסטר (today.Day)):
שאָוומעססאַגע (ינטטאָסטר (טאָדייַ.מאָנטה)):
שאָוומעססאַגע (ינטטאָסטר (טאָדייַ.יעאַר)):

סוף;
פּראָצעדור טפאָרמ1.מידאַטעטשאַנגע (סענדער: טאָבדזשעקט); {פאַקטיש געשעעניש האַנדלער} נעמען שאָוומעססאַגע (אַ € ~טהע טאָג האט טשאַנגעדâ € ™); סוף;
פּראָצעדור טפאָרמ1.בוטטאָנ2קליקק (סענדער: טאָבדזשעקט); נעמען MyDate.Day:=29; {שרייבט צו טאָג פאַרמאָג, ניצן סעטדאַטע () וואָס פֿון אינעווייניק ינוואָוקס דאָטשאַנגע () פירינג די געשעעניש} סוף;
סוף.
אַפּאַראַט דאַטע3;
צובינד ניצט סיסוטילס, קלאסן;
טיפּ טדאַטע3 = קלאַס (טקאָמפּאָנענט) פּריוואַט פדייַ, פמאָנטה, פיעאַר: וואָרט; דוממיוואָרד: וואָרט; {- געשעעניש פאַרמאָג —}
{1} פאָנטשאַנגע: טנאָטיפיעווענט; {סיסטעם געשעעניש טיפּ דערקלערט ווי: פּראָצעדור (סענדער: טאָבדזשעקט) פון כייפעץ;}
פּראָטעקטעד פּראָצעדור סעטדייַ (נעוודייַ: וואָרט);
{3} פּראָצעדור דאָטשאַנגע; דינאַמיש; {ווען ינוואָוקט Fires די געשעעניש}
עפנטלעך קאַנסטראַקטער שאַפֿן (אַאָוונער: טקאָמפּאָנענט);
ארויס פאַרמאָג טאָג: וואָרט לייענען פדייַ שרייַבן סעטדייַ; פאַרמאָג חודש: וואָרט לייענען פמאָנטה שרייַבן דוממיוואָרד; פאַרמאָג יאָר: וואָרט לייענען פיעאַר שרייַבן דוממיוואָרד;
{2} פאַרמאָג אָנטשאַנגע: טנאָטיפיעווענט לייענען פאָנטשאַנגע שרייַבן פאָנטשאַנגע; סוף;
פּראָצעדור רעגיסטרירן;
ימפּלאַמענטיישאַן
פּראָצעדור רעגיסטרירן; נעמען רעגיסטערקאָמפּאָנענץ (אַ € ~סאַמפּלעסâ € ™ [טדאַטע3]); סוף;
קאַנסטראַקטער טדאַטע3.קרעאַטע (אַאָוונער: טקאָמפּאָנענט); נעמען ינכעראַטיד שאַפֿן (אַאָוונער);
דעקאָדעדאַטע (SysUtils.Date, פיעאַר, פמאָנטה, פדייַ); סוף;
{4} פּראָצעדור טדאַטע3.סעטדייַ (נעוודייַ: וואָרט); {ינוואָוקס געשעעניש אַ € “”טאָג איז געביטן}
נעמען פדייַ: = נעוודייַ; {דעם איז די געשעעניש צו זיין נאָטיפיעד}
{4} דאָטשאַנגע; {דעם Fires די געשעעניש דורך ינוואָוקינג זייַן פֿאַרבונדן פּראָצעדור

פאָנטשאַנגע (אַליינ) וואָס איז אַקטשאַוואַלי רופן צו די אַסיינד געשעעניש האַנדלער} סוף;
{3a} פּראָצעדור טדאַטע3.דאָטשאַנגע; אָנהייבן אויב אַסיינד (פאָנטשאַנגע) דעריבער פאָנטשאַנגע (אַליינ); {ינוואָוקס פֿאַרבונדן געשעעניש האַנדלער בשעת פּאַסינג עס כייפעץ וואָס האט די געשעעניש} סוף; סוף.

“——————————————————————————————————————————————————

Support translation: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 irinše ibọn ti oyan
kuro Unit1;
ni wiwo
ipawo
Windows, Awọn ifiranṣẹ, SysUtils, Variants, Classes, Graphics, Isakoso, Fọọmù, itakurọsọ,
StdCtrls, Date3;

tẹ TForm1 = kilasi (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
ilana Button1Click (Sender: TObject);

ilana MyDateChange (Sender: TObject); {Olumulo hàn imudani (eyikeyi orukọ). Awọn Handler ni a npe ni nigba ti â € œOnChangeâ € iṣẹlẹ ti wa ni kuro lenu ise nipa awọn MyDate (TDate3) paati}
ilana Button2Click (Sender: TObject);
ikọkọ
{Private declarations}
àkọsílẹ
{Public declarations}
mu;

var
Form1: TForm1;

imuse
{$ R * .dfm}
ilana TForm1.Button1Click (Sender: TObject);
bẹrẹ
MyDate: = TDate3.Create (ara); // Òrùka TDate3 ohun MyDate.OnChange: = MyDateChange; {Láti imudani pẹlu awọn boṣewa â € œOnChangeâ € iṣẹlẹ}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

mu;
ilana TForm1.myDateChange (Sender: TObject); {Gangan iṣẹlẹ imudani} bẹrẹ ShowMessage (â € ~The ọjọ ti changedâ € ™); mu;
ilana TForm1.Button2Click (Sender: TObject); bẹrẹ MyDate.Day:=29; {Levin to Day ohun ini, lilo SetDate () eyi ti lati inu invokes DoChange () ibọn awọn iṣẹlẹ} opin;
opin.
kuro Date3;
ni wiwo nlo SysUtils, Classes;
TYPE TDate3 = kilasi (TComponent) ikọkọ FDay, FMonth, FYear: Ọrọ; DummyWord: ọrọ; {- Iṣẹlẹ ini —}
{1} FOnChange: TNotifyEvent; {Eto iṣẹlẹ iru polongo bi: ilana (Sender: TObject) ti ohun;}
ni idaabobo ilana SetDay (newDay: Ọrọ);
{3} ilana DoChange; ìmúdàgba; {Nigbati invoked ina awọn iṣẹlẹ}
àkọsílẹ Constructor Ṣẹda (AOwner: TComponent);
atejade ini Day: ọrọ ka FDay Kọ SetDay; ini osù: ọrọ ka FMonth kọ DummyWord; ini Ọdún: ọrọ ka FYear kọ DummyWord;
{2} ini OnChange: TNotifyEvent ka FOnChange kọ FOnChange; mu;
ilana Register;
imuse
ilana Register; bẹrẹ RegisterComponents (â € ~Samplesâ € ™, [TDate3]); mu;
Constructor TDate3.Create (AOwner: TComponent); Bẹrẹ jogun Ṣẹda (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); mu;
{4} ilana TDate3.SetDay (newDay: Ọrọ); {Invokes iṣẹlẹ â € “”ọjọ ti wa ni yi pada}
Bẹrẹ FDay: = newDay; {Yi ni awọn iṣẹlẹ to wa ni ifitonileti}
{4} DoChange; {Yi ina awọn iṣẹlẹ nipa invoking awọn oniwe-ni nkan ilana

FOnChange (ara) ti o jẹ kosi pe si awọn sọtọ iṣẹlẹ imudani} opin;
{3A} ilana TDate3.DoChange; Bẹrẹ ti o ba ti sọtọ (FOnChange) ki o si FOnChange (ara); {Invokes ni nkan iṣẹlẹ imudani nigba ti ran o nkán eyi ti o dide awọn iṣẹlẹ} opin; opin.

“——————————————————————————————————————————————————

translation ukweseka: http://amzn.to/1Z7d5oc
——————————————————————————————————————————————————

T22-23 zoHlelo Kokudubula Izinkundla
iyunithi Unit1;
isikhombikubona
kusebenzisa
Windows, Imilayezo, SysUtils, okwahlukile, Amakilasi, Graphics, Controls, Amafomu, izingxoxo,
StdCtrls, Date3;

thayipha TForm1 = class (TForm) Button1: TButton;
MyDate: TDate3;
Button2: TButton;
Inqubo Button1Click (Sender: TObject);

Inqubo MyDateChange (Sender: TObject); {Umsebenzisi wamemezela isibambi (iliphi igama). I Handler ubizwa ngokuthi lapho â € œOnChangeâ € umcimbi yenzelwa by MyDate (TDate3) uphiko}
Inqubo Button2Click (Sender: TObject);
yangasese
{Memezelo Private}
umphakathi
{Memezelo Public}
kube sekugcineni;

var
Form1: TForm1;

ukuqaliswa
{$ R * .dfm}
Inqubo TForm1.Button1Click (Sender: TObject);
uqale
MyDate: = TDate3.Create (self); // Enza TDate3 intfo MyDate.OnChange: = MyDateChange; {Isibambi bahlobanisa standard â € œOnChangeâ € umcimbi}
ShowMessage (IntToStr (today.Day)):
ShowMessage (IntToStr (today.Month)):
ShowMessage (IntToStr (today.Year)):

kube sekugcineni;
Inqubo TForm1.myDateChange (Sender: TObject); {Langempela Umcimbi isibambi} ziqala ShowMessage (â € ~The usuku changedâ € ™); kube sekugcineni;
Inqubo TForm1.Button2Click (Sender: TObject); uqale MyDate.Day:=29; {Ubhala phansi impahla Day, besebenzisa SetDate () okuyinto evela ngaphakathi yakha DoChange () kokudubula umcimbi} ekupheleni;
ekupheleni.
iyunithi Date3;
isikhombimsebenzisi isebenzisa SysUtils, Amakilasi;
UHLOBO TDate3 = class (TComponent) ezizimele FDay, FMonth, FYear: Word; DummyWord: izwi; {- Umcimbi impahla —}
{1} FOnChange: TNotifyEvent; {Uhlelo lomcimbi uhlobo umenyezelwa njengezindaba: Inqubo (Sender: TObject) bento;}
avikelwe Inqubo SetDay (newDay: Word);
{3} Inqubo DoChange; ashukumisayo; {Uma becela imililo umcimbi}
umakhi zomphakathi Yakha (AOwner: TComponent);
eshicilelwe Day impahla: Izwi funda FDay bhala SetDay; Inyanga impahla: Izwi ukufunda FMonth bhala DummyWord; impahla Year: Izwi read FYear ukubhala DummyWord;
{2} impahla OnChange: TNotifyEvent ukufunda FOnChange bhala FOnChange; kube sekugcineni;
Inqubo Register;
ukuqaliswa
Inqubo Register; uqale RegisterComponents (â € ~Samplesâ € ™, [TDate3]); kube sekugcineni;
umakhi TDate3.Create (AOwner: TComponent); Qala esisizuze ngefa Dala (AOwner);
DecodeDate (SysUtils.Date, FYear, FMonth, FDay); kube sekugcineni;
{4} Inqubo TDate3.SetDay (newDay: Word); {Yakha umcimbi â € “”usuku washintsha}
Qala FDay: = newDay; {Lena umcimbi waziswe}
{4} DoChange; {Lokhu imililo umcimbi ngokunxusa ukuba babe inqubo yayo ezihlobene

FOnChange (self) okuyinto empeleni abayomemeza ukuba ayabelwe umcimbi isibambi} ekupheleni;
{3a} inqubo TDate3.DoChange; Qala uma babelwe (FOnChange) ke FOnChange (self); {Yakha ezihambisana umcimbi isibambi lapho ngidlula kuso akuphikise okwenza umcimbi} ekupheleni; ekupheleni.