Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

WITH Source AS TButton DO {Source параметрін TButton типіне әкелу, өйткені тасылатын батырма осындай типтен тұрады}

BEGIN

Parent:= Pointer(Sender); {Батырмаға үлкен құрауыш беріледі - Parent қасиетіне Sender (басқару элементі түсірілетін құрауыш) қасиетінің мәні тағайындалады, оны алдын – ала Pointer типіндегі нұсқағышқа айналдырамыз}

Left:= X; {Басқару элементінің сол жақ жоғарғы бұрышының

Top:= Y; координаталарына басқару элементі түсірілген құрауыштың ішіндегі тышқанның көрсеткішінің жергілікті координаталары меншіктеледі

END;

end;

4. 
   Аналогиялық түрде панель үшін OnDragOver және OnDragDrop оқиға өңдеуішін құрастырайық. Олар пішін үшін құрастырылған өңдеуіштерден аттары бойынша ғана өзгеретіндіктен, құрылған әдістерді меншіктеуді қолдануға болады.
   
5. 
   Батырма үшін оны тасудың басы мен аяғының оқиғасының өңдеуішін құрастырайық (OnStartDrag және OnEndDrag оқиғалары), олар батырманың атын өзгертеді.