Delphi бағдарламалау ортасында Drag&Drop технологиясын код жүзінде іске асыру

Ассалаумағалейкум, құрметті оқырман! Қазіргі кезде бағдарламалардың қолданушы интерфейсін жасау кезінде Drag&Drop технологиясы кенінен қолданылады. Delphi ортасында ондай мүмкіндік бар, бірақ оның кенінен ойластырылмағаны және шикілігі мені осы мақаланы жазуға итермеледі.

1. Delphi ортасында жаңа бағдарлама құрасыз
2. Standart құраушылар тақтасынан батырманы формаға орнатыныз.
3. Сол тақтадан формаға панельдіде орнатып, оның color қасиетін clRed-ке орнатыныз
   
   Delphi құраушыладың орналасуы
   Глобалды айнымалылар бөлімінде жаңа айнымалы енгіземіз:

   var
     Form7: TForm7;
     status_element:Boolean;
   

   
   Button1 құраушысының OnMouseDown, OnMouseMove, OnMouseUp оқиғаларына келесідей кодтарды енгізініз
   

   Оқиға	Код
   OnMouseDown	status_element:=True;
   OnMouseUp	status_element:=False;
   OnMouseMove	if (button1.top>panel1.top-40) and (button1.left>panel1.left-40) and (button1.top<panel1.top+40) and (button1.left<panel1.left+40) then showmessage('OK!');

   
   

button1.top>panel1.top-40

— бұл типті кодтар батырманың жоғарыдан орналасқан позициясы панельдін позициясынан үлкен болса, шарт орындалатынын білдіреді. Сонымен, әр жағы 40пиксельден тұратын тор құрдық ол тордың ішінде батырма түрса біл сол жайлы хабарлама аламыз:

showmessage('OK!');