Иcпользование API на Delphi 7. Сергей Николаевич Талипов
Чтение книги онлайн.

Читать онлайн книгу Иcпользование API на Delphi 7 - Сергей Николаевич Талипов страница 3

СКАЧАТЬ style="font-size:15px;">        s:=Sender; { или так: s:=button2; }

        ss:='tbutton'; { запишем имя типа кнопки в строк. переменную }

        if s.ClassNameIs(ss) then showmessage('Кнопка!');

        if (s is tbutton) then showmessage('Это кнопка типа "TButton" !')

          else showmessage('Это "'+s.ClassName+'" !');

        { Можно так }

        try (s as tbutton).caption:='Ok!!!'; except end;

        { Или так }

        tbutton(s).caption:='Ok!!!';

        { Или вот-так, если свойство не "Protected" и не "Read-only" }

        tcontrol(s).left:=300;

      end;

      ЛЕКЦИЯ №4

      1. ТЕХНОЛОГИЯ ПЕРЕТАСКИВАНИЯ ОБЪЕКТОВ «DRAG & DROP»

      Технология «Drag & Drop» («Перетащи и кинь») предназначается для перемещения (перетаскивания) данных из одних визуальных компонент в другие в процессе работы программы с помощью мыши. Данная технология делает интерфейс программы более удобным и быстрым и используется во многих системных и прикладных Windows-программах.

      Технология «Drag & Drop» позволяет, например, копировать строку текста (пункт) из одного компонента формы «ListBox» в другой компонент «ListBox» или предложение из одного компонента «Memo» в другой компонент «Memo». Технология «Drag & Drop» позволяет перемещать данные из любого визуального компонента в любой другой визуальный компонент для любой формы текущего приложения. С окнами других приложений данная технология по умолчанию не работает.

      Для перетаскивания данных из одних визуальных компонент в другие с помощью технологии «Drag & Drop» необходимо на этапе создания программы настроить компоненты на данную технологию и запрограммировать алгоритм их поведение при перетаскивании из (в) них данных.

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

iVBORw0KGgoAAAANSUhEUgAAAm0AAAGjCAIAAADxY7WwAAAACXBIWXMAAA7EAAAOxAGVKw4bAAC8LklEQVR42uydB1zO2x/Hf7/n6WlLtJSykm5DSEhFqKyQ9i7JKCPtXRpIeyvag6aZsrlRqEiIuBXKTqik8azf/3laQk/lzr97v+/X495+53vW7/zOOZ9zzm8cJgzDEAAAAAAAfhdMUAQAAAAAADoKAAAAAKCjAAAAAAA6CgAAAACgowAAAAAAgI4CAAAAwD+rozU1NR0dHVBYwE/ElClTeHh4oBz+r/j48eOTJ0+gHICfCBYWFmlp6T+qo2/fvpWUlITSBH4udHV1c3NzoRz+r3B0dExOToZyAH4uXr58KSQk9Id0tLu7m/bfhoaGSZMmQYECPwVubm6NjY1QDv9vdHV1WVtbHzhwAIoC+ClobW3l5uYmk8l/dD4KAAAAAADoKAAAAACAjgIAAAAA6CgAAAAAgI4CAAAAAOgoAAAAAACgowAAAAAAOgoAAAAA/10dJVd6zV54ALd0yQxOlCCxfI1g9QHP2OstBCmjva4b1q5XmcHR/vji8VPpwbsPV3ePU9zuv9Nwne5CYRxch2/APj+5mBQckIQ5lMers/S6Ea+HbAi7ScTaf/v1MnFLaXXAPBgEAf9SBvckzPL2iXrY8dz4/fRuY9quy/cjFrN912JaTpj9op35jmeJQ4CtwZq1sgKMehXKwzCVJRETYyoy9QTQH85YZ+35hP0uHilVHWMVd0WEOJrIfL4Q7+fkfbi6gyBhGhbibLxKihtFSI1XMw74uYc9mu0SEeyoPZOz5gcTpbbUnM1MTEjMxTncP2rKDm3/vzYfxYuZROU6z8D3HHxmupx0o2DWBh87k+k99XqMuJqZg9jHgly720t3BmzT54BL8L2Itj0ozC/MS0wrfqFr/8WZWcHxiAKtG/gtSHE2fFoN+NfzVU+CGDtM/3whz+rC0/TwfLdFpt+oEfVpRuTxdxjKqbbLz1KDdbhocTwSi1VUeKdyor8nU2xiy21iCLWX1eLIs9YYyAvRcrfSPpGn+Y7C/kZpdbPVUmN6vBEmLTa3WJ5Va5rmp0PPKvbjiXJNFfp0t7pZGoO2/1/U0a8gjOFiQ9ExXGMGVZ/Ou0dy75JQNq4xBCj/oUC5pNZsFBesT8uKg8IAgL5mwcnFPVt1acPloohD1YZeMwd3Xd1lB3MJirOZLr7kYB9pdQsVWOWXteqP5IRNycxwRnxQ0Ymb3cuU6atFLLIbzOaGul09U9yut4azT9mfn78uaJDKj/6+RHHcE8XnyUzGw3UHHR1qrvXhgl/E+5kyhJs1UPjDtnYWVmYoBQAY3CjGrti1qelawMHI87sSV3MNdCrvT8aWLd6x/mbxxZd/Sz4Icwz0JIP3HM++FqisSl9ixk+VXyCIVpzOOt+6Rmts7wT5+MVxmhnc6B9IBoeDO16go0NAaTjskS/u7U3cFtvvRG2qyA53swu63LYg6O41x/5VnPbzWyVXJ7TKbQ8JcbFUEnh23HOX/+n3UxVk8HeOHq1iVnMNC7DTm8MzTC2lvL0WE3jkKY61/WHJHZyqd7SvxlS6MpFfXIiKLmxseXP/RuX7KTq+kT4ak1t683CFrGgb6G1lpIzkbzZwOf5c0q/4rGF7XoS7XeBl0kIb+s2PibUpgS7OcRXsy93DHRaRLwXaB13pNZmKN2V7WG6Nr+Ja7h6xz0Zb+GlOT5xDWnVleUdsYCiKQv0EgK8UTGarzfKozTnhh71WWk/ulRlKbWpSu3HCHNLNr0bsH2/GOAaXjREX+nz7UiW7Zsghj6V8KOXjw7OHExMS89jc74dPPZ+amJR2XSK2UKPcySGiqI4ga52Yt38F/4gNj0nKwHDOPo8TWVdCVFdz0DqVqnO3yDxMH85knf2gqT8epeXp2GV+7axeqR+U6OMsPaY3FScYpou1V2d67zvTwc9DfP7i08cGKgJbbYGOfk3X3Qifu+uCg6ZREgaNufjnGToYH8t6ePHWwfgbO8KU6Pc2sDfH866RESYJbZuNSsJIY9xW09AH2kcfpGpw1QZVnXgoYumhP4dtuGlvy2XHFS7McVciFnIi7cdNJusYbZn8+JzVxE+XnG0uaaaG23OhSPtVu7kq+pqE6xW+tDwYZYZf69Sz3agq/DHftlh2X5p6M1VmMoGf3dDeMDPsaqeBvZm8IA4R3GSnk5ZQNcHcVV+VHZv9/DAtVL9J22Spf8IDqQ0uerK0tsXbF+fQVgAAfsccTVDf1sj3bGLUgYqNgQvoi6qdJXGnplmdFsZlfNXZXHTTcX5kV33NQRRtydabYu54SLPcQ4pKYZ/I+brsfrMiRmWeLCf4bmvty9a0NBnLgAsbneO1F/s6xhiq+M0esVvEz9AzXODjWJB98dNqjTGkivyKBeF+4yy3nT9yulnPjI/66GixsPb2/iXeL4nSjxinK92QaKhxZEnBWQdJFoTyNG7V7KNwxUFHv1K2D5d8w4jb4lbxotjbbyslE/eKLaZX9qVHn/JQ1ONBKTWZ1ydqyxGCPuDxKH3K+vxFN05guihX370GHBN++AUPSl2iZyKz9q35PRWZc6VXSsQCVIUPR32ZFZjZKMAR5nuJbiB3SS+Sb/1Q30yVnYDH4xEUz4THWksjikTsDq2QHiiafhPan1t833++MmFvC3eHXOnAaCam7wMOYQUA4IdBOZbaWMumeCSHn3TO0uNBmo4euLfcM3gM8nWvwjRx3hojKWUhWkeB4ceNH4uVN72n0uazvFNmys8SwZ9AENbx/CLTp4zHcczd4LJxMTOt19BaLem753EdCRlZRxHcFB0jJY8dhVnnWtatvZd/V07fX+dJjuuZs1kn35hueHesdJqOHXv/JPpLosgw6RLf13p4XJ0TlSnZ84Q+fvIq9VmEa3DFQUe/CFtjlm/2dK+4eewMPLDIb90il+gdnf5Ex07wasZTeQuFE4H9eZxtumNZon1aSL5xvM6okuu8faOKNM6Cu09t2cTX7RSn/0GsrqgiSyR6+Kz79ok+rCeXz067qwcW СКАЧАТЬ