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

Ассалаумағалейкум, құрметті оқырман! Қазіргі кезде бағдарламалардың қолданушы интерфейсін жасау кезінде Drag&Drop технологиясы кенінен қолданылады. Delphi ортасында ондай мүмкіндік бар, бірақ оның кенінен ойластырылмағаны және шикілігі мені осы мақаланы жазуға итермеледі.
  1. Delphi ортасында жаңа бағдарлама құрасыз
  2. Standart құраушылар тақтасынан батырманы формаға орнатыныз.
  3. Сол тақтадан формаға панельдіде орнатып, оның color қасиетін clRed-ке орнатыныз
    Delphi құраушыладың орналасуы
    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!');

  4. button1.top>panel1.top-40
    — бұл типті кодтар батырманың жоғарыдан орналасқан позициясы панельдін позициясынан үлкен болса, шарт орындалатынын білдіреді. Сонымен, әр жағы 40пиксельден тұратын тор құрдық ол тордың ішінде батырма түрса біл сол жайлы хабарлама аламыз:
    showmessage('OK!');

  • +1
0 пікір
Тек тіркелген қолданушылар ғана пікір қалдыра алады.