https://delphi.forumkz.ru/ Delphi.Forever ru-ru Tue, 30 Jun 2020 20:21:29 +0300 MyBB/mybb.ru https://delphi.forumkz.ru/viewtopic.php?pid=49#p49 <p>At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).<br />We are experts in their fields and enjoy challenging work. We work together to share knowledge and build our capability to improve user experiences. This helps us work smarter and more effectively. App Development HK Web Agency HK UX Solution UI Solution Shopify HK<br />We are confident, capable and committed. We nurture curiosity and encourage our people to keep learning. We have flexible work arrangements and a supportive environment. We help our people balance their whole life and be the best version of themselves.<br />At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).</p> <p><a href="https://www.miracles.com.hk/" rel="nofollow" target="_blank">https://www.miracles.com.hk/</a> <br /><a href="https://www.miracles.com.hk/our-vision/" rel="nofollow" target="_blank">https://www.miracles.com.hk/our-vision/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-experience/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; xperience/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-interface/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; interface/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/wordpress-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-hosting-and-maintenance/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; intenance/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/app-ux-design-and-prototyping/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design- &#8230; ototyping/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/shopify/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; p/shopify/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/woocommerce/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; ocommerce/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-marketing/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/sem-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/seo-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-reality-hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/webvr/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; ong/webvr/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/interior-design-virtual-reality/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; l-reality/</a></p> mybb@mybb.ru (timothybaker) Tue, 30 Jun 2020 20:21:29 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=49#p49 https://delphi.forumkz.ru/viewtopic.php?pid=48#p48 <p>At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).<br />We are experts in their fields and enjoy challenging work. We work together to share knowledge and build our capability to improve user experiences. This helps us work smarter and more effectively. App Development HK Web Agency HK UX Solution UI Solution Shopify HK<br />We are confident, capable and committed. We nurture curiosity and encourage our people to keep learning. We have flexible work arrangements and a supportive environment. We help our people balance their whole life and be the best version of themselves.<br />At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).<br /></p> <p><a href="https://www.miracles.com.hk/" rel="nofollow" target="_blank">https://www.miracles.com.hk/</a> <br /><a href="https://www.miracles.com.hk/our-vision/" rel="nofollow" target="_blank">https://www.miracles.com.hk/our-vision/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-experience/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; xperience/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-interface/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; interface/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/wordpress-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-hosting-and-maintenance/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; intenance/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/app-ux-design-and-prototyping/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design- &#8230; ototyping/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/shopify/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; p/shopify/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/woocommerce/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; ocommerce/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-marketing/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/sem-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/seo-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-reality-hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/webvr/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; ong/webvr/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/interior-design-virtual-reality/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; l-reality/</a></p> mybb@mybb.ru (timothybaker) Tue, 30 Jun 2020 20:10:08 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=48#p48 https://delphi.forumkz.ru/viewtopic.php?pid=47#p47 <p>At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).<br />We are experts in their fields and enjoy challenging work. We work together to share knowledge and build our capability to improve user experiences. This helps us work smarter and more effectively. App Development HK Web Agency HK UX Solution UI Solution Shopify HK<br />We are confident, capable and committed. We nurture curiosity and encourage our people to keep learning. We have flexible work arrangements and a supportive environment. We help our people balance their whole life and be the best version of themselves.<br />At Miracle, Digital Marketing and Transformation Agency in Hong Kong, we help our clients improve digital services to make them simple, clear and fast. We help our client transform, create and improve their product in a digital way such as branding, web &amp; app design, e-commerce solution, Digital Marketing strategy, Virtual Reality (VR) and Augmented Reality(AR).</p> <p><a href="https://www.miracles.com.hk/" rel="nofollow" target="_blank">https://www.miracles.com.hk/</a> <br /><a href="https://www.miracles.com.hk/our-vision/" rel="nofollow" target="_blank">https://www.miracles.com.hk/our-vision/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-experience/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; xperience/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/user-interface/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; interface/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/wordpress-development/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; velopment/</a><br /><a href="https://www.miracles.com.hk/web-design-hong-kong/web-hosting-and-maintenance/" rel="nofollow" target="_blank">https://www.miracles.com.hk/web-design- &#8230; intenance/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design-hong-kong/</a><br /><a href="https://www.miracles.com.hk/app-design-hong-kong/app-ux-design-and-prototyping/" rel="nofollow" target="_blank">https://www.miracles.com.hk/app-design- &#8230; ototyping/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-online-shop/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/shopify/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; p/shopify/</a><br /><a href="https://www.miracles.com.hk/ecommerce-online-shop/woocommerce/" rel="nofollow" target="_blank">https://www.miracles.com.hk/ecommerce-o &#8230; ocommerce/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-marketing/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/sem-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/digital-marketing/seo-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/digital-mar &#8230; hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-reality-hong-kong/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/webvr/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; ong/webvr/</a><br /><a href="https://www.miracles.com.hk/virtual-reality-hong-kong/interior-design-virtual-reality/" rel="nofollow" target="_blank">https://www.miracles.com.hk/virtual-rea &#8230; l-reality/</a></p> mybb@mybb.ru (timothybaker) Tue, 30 Jun 2020 20:09:01 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=47#p47 https://delphi.forumkz.ru/viewtopic.php?pid=46#p46 <p>Ага, слышал... пока не покупал, не было необходимости.</p> mybb@mybb.ru (Ксардас) Tue, 18 Jun 2019 17:03:33 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=46#p46 https://delphi.forumkz.ru/viewtopic.php?pid=45#p45 <p>Вот спасибо.</p> mybb@mybb.ru (Лоракс) Tue, 18 Jun 2019 17:00:03 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=45#p45 https://delphi.forumkz.ru/viewtopic.php?pid=43#p43 <p><span style="font-style: italic">Давайте разнообразим ссылки на дельфи-ресурсы чем-то более &quot;легким&quot;. Вот помните, когда делали дипломы или курсовые, приходилось идти к тетенькам и за денежку прокалывать в них отверстия для скоросшивателя? А эти тетеньки постоянно где-то гуляли вместо того, чтобы работать. А был бы тогда дома дырокол для бумаги, хотя бы такой: <a href="https://www.b2b-service.kz/dyrokoly/" rel="nofollow" target="_blank">https://www.b2b-service.kz/dyrokoly/</a> спокойно бы сделали это дома. К чему это я? А просто вспомнились институтские годы :)</span></p> mybb@mybb.ru (Ксардас) Fri, 18 Jan 2019 17:14:40 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=43#p43 https://delphi.forumkz.ru/viewtopic.php?pid=42#p42 <p>Видел нечто подобное на <a href="https://www.kassa24.kz/cars" rel="nofollow" target="_blank">https://www.kassa24.kz/cars</a> там, где оплата запасных деталей авто, можете с их разработчиками связаться и спросить может они вам по-быстрому что-то накидают, как по мне лучше ориентироваться на интернет онлайн задачи, а не на разного рода exe-шники.</p> mybb@mybb.ru (Pro100Den) Tue, 26 Jun 2018 11:09:14 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=42#p42 https://delphi.forumkz.ru/viewtopic.php?pid=41#p41 <p>А что это у нас такое? А это папка на 4 кольцах, купленная здесь: <a href="https://www.b2b-service.kz/papki-na-koltsakh/kolichestvo-kolets-4-koltsa/." rel="nofollow" target="_blank">https://www.b2b-service.kz/papki-na-kol &#8230; 4-koltsa/.</a> Конечно, всю СУБД в такой папке не сохранишь, но если их будет много, то нет предела совершенству)).<br />Одно но: ни с Delphi, ни с SQL не совмещается.</p> mybb@mybb.ru (Алена Байбакова) Sat, 16 Jun 2018 22:53:12 +0300 https://delphi.forumkz.ru/viewtopic.php?pid=41#p41 https://delphi.forumkz.ru/viewtopic.php?pid=37#p37 <p><strong>Что такое базы данных?</strong><br />Итак базы данных существуют следующих видов:<br />1) Древовидные - простейший пример - Windows Registry, файловая система FAT и XML - здесь информация хранится в древовидной структуре и доступ осуществляется через &quot;путь&quot;, т.е. указание всех узлов от корневого до нужного. Например:<br />&quot;c:\My Docs\MyPictures\Me.jpg&quot;. Недостатки этого способа хранения данных является очень медленный поиск, если не известен путь и очень плохая устойчивость к повреждениям структуры. Преимущество - возможность хранить в классифицированном виде очень разнородную информацию и очень быстрый поиск при знании ключа. Эти базы данных мы разбирать здесь не будем.<br />2) Сетевые базы данных - простейший пример - интернет. Т.е. существуют узлы, обособленные друг от друга, содержащие определённую информацию. Каждый узел представляет какое-то количество ссылок на другие узлы, по которым и ведётся поиск. Недостатки - очень сложный и долгий поиск, возможна неполное предоставление информации или невозможность найти нужную информацию. Преимущества - очень легко добавить любую, разнородную информацию, самая высокая стабильность из всех систем. Эти базы данных мы разбирать здесь не будем.<br />3) Объектные базы данных - новое веяние. Их мы разбирать здесь не будем, но интересующиеся найдут интересной <br />дискуссию о них в нашем разделе по базам данных.<br />4) Реляционные базы данных - именно с ними мы и будем работать. В дальнейшем если говорится &quot;база данных&quot;, то подразумевается &quot;Реляционная база данных&quot;. &quot;Реляционный&quot; - Relation - обозначает взаимосвязанный. С этими связями мы будем разбираться потом, а пока можно для простоты считать, что реляционная база данных - это набор двумерных простых таблиц. Недостатки реляционных баз данных - хранение только однородной информации, сложности в добавлении новых структур и взаимоотношений, информация хранящаяся в такой БД должна быть в нужной степени абстрагированна. <br />Преимущества - прежде всего очень высокая скорость поиска - по этому параметру у реляционных баз данных конкурентов нет, высокая стабильность, обилие софта для их поддержки и разработки, удобность для очень широкого круга задач.</p> <p><strong>Реляционные базы данных?</strong><br />Итак, Реляционная база данных упрощённо является набором таблиц. Таблица же есть основной строительный кирпичик базы данных. Расмотрим структуру таблицы. Для начала представте себе таблицу, например в Word...<br />Что в ней есть?<br />Во-первых есть строки и колонки (raw and columns). В базах данных, в отличие от Word есть строгие ограничения на их содержимое, да и терминология немного другая:<br />1) Колонка называется тоже columns, но чаще употребляется понятие &quot;поле&quot; (field). Колонка всегда имеет имя (по которому ее можно найти) и обязана хранить данные только одного какого-либо типа - например целые числа, строки, дату/время и <br />т.п. Создавая таблицу вы обязаны указать какой тип имеет каждое поле, другими словами, вы заранее должны определится, какого сорта данные будут хранится в колонке. Например, вот примерно так может выглядеть структура таблицы для хранения данных об участнике этого форума:<br />· Ник - строка (25 символов) <br />· ФИО - строка (250 символов) <br />· Дата регистрации - Дата/время <br />· Количество постингов - Целое <br />· Показывать email - True/False <br />Обратите внимание что для строк я указал конкретную длину, а для остальных ничего не указывал. Зачем? Ответ прост -<br />каждая строка должна занимать строго одинаковое место (об исключениях потом), и это сделано для быстроты поиска. <br />Действительно , если бы каждая строка имела разную длину, то чтобы найти например 1000 строку, надо было бы перечитать все 999 предыдущих строк, но если известно, что каждая строка занимает например 1Кб, то чтобы прочитать 1000 строку достаточно прочитать 1 Кб с 999Кб... Другая сторона этого - например мне надо сравнить даты в приведенной выше таблице - сделать это просто - я точно знаю что первую дату можно прочитать с 276 байта, и так же точно я знаю точные координаты каждой даты. Именно в этом и лежит одна из сторон высокой скорости работы баз данных (другие способы ускорения работы рассмотрим позже).<br />2) Строка - в базах данных имеет специфическое название - запись (Record) - к Дельфийскому типу Record этот термин не имеет никакого отношения. Хотя большинство БД дают возможность перейти и прочитать например 10 запись, надо с самого начала попытаться никогда этим не пользоваться. Почему? Да просто потому что БД практически всегда подразумевают совместный доступ нескольких пользователей к одним и тем же данным, и если Вы хотите перейти на 10 запись, а другой пользователь в это время удалит запись номер 5, то вы перейдёте вовсе не на ту запись что ожидалось. А как же быть? У вас есть 2 способа - либо вы находите нужную запись по значению поля - например для нашей таблицы это будет выглядеть примерно так:<br />&quot;Найти пользователя [Вася] в первой колонке&quot;<br />В результате вы получите доступ ко всем полям записи для &quot;Васи&quot;. Либо вы берёте все записи и перебираете их в цикле пока не найдёте нужный - это гораздо худший способ, так как работает на 2-3 порядка медленнее и имеет другие неприятные последствия (об этом позже), но он возможен и иногда применяется. </p> <p><strong>Первая программа с базами данных?</strong><br />После небольшого теоретизирования спустимся с небес на землю откроем Дельфи и напишем простейшую программу для баз данных. Напишем, это громко сказано, потому что писать ничего не прийдётся, только компоненты потыкаем.<br />Открываем новый проект. Открываем форму. Кладём на форму компонент TTable (с закладки &quot;Data Access&quot; или &quot;BDE&quot; - у кого какая версия Дельфей). Оп! Не ожидали - вроде бы и таблица, а компонт не визуальный! Итак компонент TTable - это пока основной компонент для нашей базы - всё обращение к таблице идёт только через него. Теперь давай-те его подсоединим к базе данных. <br />К Дельфи прилогается учебная база данных, её мы и будем пользовать. Найдите свойство DatabaseName и из выпадающего списка выберите &quot;DBDEMOS&quot; - это и есть учебная база данных. Теперь берём свойство TableName и в выпадающем списке обнаруживаем список имён всех таблиц в базе данных &quot;DBDEMOS&quot;, выбираем например &quot;biolife.db&quot; - <br />это таблица так называется (а в данном случае и название файла) <br />Всё - таблица подсоединена, и с ней даже можно работать, но только в коде. А мы, как особо ленивые, попробуем на сегодня без кода обойтись, а подключить к таблице грид и другие визуальные компоненты. <br />Но все визуальные компоненты могут подсоединится к TTable только через вспомогательный компонент TDataSource - находящийся на той же закладке. Ставим и его на форму. Находим свойство DataSet у этого компонента и в выпадающем списке указываем на Table1. Теперь визуальные компоенты будут &quot;видеть&quot; инфу в таблице через TDataSource.<br />Переходим на другую закладку компонентов - &quot;Data Controls&quot; и ставим компоент TDBGrid. В его свойстве DataSource указываем на DataSource1. Что видим? Пока ничего! Таблица то не открыта - кликаем на Table1 и устанавливаем свойство Active в True. Работает!<br />Можно программу откомпиллировать и поиграться со своим первым приложением для баз данных. Неправда ли очень просто! </p> <p><strong>Визуальные компоненты для DB</strong><br />Итак, мы не написав ни строчки кода получили простейшее приложение, работающее с базой данных. С помощью него мы можем просматривать и редактировать содержимое таблицы. Давайте теперь сделаем эту процедуру немного удобнее, на <br />закладке &quot;Data Control&quot; есть компонент TDBNavigator. Положим его на форму и в инспекторе объектов поставим его <br />свойство DataSource указывающим на тот же DataSource1, что и для DBGrid - собственно, теперь оба визуальных контрола(DBGrid и DBNavigator) привязаны к одному и тому же DataSource и через него к одной и той же таблицы. <br />DBNavigator имеет несколько кнопок (вы можете настроить какие именно вы хотите видеть) дающие лёгкий контроль над следующими операциями:<br />(перечисление в порядке расположения кнопок)<br />1) Переход на первую запись <br />2) Переход на предыдущую запись <br />3) Переход на следующую запись <br />4) Переход на последнюю запись <br />5) Добавить запись <br />6) Удалить запись <br />7) Редактировать запись <br />8) Сохранить изменения <br />9) Отменить изменения <br />10) Перечитать таблицу <br />Обратите внимание, что запись (строка) таблицы есть как бы неделимый квант информации - т.е. отменяются действия произведенные для всей записи целиком, добавляется или удаляется тоже строка целиком. <br />Разберём ещё несколько визуальных компонентов, чтобы покончить с визуализацией данных и перейти собственно к программированию.<br />На закладке Data Controls есть ещё несколько важных компонентов, давайте поставим их на нашу форму: DBLabel, DBEdit, DBMemo и DBImage. Все их так же как и DBGrid соединим с DataSource1. Однако здесь мы обнаружим что этого недостаточно, эти компоненты работают с отдельной ячейкой в таблице, поэтому мы должны указать ещё поле (столбец) который они будут показывать. <br />Давайте сделаем следуюшие - для каждого из этих компонентов укажем свойство DataField, например следующим образом:<br />DBLabel - ассоциируем с полем Category<br />DBEdit - ассоциируем с полем Common_name<br />DBMemo - ассоциируем с полем Notes<br />DBImage - ассоциируем с полем Graphic<br />Можно откомпилировать программу и немного поиграться с ней. Итак что мы можем здесь увидеть? Что в каждый данный момент времени из всей таблицы у нас есть запись которая активная (текущая) - в DBGrid она показывается треугольничком слева. Именно с этой единственной записью мы и можем оперировать - удалять, добавлять, редактировать, именно её содержимое отображается в DBLabel, DBEdit, DBMemo, DBImage и именно она может быть изменена при помощи этих компонентов. Описанная только что структура позволяет работать только с одной записью в определённый момент времени, если вы переходите на другую запись то все изменения должны быть либо запомнены либо отменены! По умолчанию они запоминаются без всяких запросов, в чём вы можете убедиться меняя значения и переходя на другую запись.<br />Поиск нужных данных<br />Теперь разберём более эффективные способы нахождения нужной записи<br />в таблице. <br />А если нам надо перейти к вполне конкретной строке (записи)? Можно конечно<br />организовать такой цикл и найти нужную запись, но это громоздко, неудобно,<br />и главное очень медлено! Для этого можно использовать метод таблицы Locate.<br />Например в нашей задаче нам надо найти запись где в поле Category значение<br />&quot;Cod&quot;. Этого можно добится примерно следующим кодом:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 4.5em"><pre>Table1.Locate('Category','Cod',[loCaseInsensitive]);</pre></div></div></div><p>Можно &quot;повесить&quot; этот код на кнопку и убедится, что после выполнения этого<br />кода активная запись стала именно та которая нам и нужна. Итак что же за параметры<br />мы передаём этому методу? Первый параметер - это имя поля, второй параметер -<br />это значение поля, третий опции поиска (см. справку Дельфи). А что будет если<br />такого значения нет? Например:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 4.5em"><pre>Table1.Locate('Category','Cod123',[loCaseInsensitive]);</pre></div></div></div><p>Ничего не будет, правда метод Locate - это функция и она возвращает значение Boolean<br />в зависимости от того, найдена запись или нет.<br />Преобразовав код как</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 9em"><pre>if Table1.Locate('Category','Cod123',[loCaseInsensitive]) then showmessage('Record is located seccessful!') else showmessage('Record is not found!');</pre></div></div></div><p>можно убедится, что теперь мы знаем найдена запись или нет. Можно искать и по части<br />значения, например</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 4.5em"><pre>Table1.Locate('Category','Co',[])</pre></div></div></div><p>не сможет найти запись, а</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 4.5em"><pre>Table1.Locate('Category','Co',[loPartialKey])</pre></div></div></div><p>вполне правильно найдёт запись с значением 'Cod'.<br />А если нам надо найти значение по двум полям? В этой таблице искать так бесполезно,<br />так как все поля разные. Переключим таблицу на другую. Для этого удалим с формы<br />все визуальные компоненты кроме DBGrid и DBNavigator (так как у новой таблицы<br />будет совсем другой список полей). В коде напишем что-то<br />типа:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 7.5em"><pre>Table1.active:=false; //закрыли таблицу Table1.tablename:='items.db';//ассоциируем с новой таблицей на диске Table1.active:=true; //открыли таблицу</pre></div></div></div><p>Откомпилируем код, убедимся, что теперь мы видим совсем другую таблицу.<br />Теперь давайте найдём такую запись, где ItemNo=1 и Discount=50, для этого нам надо<br />применить Locate следующим образом:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 4.5em"><pre>Table1.Locate('ItemNo;Discount',VarArrayOf([1,50]),[]);</pre></div></div></div><p>Теперь несколько примечаний:<br />1) Для Дельфи 6/7 - добавьте &quot;Uses Variants;&quot;<br />2) Первый параметер - это список имён полей через ; без пробелов<br />3) Второй параметер - это массив вариант - значений полей. Почему вариант? Потому что<br />поля могут быть разных типов и в этом массиве вполне можно задать значения<br />разных типов: VarArrayOf([1,'Вася', True, 3.14]) </p> <p><strong>Изменение данных в таблице</strong><br />Теперь последний штрих о работе с таблицами. Мы разобрали способы обратиться к нужному столбцу и нужной записи, их поиск и чтение значений. А как записать новое значение? Для этого есть методы Edit, Append, Insert, Post и Cancel.<br />1) Надо изменить текущую запись.</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 7.5em"><pre>Table1.edit; //переводим таблицу в режим редактирования Table1.fieldbyname('Category').asString:='New value';//изменяем поле Table1.post;//сохраняем изменения</pre></div></div></div><p>2) Надо добавить новую запись.</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 7.5em"><pre>Table1.append; //переводим таблицу в режим добавления новой записи Table1.fieldbyname('Category').asString:='New value';//присваиваем значение полей Table1.post;//сохраняем изменения</pre></div></div></div><p>Итого, как видим изменения данных производятся точно так же как и чтение, но перед изменением КАЖДОЙ записи таблица должна быть переведена в режим редактирования, а после изменения КАЖДОЙ записи изменения должны быть сохранены.<br />В режим редактирования таблицу переводят следующие методы:<br />Edit - редактирование текущей записи<br />Append - добавление записи в конец таблицы<br />Insert - вставка записи перед текущей<br />Для выхода из режима редактирования служат методы:<br />Post - запомнить изменения и выйти из режима редактирования<br />Cancel - отменить сделанные изменения и выйти из режима редактирования</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 19:55:00 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=37#p37 https://delphi.forumkz.ru/viewtopic.php?pid=29#p29 <p>Довольно часто возникает необходимость переноса созданной программы управления базой данных на другой компьютер, например, для того чтобы продемонстрировать ее своим друзьям или знакомым. В отличие от процесса переноса обычной программы, когда, как правило, достаточно скопировать только выполняемый файл (ЕХЕ-файл), при переносе программы управления базой данных необходимо выполнить перенос BDE.</p> <p>Здесь следует вспомнить, что BDE представляет собой набор программ, библиотек и драйверов, обеспечивающих работу прикладной программы с базой данных. Выполнить перенос BDE на другой компьютер вручную практически невозможно.</p> <p>Поэтому Borland рекомендует создавать установочную программу, которая выполнит копирование всех необходимых файлов, в том числе и компонентов BDE. В качестве средства создания установочной программы Borland настоятельно рекомендует использовать утилиту InstallShield Express, которая входит в состав всех наборов Delphi. Поставляемая с Delphi версия этой утилиты специально адаптирована к задаче переноса и настройки BDE.</p> <p>Можно попытаться установить BDE вручную. Ниже перечислены файлы (их имена определены опытным путем), необходимые для работы с базой данных Paradox:<br />BLW32.DLL<br />IDAPI32.DLL<br />IDBAT32.DLL<br />IDPDX32.DLL<br />IDR20009.DLL<br />USA.BLL<br />CHARSET.BLL</p> <p>Эти файлы нужно установить на компьютер пользователя, затем проверить, что в реестре Windows есть перечисленные ниже разделы и параметры:<br />Раздел HKEY_LOCAL_MACHINESoftwareBorlandDatabase engine — параметр DLLPATH должен содержать путь к DLL-файлам BDE;<br />Раздел HKEY_LOCAL_MACHINESoftwareBorlandBLW32 — параметр BLAPIPATH должен содержать путь к BLL-файлам BDE.</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 06:15:33 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=29#p29 https://delphi.forumkz.ru/viewtopic.php?pid=28#p28 <p><span style="color: red"><span style="display: block; text-align: center"><strong>Объявление процедуры</strong></span></span></p> <p>procedure ИмяПроцедуры(var Параметр1: Тип1;</p> <p>var Параметр2: Тип2;</p> <p>var ПараметрJ: TипJ } ; const</p> <p>{ описание констант }</p> <p>var</p> <p>{ описание переменных } begin</p> <p>{ инструкции процедуры } end;</p> <p>Примечание</p> <p>Слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызвавшую ее программу.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Объявление функции</strong></span></span></p> <p>function ИмяФункции(var Параметр1: Тип 1; var Параметр2: Тип2;</p> <p>var ПараметрJ: TиnJ ) : Тип; const</p> <p>{ описание констант } var</p> <p>/ описание переменных } begin</p> <p>{ инструкции функции }</p> <p>Result:=Значение; end;</p> <p>Примечание</p> <p>Слово var ставится перед именем параметра в том случае, если параметр используется для возврата значения из функции в вызвавшую ее программу.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Инструкция while</strong></span></span></p> <p>while Условие do begin</p> <p>{ инструкции ) end;</p> <p>Сначала проверяется Условие, если оно истинно, то выполняются инструкции между begin и end. Затем снова проверяется Условие. Если оно выполняется, то инструкции цикла выполняются еще раз. И так до тех пор, пока Условие не станет ложным.</p> <p>Примечание</p> <p>Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Инструкция repeat</strong></span></span></p> <p>repeat</p> <p>{ инструкции } until Условие;</p> <p>Сначала выполняются инструкции цикла, которые расположены между repeat и until. Затем вычисляется значение выражения Условие, и если оно равно False, то инструкции цикла выполняются еще раз. И так до тех пор, пока значение выражения Условие не станет равным True.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Инструкция for</strong></span></span></p> <p>Вариант 1 (с увеличением счетчика):</p> <p>for Счетчик:=НачальноеЗначение to КонечноеЗначение do begin</p> <p>{ здесь инструкции } end;</p> <p>Инструкции между begin и end выполняется (КонечноеЗначение - НачальноеЗначение) + 1 раз.</p> <p>ЕСЛИ НачальноеЗначение &gt; КонечноеЗначение, ТО инструкции между begin И</p> <p>end не выполняются.</p> <p>Примечание</p> <p>Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.</p> <p>Вариант 2 (с уменьшением счетчика)'.</p> <p>for Счетчик:=НачальноеЗначение downto КонечноеЗначение do begin</p> <p>{ здесь инструкции } end;</p> <p>Инструкции между begin и end выполняется (НачальноеЗначение - КонечноеЗначение) + 1 раз.</p> <p>Если НачальноеЗначение &lt; КонечноеЗначение, то инструкции между begin и end не выполняются.</p> <p>Примечание</p> <p>Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Инструкции выбора </strong></span></span></p> <p>Инструкция if</p> <p>Вариант 1: if-then-else. if Условие then</p> <p>begin</p> <p>{ Инструкции, которые выполняются, ) { если условие истинно. } end else</p> <p>begin</p> <p>{ Инструкции, которые выполняются, } { если условие ложно } end ;</p> <p>Вариант 2. if-then.</p> <p>if Условие then</p> <p>begin</p> <p>{ Инструкции, которые выполняются, } { если условие истинно. } end;</p> <p>Примечание</p> <p>Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Запись</strong></span></span></p> <p>Вариант 1. Объявление записи в разделе переменных: Запись: record Поле1:Тип1; Поле2: Тип2;</p> <p>ПолеJ: TиnJ; end;</p> <p>Вариант 2. Сначала объявляется тип-запись, затем — переменная-запись:</p> <p>type</p> <p>ТипЗапись = record Поле1: Тип1; Поле 2:Тип2;</p> <p>ПолеК: ТипК; end;</p> <p>var</p> <p>За пись: ТипЗапись;</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Массив</strong></span></span></p> <p>Объявление одномерного массива:</p> <p>ИмяМассива: array [НижнийИндекс...ВерхнийИндекс] of ТипЭлементов;<br />Объявление двумерного массива:</p> <p>ИмяМассива: array [НижнийИндекс1..ВерхнийИндекс1,</p> <p>НижнийИндекс2..ВерхнийИкдекс2] of ТипЭлементов;</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Строки</strong></span></span></p> <p>Объявление переменной-строки длиной 255 символов:</p> <p>Имя:string;<br />Объявление переменной-строки указанной длины:</p> <p>Имя:string [ ДлинаСтроки ].</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Основные типы данных</strong></span></span></p> <p>К основным типам данных языка Delphi относятся: П целые числа (integer); П дробные числа (real); П символы (char);<br />строки (string);<br />логический тип (boolean).</p> <p>Целые числа и числа с плавающей точкой могут быть представлены в различных форматах </p> <p>Тип / Диапазон <br />Shortint -128.. 127 <br />Integer -32 768.. 32 767 <br />Longint -2 147 483 648.. 2 147 483 647 <br />Byte 0..255 <br />Word 0..65535 <br />Real 2,9e-39.. 1,7e38 <br />Single 1,5e-45.. 3,4e38 <br />Double 5,0e-324.. 1,7e308 <br />Extended 3,4e-4932.. 1,1e4932 </p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Структура модуля</strong></span></span></p> <p>Модуль состоит из последовательности разделов. Каждый раздел начинается ключевым словом и продолжается до начала следующего раздела.</p> <p>unit ИмяМодуля;</p> <p>interface // раздел интерфейса</p> <p>{ Здесь находятся описания процедур и функций модуля, коч-орые могут использоваться другими модулями. )</p> <p>const // раздел объявления констант</p> <p>{ Здесь находятся объявления глобальных констант модуля, которые могут использоваться процедурами и функциями модуля.}</p> <p>type // раздел объявления типов</p> <p>{ Здесь находятся объявления глобальных типов модуля,</p> <p>которые могут использоваться процедурами и функциями модуля }</p> <p>var // раздел объявления переменных</p> <p>{ Здесь находятся объявления глобальных переменных модуля, которые могут использоваться процедурами и функциями модуля }</p> <p>implementation // раздел реализации</p> <p>{ Здесь находятся описания (текст) процедур и функций модуля) </p> <p>end.</p> <p><span style="color: red"><span style="display: block; text-align: center"><strong>Зарезервированные слова и директивы</strong></span></span></p> <p>Зарезервированные слова:&#160; &#160; &#160; &#160; <br />and File not then array For object to asm <br />function of type begin Goto or unit case <br />If packed until const implementation procedure <br />uses constructor In program var destructor <br />inherited record while div inline repeat with <br />do intenface set xor downto Label else Mod <br />shr end Nil string</p> <p>Директивы:&#160; &#160; &#160; &#160; <br />absolute assembler external Far forward<br /> interrupt near private public virtual</p> <p>продолжение следует..</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 05:04:07 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=28#p28 https://delphi.forumkz.ru/viewtopic.php?pid=27#p27 <p>1. Вирт Н. Алгоритмы и структуры данных / Пер. с англ. — М.: Мир, 1989. - 360 с., ил.</p> <p>2. Гринзоу Лу. Философия программирования для Windows 95/NT / Пер. с англ. — СПб.: Символ-Плюс, 1997. — 640 с., ил.</p> <p>3. Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения / Пер. с англ. — М.: Мир, 1982. — 386 с., ил.</p> <p>4. Практическое руководство по программированию / Пер. с англ. Б. Мик, П. Хит, Н. Рашби и др.; под ред. Б. Мика, П. Хит, Н. Рашби. — М.: Радио и связь, 1986. — 168 с., ил.</p> <p>5. Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. — М.: Мир, 1985. - 368 с., ил.</p> <p>6. Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочки-на. — М.: Мир, 1989. - 240 с., ил.</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 04:53:39 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=27#p27 https://delphi.forumkz.ru/viewtopic.php?pid=26#p26 <p>При первом знакомстве с delphi несомненно удивляешься великому множеству разных визуальных компонентов. Кнопочки, панельки, надписи и многое другое. Но после нескольких месяцев пользования этой средой разработки появляется желание написать что-то свое. Именно эту задачу мы и попытаемся решить используя инвентарь delphi который есть в у нас в наличии и естественно свое воображение. </p> <p>Постановка задачи</p> <p>Для начала определимся, что и как мы будем делать. В этом вопросе большую роль играет ваше воображение, эстетические предпочтения и т.д. Я же в силу своей распущенности предложу Вам в качестве примерного варианта создать кнопку нестандартной формы, а именно – овальной.</p> <p>Реализация</p> <p>Наиболее правильным, с точки зрения иерархии vcl, методом решения первого пункта поставленной задачи, будет создание нового компонента, в качестве базового класса которого мы выберем tcustomcontrol. Этот класс является базовым для создания компонентов-надстроек над визуальными объектами windows, и предоставляет методы для отрисовки объектов разных форм. Если же у вас нет необходимости наследовать все особенности поведения объектов windows то можете в качестве базового класса использовать tgraphiccontrol, наследники которого отрисовываются быстрее, поскольку не должны следить за уймой Виндовских служебных сообщений.</p> <p>Сам компонент tcustomcontrol определен в модуле controls.pas следующим образом:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 21em"><pre>tcustomcontrol = class(twincontrol) private fcanvas: tcanvas; procedure wmpaint(var message: twmpaint); message wm_paint; protected procedure paint; virtual; procedure paintwindow(dc: hdc); override; property canvas: tcanvas read fcanvas; public constructor create(aowner: tcomponent); override; destructor destroy; override; end;</pre></div></div></div><p>Здесь самым интересным для нас является метод paint и свойство canvas. Посредством этих двух членов класса tcustomcontrol мы и будет рисовать нашу кнопку.</p> <p>Кроме этого мы немножко расширим функциональность нашего компонента и придадим ему возможность устанавливать цвет темного и светлого участка своей границы, а также ее толщину, и наконец определим свойство flat которое отвечает за функциональность аналогичного свойства стандартных компонентов delphi.</p> <p>Исходя из вышесказанного прототип нашего компонента (tellipsebutton) будет выглядеть следующим образом:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 35em"><pre>tellipsebutton = class(tcustomcontrol) private fdarkcolor,flightcolor,fbackcolor:tcolor; fsize:integer; fpushed:boolean; rgn:hrgn; fflat:boolean; fdrawflat:boolean; fonmouseenter,fonmouseleave:tnotifyevent; { private declarations } protected procedure setdarkcolor(value:tcolor); procedure setlightcolor(value:tcolor); procedure setsize(size:integer); procedure setbackcolor(value:tcolor); procedure dblclick;override; procedure drawflat;dynamic; procedure drawnormal;dynamic; procedure drawpushed;dynamic; procedure wmlbuttondown(var message:twmmouse);message wm_lbuttondown; procedure wmlbuttonup(var message:twmmouse);message wm_lbuttonup; procedure wmmousemove(var message:twmmousemove);message wm_mousemove; procedure cmmouseenter(var message:tmessage);message cm_mouseenter; procedure cmmouseleave(var message:tmessage);message cm_mouseleave; procedure cmtextchanged(var message:tmessage);message cm_textchanged; procedure setflat(value:boolean); procedure domouseenter; procedure domouseleave; { protected declarations } public constructor create(aowner:tcomponent);override; procedure afterconstruction;override; destructor destory;virtual; procedure repaint;override; procedure paint;override; { public declarations } property canvas; published property darkcolor:tcolor read fdarkcolor write setdarkcolor default clblack; property lightcolor:tcolor read flightcolor write setlightcolor default clwhite; property backcolor:tcolor read fbackcolor write setbackcolor default clbtnface; property size:integer read fsize write setsize; property flat:boolean read fflat write setflat; property caption; {events} property onclick; property ondblclick; property onmousemove; property onmousedown; property onmouseup; property onmouseenter:tnotifyevent read fonmouseenter write fonmouseenter; property onmouseleave:tnotifyevent read fonmouseleave write fonmouseleave; { published declarations } end;</pre></div></div></div><p>Как видим, здесь помимо базовых конструктора create и метода afterconstruction переопределены и методы paint и repaint.</p> <p>Вся функциональность этого компонента в основном заключена в динамических методах drawflat, drawnormal, drawpushed которые отвечают за рисование компонента соответственно в режиме flat, в нормальном приподнятом режиме и в нажатом режиме.</p> <p>Собственно рисование делается с помощью метода canvas.arc, который рисует часть эллипса заданным цветом. Таким образом мы рисуем одну половину темным цветом а другую – светлым и получаем эффект выпуклости. Поменяв местами цвета мы достигаем эффекта «нажатия» для нашей кнопки. Ну а использовав в качестве цвета фона – средний между темным и светлым цветами границы – мы получаем ефект flat:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 35em"><pre>procedure tellipsebutton.drawflat; var x,y:integer; begin canvas.lock; try inherited paint; canvas.brush.color:=backcolor; canvas.pen.color:=clgray; canvas.arc(0,0,width,height,0,height,width,0); canvas.brush.style:=bsclear; canvas.ellipse(clientrect); canvas.font.size:=5; x:=self.clientwidth-canvas.textwidth(caption); x:=x div 2; y:=self.clientheight-canvas.textheight(caption); y:=y div 2; canvas.textrect(self.clientrect,x,y,caption); finally canvas.unlock; end; end; procedure tellipsebutton.drawnormal; var i:integer;x,y:integer; begin canvas.lock; try inherited paint; canvas.brush.style:=bsclear; canvas.brush.color:=backcolor; canvas.pen.color:=darkcolor; canvas.arc(0,0,width,height,0,height,width,0); for i:=0 to fsize do canvas.arc(i,i,width-i,height-i,i,height-i,width-i,i); canvas.pen.color:=lightcolor; canvas.arc(0,0,width,height,width,0,0,height); for i:=0 to fsize do canvas.arc(i,i,width-i,height-i,width-i,i,i,height-i); canvas.brush.style:=bsclear; canvas.font.size:=5; x:=self.clientwidth-canvas.textwidth(caption); x:=x div 2; y:=self.clientheight-canvas.textheight(caption); y:=y div 2; canvas.textrect(self.clientrect,x,y,caption); finally canvas.unlock; end; end; procedure tellipsebutton.drawpushed; var i:integer;x,y:integer; begin canvas.lock; try inherited paint; canvas.brush.style:=bsclear; canvas.brush.color:=backcolor; canvas.pen.color:=lightcolor; canvas.arc(0,0,width,height,0,height,width,0); for i:=0 to fsize do canvas.arc(i,i,width-i,height-i,i,height-i,width-i,i); canvas.pen.color:=darkcolor; canvas.arc(0,0,width,height,width,0,0,height); for i:=0 to fsize do canvas.arc(i,i,width-i,height-i,width-i,i,i,height-i); canvas.brush.style:=bsclear; canvas.font.size:=5; x:=self.clientwidth-canvas.textwidth(caption); x:=x div 2; y:=self.clientheight-canvas.textheight(caption); y:=y div 2; canvas.textrect(self.clientrect,x,y,caption); finally canvas.unlock; end; end;</pre></div></div></div><p>Теперь, оснастив наш компонент необходимыми функциями мы можем приступить к его «причесыванию», т.е. написанию рутинных методов по присвоению значений свойствам и отладке. Первым делом здесь надо реализовать реакцию компонента на события мыши. Это мы делаем посредством методов wmlbuttondown, wmlbuttonup, wmmousemove.</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 35em"><pre>procedure tellipsebutton.wmlbuttondown; begin inherited; paint; end; procedure tellipsebutton.wmlbuttonup; begin inherited; paint; end; procedure tellipsebutton.wmmousemove; begin inherited; if csclicked in controlstate then begin if ptinrect(clientrect,smallpointtopoint(message.pos)) then begin if not fpushed then drawpushed; fpushed:=true; end else begin if fpushed then drawnormal; fpushed:=false; end end; end;</pre></div></div></div><p>Здесь также мы реализуем функциональность свойства flat. (в wmmousemove).</p> <p>Кроме этого мы используем методы cmmouseenter, cmmouseleave для вызова соответствующих обработчиков событий.</p> <p>А также реализовываем метод cmtextchanged для правильного отображения текста кнопки:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 9em"><pre>procedure tellipsebutton.cmtextchanged; begin invalidate; end;</pre></div></div></div><p>Теперь же дело только за методами paint и repaint, которые мы реализовываем следующим образом:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 27em"><pre>procedure tellipsebutton.paint; begin if not fflat then begin if not (csclicked in controlstate) then drawnormal else drawpushed; end else if fdrawflat then drawflat else if not (csclicked in controlstate) then drawnormal else drawpushed; end; procedure tellipsebutton.repaint; begin inherited; paint; end;</pre></div></div></div><p>Все. Теперь наш компонент готов к испытаниям. И перед тем как его регистрировать и кидать на палитру компонентов настоятельно рекомендую Вам проверить его функциональность в runtime режиме. В противном же случае вы рискуете повесить всю ide delphi при добавлении компонента на форму.</p> <p>Проверка компонента<br />Проверка компонента в runtime режиме не вызовет осложнений даже у новичка. Всего-то лишь надо:</p> <p>-создать новое приложение <br />-в секции uses разместить ссылку на модуль с вашим компонентом (ellipsebutton.pas) <br />-объявить переменную типа tellipsebutton <br />-создать компонент, заполнить все его свойства и показать. </p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 35em"><pre>unit main; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, mycontrols; type tform1 = class(tform) ellipsebutton1: tellipsebutton; procedure formcreate(sender:tobject); procedure formdestroy(sender:tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.formcreate(sender:tobject); begin ellipsebutton1:=tellipsebutton.create(self); ellipsebutton1.parent:=self; ellipsebutton1.setbounds(10,10,100,100); ellipsebutton1.visible:=true; end; procedure tform1.formdestroy(sender:tobject); begin ellipsebutton1.free; end; end.</pre></div></div></div><p>После такой, наглядной проверки и отладки вы можете спокойно регистрировать ваш компонент:</p><div class="code-box"><strong class="legend">Код:</strong><div class="blockcode"><div class="scrollbox" style="height: 9em"><pre>procedure register; begin registercomponents('usable', [tellipsebutton]); end;</pre></div></div></div><p>И использовать уже в ваших приложениях для быстрого создания эллипсоидных кнопок.</p> <p>Итоги<br />Теперь, обладая, мастерством рисования, и зная методику написания визуальных компонентов для delphi вы можете преспокойно написать любой замысловатый элемент интерфейса и даже продавать его как отдельный программный продукт за немаленькие деньги.</p> <p>Источник: <a href="http://www.gigabyte.iatp.org.ua" rel="nofollow" target="_blank">http://www.gigabyte.iatp.org.ua</a> Автор: Михаил Продан</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 04:49:09 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=26#p26 https://delphi.forumkz.ru/viewtopic.php?pid=22#p22 <div class="quote-box answer-box"><cite>redasar написал(а):</cite><blockquote><p>Только более подробно, а не куски-переводы с англицкого сайта.</p></blockquote></div><p>Не обещаю но постараюсь (добавлю задачу в стек :D ) по окончании заполненич форума базовой инфой посидеть над переводами статей с википедии.</p><div class="quote-box answer-box"><cite>redasar написал(а):</cite><blockquote><p>Ты в одиночку все это затеял?!</p></blockquote></div><p>Да, пока (я надеюсь только пока) я один. Но уже заинтрерсовал некоторых знакомых. Осталось доупросить их написать парочку статей. Так же я буду очень рад любой помощи от посетителей хоть даже совету.</p><div class="quote-box answer-box"><cite>redasar написал(а):</cite><blockquote><p>От себя могу посерфить мусоросборник и выделить из него наиболее интересные моменты в основной форум (компоненты, исходники, etc)</p></blockquote></div><p>Если все вышеперечисленное не ограничится одним (этим) постом, то был бы очень признателен.</p><div class="quote-box answer-box"><cite>redasar написал(а):</cite><blockquote><p>Да и помодерить на досуге тоже не прочь</p></blockquote></div><p>Ну модераторские права я на основании одних обещаний выдавать разумеется не буду.<br />Для того, чтобы стать модератором на ветке необходимо положительно себя на этой ветке зарекомендовать. В дальнейшем я планирую создать в категории /help создать ветку для приема/удаления модераторов. Но это пока только туманное будущее. Так как форум родился на свет сутки назад в ближайшее время основным критерием отбора в модеры будет десяток другой &quot;полезных&quot; (для развития форума) постов. А пока редасару + себе надежду на сотрудничество. <br />З.Ы. Глядишь как для первого активного посетителя появится больше шансов стать злым модератором.&#160; :D</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 04:21:40 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=22#p22 https://delphi.forumkz.ru/viewtopic.php?pid=21#p21 <p>В данной посте приводятся рекомендации по настройке среды разработки Borland Delphi 7. Следует учитывать, что настройка любой рабочей среды - дело сугубо индивидуальное, и моя задача состоит не в написании некого кодекса, а описание плюсов и минусов выбора той или иной опции, опираясь на собственный опыт.</p> <p>&#160; Вызов окна настройки осуществляется командой Tools | Environment options главного меню Delphi. Окно имеет десять страниц с опциями настройки:<br />Preferences - общие настройки конфигурации окон среды (автосохранение конфигурации, встраиваемость окон IDE и конфигурация окон при компиляции и выполнении приложения).<br />Designer - настройка внешнего вида окна Конструктора формы.<br />Object inspector - настройка Инспектора объектов.<br />Palette - настройка Палитры компонентов Delphi.<br />Library - списки каталогов с файлами, используемыми средой Delphi.<br />Explorer - настойка Обозревателя кода.<br />Type library - настройки редактора библиотеки типов.<br />Environment variables - переменные окружения среды Delphi.<br />Delphi direct - опции обновления файлов среды через web.<br />Internet - настройка работы с файлами и скриптами в Internet-приложениях.</p> <p>&#160; Блок Autosave options осуществляет установку автоматического сохранения редактируемых файлов при компиляции приложения (флажок Editor files) и Рабочего стола текущего проекта при его закрытии (Project desktop). Для второго случая блок Desktop contents определяет, что именно будет сохранено на Рабочем столе: только состояние экрана проекта (Desktop only) или дополнительно будут сохранены символы последней успешной компиляции (Desktop and symbols).</p> <p>&#160; Хотя некоторые из моих знакомых устанавливают флажок Editor files, лично я считаю это неосмотрительным: если внесенные изменения будут сохранены, отменить их будет сложно. Кроме того, иногда полезно при проектировании делать некоторые эксперименты с кодом или компоновкой форм, которые не всегда удачны сразу, и в этом случае придется отменять исправления. Установка этого флажка не приносит защиты от случайной потери исправлений: намного полезнее делать резервную копию проекта после каждого существенного успешного изменения, предварительно не только откомпилировав, но и собрав проект командой [Project | Build [current project].</p> <p>&#160; Если Вы занимаетесь разработкой одного конкретного проекта в течение значительного времени, вам поможет опция Project desktop. Она позволит сохранить не только расположение окон проекта, но и открытые файлы Редактора кода и Конструктора форм. При следующем открытии проекта ваш Рабочий стол Delphi будет выглядеть таким, каким он был при последнем закрытии проекта. Если к тому же установлена опция Desktop and symbols, то будут восстановлены все замечания компилятора, сделанные при последней компиляции перед закрытием проекта.</p> <p>&#160; Флажок Auto drag docking разрешает окнам IDE встраиваться друг в друга. Если он включен, то избежать неуместного встраивания можно, нажав при перемещении окна клавишу [Ctrl]. Некоторым разработчикам склонность окон Delphi к встраиванию мешает в работе. Если вы относитесь к их числу, снимите этот флажок.</p> <p>&#160; Блок опций Compiling and running определяет свойства конфигурации окон при переходе среды в режимы компиляции и выполнения приложения. Вы можете вывести на экран окно информации о ходе процесса компиляции (Show compiler progress), просматривать замечания сборки пакетов при компиляции (Warn on package rebuild), заставить окна среды сворачиваться при запуске приложения на выполнение (Minimize on run) и сделать невидимыми окна проектирования во время выполнения приложения, оставив только окна Отладчика (Hide designers on run). </p> <p>&#160; Использование этих настроек - дело вкуса, но я заметил, что при включенной опции Minimize on run на некоторых компьютерах при возвращении к режиму редактирования Delphi виснет или выдает системную ошибку. Опция Hide designers on run полезна в процессе отладки приложения, позволяя сконцентрироваться на информации Отладчика и убирая ненужные в этом режиме окна разработки.</p> <p>&#160; Поле внизу страницы определяет расположения каталога Депозитария Delphi (файл delphi32.dro). По умолчанию этот файл хранится в каталоге Bin в папке Delphi. Если того не требуют чрезвычайные обстоятельства, оставьте &quot;ребенка&quot; в его &quot;колыбели&quot;…<br />Страница Designer</p> <p>&#160; Блок Grid options позволяет делать видимой сетку на форме (Display grid), привязывать к ней компоненты (Snap to grid) и изменять расстояние между линиями сетки (Grid size). Лично я предпочитаю шаг сетки 4x4 пикселя с автоматическим выравниванием компонентов по сетке. Если мне потребуется выставить положение компонента более точно, то я воспользуюсь комбинациями клавиш [Ctrl -&lt;], [Ctrl -&gt;], [Ctrl - ^] или [Ctrl - v].</p> <p>&#160; Опции описания в проекте новой формы в текстовом формате вместо бинарного (New form as text) и определения новых форм и модулей данных как автоматически создаваемых при запуске приложения (Auto create forms and data modules) я тоже включаю. Первое полезно, поскольку описание в текстовом формате, несмотря на несколько больший размер, позволяет контролировать описание формы и, при необходимости, легко его исправлять &quot;на лету&quot;. А второе позволяет не заботиться на начальных стадиях разработки и отладки о процессах создания и уничтожения форм и модулей данных. Когда придет время, я легко переведу их в статус доступных для создания на странице Forms параметров проекта (Project | Project options…).</p> <p>&#160; Флажок Show component caption полезен тем, что позволяет легко идентифицировать на форме несколько однотипных невизуальных компонентов. Иначе форма выглядела бы так…<br /></p> <p>&#160; При проектировании не менее важно оперативно отслеживать положение и размеры визуальных компонентов, а также другую информацию о дизайне компонентов. Контролировать эту информацию в Инспекторе объектов не всегда удобно. Поэтому установите флажки Show designer hints и Show extended control hints и просматривайте информацию об объекте, просто наведя на него указатель мыши.</p> <p>&#160; C помощью списка SpeedSettings можно быстро настроить цветовую палитру Инспектора объектов по одной из прилагаемых схем. Выбранную схему можно поправить с помощью расположенного ниже списка установки цвета для каждой категории элементов Инспектора объектов. </p> <p>&#160; Блок Options позволяет настроить внешний вид окна Инспектора объектов (сверху вниз): <br />показывать выпадающий список объектов и их классов;<br />отображать классы для всех объектов в списке (т.е. не только для выбранного в настоящий момент);<br />показывать строку состояния;<br />показывать линии сетки между свойствами или событиями;<br />запретить показ неполных строк при изменении вертикального размера окна (если в окне нет других встроенных окон или если Инспектор объектов сам не встроен в другое окно);<br />отображать свойства объекта, доступные только для чтения;<br />выделять жирным шрифтом величины, отличающиеся от заданных по умолчанию.</p> <p>&#160; В основном, использование этих настроек - дело вкуса разработчика. Лично я предпочитаю выделять величины, значения которых отличаются от значений, принятых по умолчанию, чтобы осуществлять более гибкий контроль над проектом. Иногда полезно иметь перед глазами свойства, доступные только для чтения, но, с другой стороны, это может сбивать с толку…</p> <p>&#160; Блок опций References позволяет настроить отображение свойств-объектов в окне Инспектора объектов. Флажок Expand inline позволяет включать список свойств свойства-объекта внутрь списка текущего объекта. Например, если главное меню TMainMenu связано со списком пиктограмм TImageList свойством Images, то возле названия этого свойства появляется значок [+], при нажатии которого выпадает список свойств компонента TImageList. Это очень удобно, потому что можно настроить оба компонента одновременно, контролируя конечный результат. Флажок Show on events page позволяет такие же возможности на странице событий.</p> <p>&#160; Эту страницу настроек можно вызвать командой меню Components | Configure palette или командой Properties всплывающего меню палитры компонентов Delphi.</p> <p>&#160; Если в списке Pages выбрать страницу Палитры, то в списке Components отобразятся все установленные на нее компоненты с указанием на пакет, в котором они описаны и реализованы. Страницу можно добавить в Палитру, переименовать, удалить (если она пустая) и переместить вверх или вниз по списку страниц. Можно изменять состав страниц, скрывая некоторые компоненты кнопкой [Hide] или перетаскивая компоненты из одной страницы в другую.</p> <p>&#160; В список Library path добавляются каталоги, в которых находятся исходные пакеты компонентов. Откомпилированные пакеты *.bpl будут помещаться в папку, указанную в строке BPL output directory, а файлы *.dcp - в папку, указанную в параметре DCP output directory. Наконец, параметр Browsing path определяет каталоги, в которых Проводник кода ищет информацию об идентификаторах.</p> <p>&#160; Все эти параметры задаются по необходимости…</p> <p>&#160; Отображение Обозревателя кода определяется опциями Explorer option. Флажок Automatically show Explorer снимите, если хотите окно Редактора кода сделать шире, не растягивая его над Инспектором объектов. Все-таки, Обозреватель реже нужен, чем Редактор.</p> <p>&#160; Флажок включает выделение в окне Обозревателя незавершенных свойств и методов жирным шрифтом, например, если метод объявлен, но не реализован.</p> <p>&#160; Если нужно, чтобы в окне отображались не только имена объектов, но и синтаксис объявления, то поставьте флажок Show declaration syntax.</p> <p>&#160; Группа опций Explorer sorting позволяют выбрать тип сортировки списка объектов по алфавиту или по последовательности объявления в модуле.</p> <p>&#160; Флажок Finish incomplete syntax позволяет автоматически добавлять в код шаблон реализации незавершенного свойства. В противном случае такая возможность будет только у незавершенных методов.</p> <p>&#160; Группа Initial browser view определяет страницу, которая будет отображаться в Проводнике объектов при его выводе на экран. При этом в окне Проводника будет отображаться информация, определяемая в блоке Browser scope: либо информация только о символах модулей текущего проекта (Project symbols only), либо о символах всех модулей, явно или неявно используемых в проекте, включая модули VCL (All symbols). Последнее не рекомендую ввиду большого избытка информации. Но иногда это необходимо.</p> <p>&#160; Список Explorer categories определяет состав объектов, отображаемых в Обозревателе кода и Проводнике объектов. Здесь все зависит от проекта и предпочтений его разработчика.</p> <p>&#160; Группа SafeCall function mapping определяет, какие функции будут объявлены как SafeCall при преобразовании из Delphi в IDL при генерации библиотеки типов. Здесь важно понимать, что функции SafeCall автоматически применяют соглашение COM для ошибок и исключений, преобразуя код ошибки HResult в исключение. При выборе в блоке Languages языка IDL необходимо будет явно укзывать соглашения вызова как safecall или stdcall.</p> <p>&#160; Можно использовать SafeCall для всех интерфейсов (All v-table interfaces), только для дуальных интерфейсов (Only dual interfaces) или вообще не использовать SafeCall (Do not map).</p> <p>&#160; Значение параметра Language определяет язык для описания интерфейсов в библиотеке типов. Я использую Pascal, хотя более &quot;родным&quot; для Windows и ее приложений является IDL.</p> <p>&#160; Необходимые условия импорта ActiveX-компонентов определяются параметрами Ignore special CoClass flags when importing. Импортируются только те соклассы, для которых сняты соответствующие флаги в этой группе опций. По умолчанию помечен только флаг CanCreate, что позволяет импортировать объект для общего пользования.</p> <p>&#160; Опция Display updates before refreshing включает вывод запроса на подтверждение обновления объекта. В противном случае при редактировании объект будет обновлен без предупреждения.</p> <p>&#160; Имеет два списка: System variables, содержащий переменные окружения IDE Delphi, и User overrides, содержащий переменные, переопределенные пользователем. Переменным первого списка можно добавить переопределение. Ко второму списку можно добавлять свои переменные, изменять и удалять имеющиеся значения.</p> <p>&#160; Если включен флаг Enable debugging, то при ошибке в скрипте будет запущен отладчик, установленный на компьютере. В противном случае будет выдано только сообщение об ошибке.</p> <p>&#160; Мастер приложений Web будет присваивать html-файлам расширение, указанное параметром HTML file extension.</p> <p>&#160; Если истинное изображение недоступно при проектировании, то вместо него будет выводиться рисунок, указанный в поле Sample image file.</p> <p>&#160; В этом окне индикатор Automatically poll network разрешает автоматическое подключение к узлу обновлений Delphi. Не знаю, как вас, а меня раздражает манера некоторых приложений тыкаться в Сеть без моей команды, особенно, когда идет работа над важным участком кода. Поэтому я эту опцию отключаю сразу!</p> <p>&#160; Если вас такие проблемы не мучат, то задайте интервал обновлений (в днях) в параметре Polling interval. Дата последнего подключения будет выводиться в поле Last poll.</p> <p>&#160; Наконец, флаг Automatically show Delphi direct on refresh включит автоматический вывод окна контроля процесса обновления, когда тот начнется.</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 03:22:27 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=21#p21 https://delphi.forumkz.ru/viewtopic.php?pid=16#p16 <p>Сюда постить все найденные ошибки в постах.</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 00:42:15 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=16#p16 https://delphi.forumkz.ru/viewtopic.php?pid=15#p15 <p>Мы охотно рассмотрим предложения по улучшению нашего форума!</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 00:38:11 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=15#p15 https://delphi.forumkz.ru/viewtopic.php?pid=14#p14 <p>Настоятельно советуем-с в этой теме сообщать о всех замеченных (право)нарушениях.</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 00:31:27 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=14#p14 https://delphi.forumkz.ru/viewtopic.php?pid=13#p13 <p>Часть II<br />Q&gt;:<br />(DB2) Можно ли подсоединиться к другой БД из SP?<br />A&gt;:<br />В DB2 можно. Если хочешь все корректно делать, ставь<br />distributed unit of work для всех соединений. Такое с гарантией<br />отработает.</p> <p>Lilya A. Kozlenko<br />li@relex.ru</p> <p>Q&gt;:<br />В процессе работы программы изменилась структура БД (alter table etc.).<br />Программа продолжала успешно открывать таблицы, но запросы посылались в<br />соответствии со старой схемой данных. Как исправить?<br />A&gt;:<br />В установках BDE (Configuration utility или BDEAdmin) можно выставить<br />SCHEMA CACHE = FALSE (не кэшировать схему данных).</p> <p>Но в некоторых случаях ошибки такого рода все-таки происходят. В таком случае<br />необходимо воспользоваться методом TDatabase.FlushSchemaCache после каждого<br />изменения метаданных.</p> <p>Alex Kaganoff<br />(2:5030/82.50)</p> <p>Посмотри настройки BDE &quot;SCHEMA CACHE DIR&quot; , если пусто, то скорее всего в<br />рабочем каталоге твоей программы должен объявиться некий(некие) .ini файл(ы), в<br />котором хранятся указания на файлы, в которых храниция информация о кэше схемы<br />БД. Удали их.<br />/К сожалению точных названий файлов не помню, имел этот гимор имел года<br />полтора назад, убрал кэш и забыл/</p> <p>Sergey Klochkovski<br />(2:5080/60.3)</p> <p>Q&gt;:<br />Как в Delphi сбросить кэш БД на диск?<br />A&gt;:<br />uses BDE {в Delphi 1.x не помню, но вроде bdeprocs};</p> <p>dbiSaveChanges</p> <p>На Delphi 1.x (16bit) дополнительно вызовите эту процедуру -</p> <p>procedure DropCache; assembler;<br />asm<br />&#160; mov ah,$0D<br />&#160; int $21<br />end;</p> <p>Boris Podchezertseff<br />(2:5020/898.15)</p> <p>Q&gt;:<br />Как сделать так, чтобы в DBGrid напротив некоторых строк можно было бы<br />галочку поставить?<br />A&gt;:<br />Ну примерно тaк (лишнее мaло-мaло порезaл, больно много его, но идея виднa :)</p> <p>нa сервере - тaблицa Advertis.DB, первичный ключ ID - autoincrement.<br />Ha локaльном диске - тaблицa Founds.DB, с полем Advertis: integer, по которому<br />есть индекс, и tblFounds.IndexFieldNames = 'Advertis'.</p> <p>Ha гриде:</p> <p>=== cut ===</p> <p>procedure TMainForm.dbgWorkDblClick(Sender: TObject);<br />begin<br />&#160; TriggerRowSelection;<br />end;</p> <p>procedure TMainForm.TriggerRowSelection;<br />begin<br />&#160; if dmFile.AdvertisCount &lt;&gt; 0 then begin<br />&#160; &#160; with dmFile do if not tblFounds.FindKey([tblAdvertisID.Value]) then begin<br />&#160; &#160; &#160; tblFounds.AppendRecord([tblAdvertisID.Value]);<br />&#160; &#160; end else begin<br />&#160; &#160; &#160; tblFounds.Delete;<br />&#160; &#160; end;<br />&#160; &#160; dbgWork.Refresh;<br />&#160; end;<br />end;</p> <p>procedure TMainForm.dbgWorkDrawColumnCell(Sender: TObject;<br />&#160; const Rect: TRect; DataCol: Integer; Column: TColumn;<br />&#160; State: TGridDrawState);<br />begin<br />&#160; if DataCol = 0 then with dmFile, dbgWork.Canvas do begin<br />&#160; &#160; FillRect(Rect);&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; {clear the cell}<br />&#160; &#160; if tblFounds.FindKey([tblAdvertisID.Value]) then begin<br />&#160; &#160; &#160; TextOut(Rect.Left, Rect.Top, 'ь');<br />&#160; &#160; end;<br />&#160; end;<br />end;</p> <p>=== cut ===</p> <p>Окaзывaется, я переопределял рисовaние гридa, a не вычислял поле. Не помню<br />точно, но кaжется, чтобы не перечитывaть тaблицу нa кaждый дaблклик, a только<br />перерисовaть грид.</p> <p>А колонкa для гaлки в гриде определялaсь тaк:</p> <p>=== cut ===<br />&#160; with dmFile, dbgWork.Columns do begin<br />&#160; &#160; BeginUpdate;<br />&#160; &#160; Clear;</p> <p>&#160; &#160; {check mark}<br />&#160; &#160; nc := Add;<br />&#160; &#160; nc.Width := 14;<br />&#160; &#160; nc.Font.Name := 'Wingdings';<br />&#160; &#160; nc.Font.Size := 11;<br />&#160; &#160; nc.Alignment := taRightJustify;<br />&#160; &#160; nc.Title.Caption := 'ю';<br />&#160; &#160; nc.Title.Font.Name := 'Wingdings';<br />&#160; &#160; nc.Title.Font.Size := 10;<br />&#160; &#160; nc.Title.Alignment := taCenter;</p> <p>[skip определения остaльных колонок]</p> <p>&#160; &#160; EndUpdate;<br />&#160; end;</p> <p>=== cut ===</p> <p>Вроде всё.<br />Ну, кaк нaпечaтaть/обрaботaть только помеченное, сaм рaзберёшься. У меня тaм<br />нaкручено чего-то с фильтрaми, думaю, можно проще.</p> <p>Что кaсaется других способов - можно вместо временной тaблицы попользовaть<br />список, мaссив или in-memory table.</p> <p>Dmitry Shikhman (Дмитрий Шихман)<br />(2:468/13.32)</p> <p>Q&gt;:<br />(PX) Что нужно сделать для нормальной работы в одноранговой сети<br />с базами Paradox?<br />A&gt;:<br />BDE Config/Admin - нa вклaдке System устaнови LOCAL SHARE в TRUE!</p> <p>Здесь комментарий -</p> <p>В Help параметр LOCAL SHARE описан как:<br />AA&gt; === Cut ===<br />AA&gt; The ability to share access to local data between an active BDE<br />AA&gt; application and an active non-BDE application.&#160; Set to TRUE if you need to<br />AA&gt; work with the same files through both a BDE and a non-BDE application at<br />AA&gt; the same time.&#160; (It is not necessary to set LOCAL SHARE to TRUE if you do<br />AA&gt; not need to have both applications open at the same time.)&#160; Default: FALSE.<br />AA&gt; === Cut ===</p> <p>Дaк читaл я вышеизложенное, и рaсценивaю его кaк тумaнопускaтельство. А<br />подозревaю, что просто у BDE для скорости есть свой внутренний кэш (или, может,<br />мехaнизм блокировок в пaмяти), и для двух приложений _нa_одном_компьютере_ оно<br />всё делaет хорошо, a вот если приложение нaходится нa другом компьютере (и<br />лезет в БД через другую копию BDE), то у него есть доступ только к фaйлaм нa<br />диске (кaк и у non-BDE application).</p> <p>Скорее всего, борлaнд отключaет эти хитрости у сетевых дисков. Но для<br />_локaльного_ дискa, который рaсшaрен по сети, он этого, похоже, не сделaл :(<br />И BDE нa фaйл-сервере не зaботится о прaвильных индексaх и блокировкaх нa диске<br />(т.е. не ожидaет, что кто-то мог испрaвить индекс, покa оно ворон считaло).</p> <p>А этa устaновкa _зaстaвляет_ его рaботaть по стaрым пaрaдоховым соглaшениям.</p> <p>Что и требовaлось.</p> <p>PS Инaче говоря, следует считaть, что network is non-BDE application, и тогдa<br />это не есть бaгa :)</p> <p>Dmitry Shikhman (Дмитрий Шихман)<br />(2:468/13.32)</p> <p>Q&gt;:<br />(IB) При попытке регистрации UDF возникает ошибка (udf not defined).<br />Что не так?<br />A&gt;:<br />1) Располагайте DLL в каталоге Interbase/Bin, или в одном из каталогов,<br />в которых ОС обязательно будет произведен поиск этой библиотеки<br />(для Windows это %SystemRoot% и %Path%);<br />2) При декларировании функции не следует указывать расширение модуля (в Windows<br />по умолчанию DLL):</p> <p>declare external function f_SubStr<br />&#160; cstring(254), integer, integer<br /> returns<br />&#160; cstring(254)<br /> entry_point &quot;Substr&quot; module_name &quot;UDF1&quot;</p> <p>Где UDF1 - UDF1.DLL.</p> <p>Alexey Malinin<br />(2:5057/19.18)</p> <p>Q&gt;:<br />При выполнении некоторых живых запросов, возвращающих единственную запись,<br />BDE ругается &quot;multiple records found, but only one was expected&quot;. Как лечить?<br />A&gt;:<br />Запросы вида</p> <p>&#160; SELECT c, b, a, q FROM T WHERE b = :b,</p> <p>где ключ c, но Дельфы посчитали ключом&#160; a. Интересный запрос, да? Такое<br />впечатление, что, поскольку ключом в исходной таблице являлсь третья колонка,<br />то Дельфы посчитали ключом третью колонку. Перестановкой SELECT a, b, c, q...<br />все исправилось. Я решил теперь использовать в таких (live) запросах только<br />SELECT *.</p> <p>Victor V. Metelitsa<br />(2:5077/13)</p> <p>Q&gt;:<br />Требуется информация о принципе и порядке работы с TUpdateSQL<br />для работы с неживыми запросами.<br />A&gt;:<br />Кидаешь UpdateSQL на форму, после чего в том SQL, который ты собираешься<br />редактировать, устанавливаешь в UpdateObject имя этого UpdateSQL. После этих<br />дел по дабл-клику на UpdateSQL выдаётся редактор, в котором ты должен для<br />каждой из таблиц,входящих в твой запрос, указать набор полей, являющихся<br />уникальным ключём _таблицы_, и набор полей, которые требуется редактировать.<br />В общем случае возможны глюки с редактированием, если в числе изменяемых полей<br />будут элементы ключа. Указав все поля, давишь кнопку Generate SQL и в<br />результате у тебя генерятся запросы на редактирование, добавление и удаление,<br />которые прописываются в том же UpdateSQL. Обычно эти запросы никакого<br />дополнительного редактирования не требуют. После всех<br />этих дел ты можешь нормально редактировать запрос, как обычную таблицу.</p> <p>Некоторые моменты.</p> <p>Для того, чтобы всё это нормально работало, нужно, чтобы в TQuery были включены<br />RequestLive и CashedUpdates. Соответственно, для подтверждения изменений нужно<br />вызывать TQuery.ApplyUpdates и TQuery.CommitUpdates, либо<br />TDatabase.ApplyUpdates, а для отмены - CancelUpdates.</p> <p>Если меняешь структуру таблиц, то не забывай менять&#160; списки полей в UpdateSQL,<br />иначе можешь получить неприятный сюрприз - будешь долго сидеть и думать,<br />почему при редактировании/добавлении некоторые поля не прописываются :-).</p> <p>-- Отрезано --</p> <p>Насчёт CachedUpdates.<br />Сия хреновина придумана для того, чтобы обеспечить сохранение/отмену<br />редактирования/добавления/удаления сразу нескольких записей. Принцип<br />совершенно элементарен: если CachedUpdates&#160; включен, то все производимые<br />изменения в датасете по команде Post фиксируются не в базе, а во временном<br />файле на винте клиента. Для того, чтобы прописать изменения в таблице<br />(физически), необходимо вызвать для соответствующего запроса последовательно<br />методы ApplyUpdates и CommitUpdates, а для отмены ВСЕХ изменений (начиная от<br />последнего выполненного CommitUpdates), вызвать CancelUpdates.<br />Кроме того, метод ApplyUpdates у TDataBase. Этому методу нужен список<br />датасетов, и он производит их обновление в одной транзакции.</p> <p>Практическое применение, например, такое: на форме редактирования с<br />гридом и набором кнопок Добавить, Удалить, Редактировать, ОК, Отмена,<br />вешаешь на первые три кнопки обработчики с Insert, Delete и Edit<br />соответственно,на ОК - такой примерно обработчик:</p> <p>with DataSet do begin<br />&#160; if State in [dsEdit,dsInsert] then Post;<br />&#160; ApplyUpdates;<br />&#160; CommitUpdates;<br />end;</p> <p>а на Отмену такой:</p> <p>with DataSet do begin<br />&#160; if State in [dsEdit,dsInsert] then Cancel;<br />&#160; CancelUpdates;<br />end;</p> <p>В результате юзер может редактировать хоть всю таблицу, но если<br />успеет спохватиться, то может отменить все свои художества.<br />Только желательно на выходе из формы проверить, сохранены ли<br />изменения,и если нет, то напомнить/переспросить.</p> <p>Ivan Kudryashov<br />jony@chat.ru</p> <p>Q&gt;:<br />(DB2) Как заставить работать DB2 через протокол IPX?<br />A&gt;:<br />=== begin DB2IPX.TXT ===<br />Связь Win-клиента c DB2 в сети Netware</p> <p>&#160; &#160; &#160; &#160; &#160; &#160;Настройка доступа к DB2<br />&#160; &#160; &#160; &#160; &#160;--------------------------</p> <p>&#160; 1. Связь с использованием протокола IPX/SPX.<br />-----------------------------------------------</p> <p>Возможны два варианта доступа:<br />&#160; &#160; &#160; &#160; - через сервер NETWARE;<br />&#160; &#160; &#160; &#160; - прямая адресация.</p> <p>&#160; 1.1. Конфигурация для доступа через сервер.<br />------------------------------------------------------</p> <p>Замечание. Проверялся доступ через сервера NW 3.11 и 3.12.<br />&#160; &#160; &#160; &#160; &#160; &#160;Для 4.х нужно еще разобраться.</p> <p>&#160; 1.1.1.&#160; DB2 Сервер.<br />---------------------</p> <p>- должна быть установлена OS/2 Warp или OS/2 Warp Connect.</p> <p>- включена поддержка NETWARE;</p> <p>- в CONFIG.SYS в переменную среды DB2COMM добавить (через запятую) IPXSPX и<br />перезагрузить систему;</p> <p>- создать командный файл DBIPXSET.CMD :<br />&#160; |------------------------------------------------------------------<br />&#160; |db2 update dbm cfg using fileserver &lt;NWSERVER&gt; objectname dbserver<br />&#160; |------------------------------------------------------------------<br />&#160; &#160; &#160; &#160; где - &lt;NWSERVER&gt; - имя сервера;</p> <p>- выполнить командный файл DBIPXSET.CMD ;</p> <p>- перестартовать сервер базы данных;</p> <p>- создать командный файл DBIPXREG.CMD :<br />&#160; |----------------------------------------------------------------<br />&#160; |db2 register nwbindery user &lt;USERNAME&gt;<br />&#160; |----------------------------------------------------------------<br />&#160; &#160; &#160; &#160; где - &lt;USERNAME&gt; - имя пользователя, обладающего правами<br />администратора на сервере &lt;NWSERVER&gt; ;</p> <p>- выполнить командный файл DBIPXREG.CMD ;</p> <p>- ответить на запрос пароля.</p> <p>&#160; 1.1.2. WINDOWS - клиент.<br />--------------------------</p> <p>- установить WINDOWS 3.1 или WfWG 3.11;</p> <p>- установить клиента NETWARE от версии 4.х<br />- при установке влючить поддержку WINDOWS;<br />- установить клиента DB2 для WINDOWS;<br />- используя программу Client Setup описать новый узел - сервер базы<br />данных :<br />&#160; &#160; &#160; &#160; Name - &lt;любое имя&gt;<br />&#160; &#160; &#160; &#160; Protocol - IPX/SPX<br />&#160; &#160; &#160; &#160; File server - &lt;NWSERWER&gt;<br />&#160; &#160; &#160; &#160; Object name - dbserver<br />- описать базу данных и разрешить доступ к ней через ODBC.</p> <p>&#160; 1.2. Конфигурация для доступа через прямую адресацию<br />----------------------------------------------------------</p> <p>&#160; 1.2.1.&#160; DB2 Сервер.<br />---------------------</p> <p>- см. п 1.1.1.</p> <p>- найти в директории x:\sqllib\misc программу&#160; DB2IPXAD.EXE и<br />выполнить ее;<br />- записать полученный адрес.</p> <p>&#160; 1.2.2. WINDOWS - клиент.<br />--------------------------</p> <p>- см. п. 1.1.2. (первые три);<br />- используя программу Client Setup описать новый узел - сервер базы<br />данных :<br />&#160; &#160; &#160; &#160; Name - &lt;любое имя&gt;<br />&#160; &#160; &#160; &#160; Protocol - IPX/SPX<br />&#160; &#160; &#160; &#160; File server - *<br />&#160; &#160; &#160; &#160; Object name - &lt;адрес полученный от DB2IPXAD.EXE&gt;<br />-&#160; описать базу данных и разрешить доступ к ней через ODBC.</p> <p>=== end DB2IPX.TXT ===</p> <p>Sergei Babain<br />(2:5058/88.23)</p> <p>Q&gt;:<br />Можно ли в TDBGrid pазpешить только опеpации UPDATE записей<br />и запpетить INSERT/DELETE ? И как это сделать?<br />A&gt;:<br />А я делаю так. а DataSource к которому прицеплен Grid вешаю Event OnStateChange<br />при ентом обрабатываю</p> <p>if DBGrid1.DataSource.DataSet.State in [dsEdit, dsInsert] then<br />&#160; &#160;DBGrid1.Options:=DBGrid1.Options+goRowSelect<br />else<br />&#160; &#160;DBGrid1.Options:=DBGrid1.Options-goRowSelect;</p> <p>Дело в том что если у Grid'а стоит опция goRowSelect из Grid'а невозможно<br />добавить запись. у а когда програмно вызываешь редактирование то курсор<br />принимает обычный вид и все Ok Ob.</p> <p>Denis Kim<br />(2:5020/799.2)</p> <p>Лучше &quot;not State in dsEditModes&quot;</p> <p>Max Belugin<br />(2:5020/484.28)<br />belugin@bsd.lanit.ru</p> <p>Q&gt;:<br />(MSSQL) Как поймать свой RAISEERROR в Delphi?<br />A&gt;:<br />Отлавливать нужно NativeCode напpимеp так:</p> <p>procedure TFDMUtils.GeneralError(DataSet: TDataSet; E: EDatabaseError;<br />&#160; var Action: TDataAction);<br />&#160; var i: Word;<br />&#160; &#160; &#160; ExtInfo : String;<br />begin<br />&#160; ExtInfo := '';</p> <p>if (E is EDBEngineError) then begin<br />&#160; if (EDBEngineError(E).Errors[0].NativeError = 0) then begin // Local Error<br />&#160; &#160; &#160; &#160; &#160;if EDBEngineError(E).Errors[0].Errorcode = 9732 then<br />&#160; &#160; &#160; &#160; &#160; &#160; ExtInfo := DataSet.FieldByName(trim(copy(E.Message,<br />29,20))).DisplayLabel;<br />.......................................<br />&#160; &#160; &#160; end else begin&#160; &#160; &#160; &#160;// Remote SQL Server error<br />&#160; &#160; &#160; &#160; &#160; ExtInfo := ExtractFieldLabels(DataSet, E.Message);<br />&#160; &#160; &#160; &#160; &#160; case EDBEngineError(E).Errors[0].NativeError of<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;233, 515 :<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Alert('Ошибка','Не все поля заполнены ! '+ExtInfo );<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;547&#160; &#160; &#160; :<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;if (StrPos(PChar(E.Message), PChar('DELETE')) &lt;&gt; nil ) then<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Alert('Ошибка пpи удалении','Имеются подчиненные записи,<br />удаление (изменение) невозможно! '+ExtInfo )<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;else<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;if (StrPos(PChar(E.Message), PChar('INSERT')) &lt;&gt; nil ) then<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Alert('Ошибка пpи вставке','Отсутствует запись в<br />МАСТЕР-таблице! '+ExtInfo )<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;else<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;if (StrPos(PChar(E.Message), PChar('UPDATE')) &lt;&gt; nil ) then<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Alert('Ошибка пpи обновлении','Отсутствует запись в<br />МАСТЕР-таблице! '+ExtInfo );<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;2601&#160; &#160; &#160;:<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Alert('Ошибка','Такая запись уже есть!' );<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;else<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;Alert('Ошибка','Неизвестная ошибка, код - '+<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; inttostr(EDBEngineError(E).Errors[0].NativeError)<br />+ExtInfo);<br />&#160; &#160; &#160; &#160; &#160; end;<br />&#160; &#160; &#160; end;<br />&#160; end;<br />end;<br />------------------------------------------------------<br />Этот код был заточен под MSSQL, но не нужно пытаться его использовать, а лучше<br />по этому пpимеpу написать свою.</p> <p>Sergey Gristchuk<br />gristchuk@usa.net<br />(2:463/209.31)</p> <p>&gt; --- added in v3<br />Q&gt;:<br />Как заставить компонент реагировать на изменения в TDataSource?<br />A&gt;:<br />TFieldDataLink. За D2 не скажу, а в D1 в Help'е его нет, pеализован в<br />\DELPHI\SOURCE\VCL\DBTABLES.PAS.</p> <p> VV&gt;&#160; &#160;Более конкретный вопрос: Как заставить произвольные объекты<br /> VV&gt; (предположительно формы) реагировать на изменения в каком-то DataSource?</p> <p>type<br />&#160; TMyForm = class(TForm)<br />&#160; &#160; {...}<br />&#160; &#160; Table1: TTable;<br />&#160; &#160; DataSource1: TDataSource;<br />&#160; private<br />&#160; &#160; FDL : TFieldDataLink;<br />&#160; &#160; procedure RecChange(Sender: TObject);<br />&#160; public<br />&#160; &#160; {...}<br />&#160; end;</p> <p>procedure TMyForm.FormCreate(Sender: TObject);<br />begin<br />&#160; FDL:=TFieldDataLink.Create;<br />&#160; FDL.OnDataChange:=RecChange;<br />&#160; FDL.DataSource:=DataSource1;<br />&#160; FDL.FieldName:='MyFieldName';<br />end;</p> <p>procedure TTabEditDlg.FormDestroy(Sender: TObject);<br />begin<br />&#160; FDL.Free;<br />end;</p> <p>procedure TTabEditDlg.MasterChange(Sender: TObject);<br />begin<br />&#160; {... тут pеагиpуй на изменения ...}<br />end;</p> <p>Eugene Polkin<br />(2:5001/12.3)</p> <p>Q&gt;:<br />В Delphi 3 ползунок TDBGrid иногда может находится не только в трех<br />фиксированных позициях. Что для этого нужно?<br />A&gt;:<br />Здесь отрывки из исходников VCL -</p> <p>==========<br />unit DBGrids;<br />procedure TCustomDBGrid.UpdateScrollBar;<br />var<br />&#160; SIOld, SINew: TScrollInfo;<br />begin</p> <p>[skipped]</p> <p>&gt;&#160; &#160; &#160; if IsSequenced then</p> <p>&#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; SINew.nMin := 1;<br />&#160; &#160; &#160; &#160; SINew.nPage := Self.VisibleRowCount;<br />&#160; &#160; &#160; &#160; SINew.nMax := RecordCount + SINew.nPage -1;<br />&#160; &#160; &#160; &#160; if State in [dsInactive, dsBrowse, dsEdit] then<br />&#160; &#160; &#160; &#160; &#160; SINew.nPos := RecNo;&#160; // else keep old pos<br />&#160; &#160; &#160; end<br />&#160; &#160; &#160; else<br />&#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; SINew.nMin := 0;<br />&#160; &#160; &#160; &#160; SINew.nPage := 0;<br />&#160; &#160; &#160; &#160; SINew.nMax := 4;<br />&#160; &#160; &#160; &#160; if BOF then SINew.nPos := 0<br />&#160; &#160; &#160; &#160; else if EOF then SINew.nPos := 4<br />&#160; &#160; &#160; &#160; else SINew.nPos := 2;<br />&#160; &#160; &#160; end;</p> <p>[skipped]</p> <p>unit dbtables;<br />function TBDEDataSet.IsSequenced: Boolean;<br />begin<br />&#160; Result := (FRecNoStatus = rnParadox) and (not Filtered);<br />end;<br />==========</p> <p>Ilya Andreev<br />(2:5030/55.28)</p> <p>То есть, к примеру, все будет работать &quot;красиво&quot; на таблицах BDE, если они:<br /> а) таблицы Paradox;<br /> б) на них не установлен фильтр.<br />TClientDataSet в режиме singletier (briefcase) также работает &quot;красиво&quot;.</p> <p>Q&gt;:<br />(Desktop) Можно ли использовать результаты выполнения одного TQuery для другого TQuery?<br />A&gt;:<br />Если Вы работаете с локальными БД, то Вам поможет -</p> <p>DbiMakePermanent(SourceQuery.Handle, RName, false);</p> <p>Ilya Andreev<br />(2:5030/55.28)<br />Sergey Sukhanov<br />(2:5019/1.32)</p> <p>Q&gt;:<br />(DB2/NT) Как создать БД в кодировке CP1251?<br />A&gt;:<br />&#160; &#160; &#160;Вот такая конструкция проходит на DB2 2.1.2/NT и UDB5/NT...</p> <p>=== Cut ===<br />CREATE&#160; DATABASE Efes2<br /> USING CODESET 1251 TERRITORY RU<br /> COLLATE USING IDENTITY;<br />=== Cut ===</p> <p>Ilia Starkov<br />(2:5061/2.21)</p> <p>Q&gt;:<br />(Oracle) Подскажите, как на Oracle 7.3.2.3 (Solaris x86) поменять compatible на<br />7.3.2.3 (c 7.1.0.0)?<br />A&gt;:<br />Ставить в initmybase.ora<br /> compatible = &quot;7.3.2.3&quot;<br />и после старта с новым параметром сделать<br />ALTER DATABASE RESET COMPABILITY;<br />И рестартовать базу.</p> <p>Alexander Medvedev<br />(2:5010/3.88)</p> <p>Q&gt;:<br />(IB) Как получить результирующим полем разницу между хранимой датой и текущей<br />датой?<br />A&gt;:<br />&#160; &#160;SELECT CAST((поле_с_датой -&quot;NOW&quot;) AS INTEGER)<br />&#160; &#160;FROM MyBase</p> <p>Получишь результат в днях.</p> <p>Andrey K.Yazev<br />(aky@infra.sar.nnov.ru)</p> <p>Q&gt;:<br />(D3) Как добится верной работы фильтра на запросах и на неиндексированных таблицах?<br />(Т.е. при работе программы наблюдалась следующая картина:<br />в результате очередной фильтрации оставалось<br />видно 4 записи из восьми. Добавляем букву к фильтру, остается, допустим,<br />две. Убираем букву, которую только что добавили, в гриде все равно видно<br />только две записи.)<br />A&gt;:<br />Эта проблема была в D3 только на TQuery, а в D3.01 появилась и в TTable.<br />Лечится так (простой пример):</p> <p>procedure TMainForm.Edit1Change(Sender: TObject);<br />begin<br />&#160; if length(Edit1.Text) &gt; 0 then begin<br />&#160; &#160; Table1.Filtered := TRUE;<br />&#160; &#160; UpdateFilter(Table1);<br />&#160; end<br />&#160; else Table1.Filtered := FALSE;<br />end;</p> <p>procedure TMainForm.UpdateFilter(DataSet: TDataSet);<br />var<br />&#160; FR: TFilterRecordEvent;<br />begin<br />&#160; with DataSet do begin<br />&#160; &#160; FR := OnFilterRecord;<br />&#160; &#160; if Assigned(FR) and Active then begin<br />&#160; &#160; &#160; DisableControls;<br />&#160; &#160; &#160; try<br />&#160; &#160; &#160; &#160; OnFilterRecord := nil;<br />&#160; &#160; &#160; &#160; OnFilterRecord := FR;<br />&#160; &#160; &#160; finally<br />&#160; &#160; &#160; &#160; EnableControls;<br />&#160; &#160; &#160; end;<br />&#160; &#160; end;<br />&#160; end;<br />end;</p> <p>Pavel Krasikov<br />(2:5005/7)</p> <p>&gt; --- changed in v3<br />Q&gt;:<br />(PX, DBF) Подскажите, плз, как упаковать базу (dBase,Paradox) в runtime?<br />A&gt;:<br />Для dBase:</p> <p> uses<br />&#160; &#160;DbiProcs;</p> <p> with Table do<br /> begin<br />&#160; &#160;OldState := Active; Close;<br />&#160; &#160;Exclusive := True; Open;</p> <p>&#160; &#160;DbiPackTable(DBHandle, Handle, nil, nil, True);<br />&#160; &#160;{^ здесь можно добавить check()}</p> <p>&#160; &#160;Close; Exclusive := False;<br />&#160; &#160;Active := OldState;<br />&#160; &#160;{ при желании можно сохранить закладку }<br /> end;</p> <p> Для Paradox:</p> <p> DbiDoRestructure(DBHandle, 1, ?, nil, nil, nil, False); { см. dbiProcs.int }</p> <p> Вместо ? указатель на массив длинных таких структур с описанием<br />реструктуризации. Кто делал на Px, я думаю, дадут пример.</p> <p>Pavel Kulchenko<br />(2:465/66)</p> <p>Это насчет упаковки db (может что-то и лишнее, что-то можно<br />сделать по-дpугому, но pаботает )</p> <p>Пpимеp для Paradox:</p> <p>Uses BDE; // for D3, для D2 непомню (что-то типа DbiProc и еще что-то)</p> <p>// для пpимеpа<br />tLog : TTable; // таблица юзающая d:\db\log.db</p> <p>var<br />&#160; &#160; &#160;TblDesc:&#160; CRTblDesc;<br />&#160; &#160; &#160;rslt&#160; &#160;:&#160; DBIResult;<br />&#160; &#160; &#160;Dir&#160; &#160; :&#160; String; //имеется в виду huge string т.е. {$H+}<br />&#160; &#160; &#160;hDb&#160; &#160; :&#160; hDbiDb;</p> <p>begin<br />&#160; tLog.Active:=False; //деактивиpуем TTable</p> <p>&#160; SetLength(Dir, dbiMaxNameLen + 1);<br />&#160; DbiGetDirectory(tLog.DBHandle, False, PChar(Dir));<br />&#160; SetLength(Dir, StrLen(PChar(Dir)));</p> <p>&#160; DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0, nil, nil, hDb);</p> <p>&#160; DbiSetDirectory(hDb, PChar(Dir));</p> <p>&#160; FillChar(TblDesc, sizeof(CRTblDesc), 0);<br />&#160; StrPCopy(TblDesc.szTblName, 'd:\db\log.db');<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; // здесь должно быть полное имя файла<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; //котоpое можно: а) ввести pуками;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; //б) вытащить из пpопеpтей таблицы;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; //в) вытащить из алиаса;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; //г) см. FAQ<br />&#160; StrCopy(TblDesc.szTblType, szParadox);<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;//BTW тут может и szDBase стоять</p> <p>&#160; TblDesc.bPack := TRUE;</p> <p>&#160; DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False);<br />&#160; DbiCloseDatabase(hDb);</p> <p>end;</p> <p>// можно еще чеки ввести, но облом :-)</p> <p>Robert Gluvchinskiy<br />(2:463/102.108)</p> <p>&gt; --- added in v2<br />Q&gt;:<br />Неожиданно возник следующий вопрос :<br />Каким образом можно узнать где физически располагается локальная база<br />данных, если известно имя Alias-а ?<br />A&gt;:<br />1. По таблице (фактически по Database) получить физическое местонахождение.<br /> Прим. Database можно создать явно, если нет, Дельфи сама его создаст, доступ<br />по Table(Query).Database</p> <p>uses<br />&#160; DbiProcs;</p> <p>function GetDirByDatabase(Database: TDatabase): string;<br />var<br />&#160; pszDir: PChar;<br />begin<br />&#160; pszDir := StrAlloc(255);<br />&#160; try<br />&#160; &#160; DbiGetDirectory(Database.Handle, True, pszDir);<br />&#160; &#160; Result := StrPas(pszDir);<br />&#160; finally<br />&#160; &#160; StrDispose(pszDir);<br />&#160; end;<br />end;</p> <p>2. По алиасу.</p> <p>function GetPhNameByAlias(sAlias: string): string;<br />var<br />&#160; Database: TDatabase;<br />&#160; pszDir: PChar;<br />begin<br />&#160; Database := TDatabase.Create(nil);&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160;{allocate memory}<br />&#160; pszDir := StrAlloc(255);<br />&#160; try<br />&#160; &#160; Database.AliasName := sAlias;<br />&#160; &#160; Database.DatabaseName := 'TEMP';&#160; &#160;{requires a name -- is ignored}<br />&#160; &#160; Database.Connected := True;&#160; &#160; {connect without opening any table}<br />&#160; &#160; DbiGetDirectory(Database.Handle, True, pszDir);&#160; &#160; &#160;{get the dir.}<br />&#160; &#160; Database.Connected := False;&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; {disconnect}<br />&#160; &#160; Result := StrPas(pszDir);&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; {convert to a string}<br />&#160; finally<br />&#160; &#160; Database.Free;&#160; &#160; &#160; <br />&#160; &#160; StrDispose(pszDir);<br />&#160; end;<br />end;</p> <p>Pavel Kulchenko<br />(2:465/66)</p> <p>Q&gt;:<br />Как записать в BLOB поле большой текст (&gt;255) из DELPHI?<br />A&gt;:<br />var S: TBlobStream;<br />&#160; &#160; B: pointer;<br />&#160; &#160; c: integer;</p> <p>Table1.Edit;<br />S := TBlobStream.Create(Table1BlobField as TBlobField, bmWrite); {кажется, так}<br />C := S.Write(B, C);<br />Table1.Post;<br />S.Destroy;</p> <p>или так</p> <p>var S: TMemoryStream;<br />&#160; &#160; B: pointer;<br />&#160; &#160; C: integer;</p> <p>S := TMemoryStream.Create;<br />...<br />Table1.Edit;<br />S.Clear;<br />S.SetSize(C);<br />C := S.Write(B,C);<br />(Table1BlobField as TBlobField).LoadFromStream(S);<br />S.Clear;<br />Table1.Post;<br />...<br />S.Destroy;</p> <p>Alexey Kats<br />(2:463/201.9)</p> <p>Q&gt;:<br />(DBF) Как открыть индексированную таблицу dBase, если нет файла *.MDX?<br />A&gt;:<br />Для DBASE-таблицы встроенными средствами ты не перестроишь индекс,<br />если его нет.&#160; Для этой цели мне пришлось написать процедуру для<br />физического удаления признака индексации в самом dbf файле и после ее<br />применения добавлять индексы заново. Для этого в заголовок файла dbf<br />по смещению 28(dec) записываешь 0. По другому никак не выходит(я долго<br />бился)- вот для Paradox таблиц все Ok.</p> <p>Олег (GOS)<br />oleg@avia.cmw.ru</p> <p>Q&gt;:<br />(MSSQL) Можно ли вызвать Stored Procedure через TQuery, если она<br />не возвращает курсора?<br />A&gt;:<br />В случае MS SQL нужно написать:<br />Query1.Sql:='declare @res'+#13#10+'exec MyFunc :Param1,:Param2,@res OUTPUT';<br />Query1.Open;<br />Result:=Query1.FieldByName('Column1').Value;<br />Query1.Close;</p> <p>Konstantin Suslov<br />(2:5020/300.16)</p> <p>Q&gt;:<br />(Oracle) Как настроить Personal Oracle с русским языком на корректную работу<br />с числами и BDE?<br />A&gt;:<br />прописать в \HKEY_LOCAL_MACHINE\SOFTWARE\ORACLE параметр:<br />NLS_NUMERIC_CHARACTERS = '.,'<br />или<br />после соединения с ORACLE выполнить<br />ALTER SESSION SET NLS_NUMERIC_CHARACTERS = '.,'</p> <p>Aleksei Alekseenko<br />(2:5030/548.2)<br />Voice phone: 007-812-694-8625</p> <p>Q&gt;:<br />(MSSQL) Как настроить MS SQL Server 6.5 на корректную работу<br />с числами и BDE при выполнении UPDATE?<br />A&gt;:<br />&#160; Дело в том, что SQL Links на _NT_ишном клиенте шлет на сеpвеp дату как<br />1-янв-97, что сеpвеp не пpиемлет. Совеpшенно случайно я нашел системный скpипт,<br />котоpый подключает pусский и болгаpский языки.</p> <p>&#160; &#160;- выполни sp_configure и убедись, что у тебя default sortorder id==106 (rus<br />case insens) или 105 (rus case sens). Если нет - пеpеставь сеpвеp.</p> <p>&#160; &#160;- найди в каталоге c:\mssql\install скpипт instlang.sql и запусти его.</p> <p>&#160; &#160;- либо pуками каждому пpоставь каждому логину, pаботающему с NT, язык<br />pусский, либо поставь его как default language сеpвеpу. В этом случае 95-м<br />клиентам пpидется pуками пpописать в логине язык us_english, иначе они<br />пеpестанут pаботать.</p> <p>&#160; &#160;Для установки russian как default надо выполнить скpипт:</p> <p>&#160; &#160;exec sp_configure 'default language', 2<br />&#160; &#160;go<br />&#160; &#160;reconfigure<br />&#160; &#160;go</p> <p>Vadim Shcolin<br />vadim@vsh.spb.su<br />(2:5030/87.91)</p> <p>Q&gt;:<br />Как научить VCL делать Refresh для запросов правильно?<br />Особенно интересует Refresh для связки Master-Detail.<br />A&gt;:<br />(IB?)<br />Старо как мир, и нет ничего военного:</p> <p>=== Cut ===<br />procedure&#160; RefreshQuery (Query : TQuery; F : boolean);<br />var B : TBookMark;<br />begin<br /> with Query do<br />&#160; &#160;if Query.Active then<br />&#160; &#160;begin<br />&#160; &#160; &#160;B:=GetBookMark;<br />&#160; &#160; &#160;try<br />&#160; &#160; &#160; &#160;Close;<br />&#160; &#160; &#160; &#160;Unprepare;&#160; {Если не поставить этого, то если используется select<br />SP, то иногда последующая операция вешает сервер.<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; Кто скажет почему?!}<br />&#160; &#160; &#160; &#160;Active:=True;<br />&#160; &#160; &#160; &#160;if F then begin<br />&#160; &#160; &#160; &#160; &#160;try<br />&#160; &#160; &#160; &#160; &#160; &#160;GotoBookMark(B)<br />&#160; &#160; &#160; &#160; &#160;except<br />&#160; &#160; &#160; &#160; &#160; &#160;on EDatabaseError do First;<br />&#160; &#160; &#160; &#160; &#160;end<br />&#160; &#160; &#160; &#160;end<br />&#160; &#160; &#160; &#160;else First;<br />&#160; &#160; &#160;finally<br />&#160; &#160; &#160; &#160;FreeBookmark(B);<br />&#160; &#160; &#160;end;<br />&#160; &#160;end;<br />end;<br />=== Cut ===</p> <p>Eugene Zhilkin<br />(2:461/88)</p> <p>Уфф! Кажется, лyчше yже не сделать. :)</p> <p>dbtables можно опционально пpопатчить (см.в конце), чтобы иметь такой вот<br />pyлезный Detail query.</p> <p>&gt;== Режем pаз ==&lt;</p> <p>Update for dbtables.pas</p> <p>&#160; &#160; New interface function DoRefreshQuery can Refresh TQuery component in<br />master-detail scheme and alone.<br />&#160; &#160; TQuery.RefreshParams should be updated</p> <p>function GetFieldNamesStr(DataSet: TDataSet): String;<br />var<br />&#160; I: Integer;<br />begin<br />&#160; Result := '';<br />&#160; with DataSet do<br />&#160; &#160; for I := 0 to FieldCount - 1 do<br />&#160; &#160; &#160; Result := Result + Fields[i].FieldName + ';';<br />end;</p> <p>procedure DoRefreshQuery(Query: TQuery; KeyFields: String; BookMarkSearch:<br />Boolean);<br />var<br />&#160; Fields: TList;<br />&#160; KeyValues: Variant;<br />&#160; KeyNames: String;<br />&#160; Bmk: TBookmark;<br />&#160; I: Integer;<br />&#160; BookmarkFound: Boolean;<br />&#160; CanLocate: Boolean;<br />begin<br />&#160; Fields := TList.Create;<br />&#160; if KeyFields = '' then KeyFields := GetFieldNamesStr(Query);<br />&#160; try<br />&#160; &#160; Query.GetFieldList(Fields, KeyFields);<br />&#160; &#160; for I := Fields.Count - 1 downto 0 do<br />&#160; &#160; &#160; with TField(Fields[i]) do<br />&#160; &#160; &#160; &#160; if Calculated or Lookup then Fields.Delete(I);<br />&#160; &#160; CanLocate := Fields.Count &gt; 0;<br />&#160; &#160; if CanLocate then<br />&#160; &#160; begin<br />&#160; &#160; &#160; if Fields.Count = 1 then<br />&#160; &#160; &#160; &#160; KeyValues := TField(Fields[0]).Value<br />&#160; &#160; &#160; else begin<br />&#160; &#160; &#160; &#160; KeyValues := VarArrayCreate([0, Fields.Count - 1], varVariant);<br />&#160; &#160; &#160; &#160; KeyValues[0] := TField(Fields[0]).Value;<br />&#160; &#160; &#160; end;<br />&#160; &#160; &#160; KeyNames := TField(Fields[0]).FieldName;<br />&#160; &#160; &#160; for I := 1 to Fields.Count - 1 do<br />&#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; KeyNames := KeyNames + ';' + TField(Fields[i]).FieldName;<br />&#160; &#160; &#160; &#160; KeyValues[i] := TField(Fields[i]).Value;<br />&#160; &#160; &#160; end;<br />&#160; &#160; end;<br />&#160; finally<br />&#160; &#160; Fields.Free;<br />&#160; end;<br />&#160; with Query do<br />&#160; begin<br />&#160; &#160; Bmk := nil;<br />&#160; &#160; DisableControls;<br />&#160; &#160; try<br />&#160; &#160; &#160; BookmarkFound := False;<br />&#160; &#160; &#160; if BookMarkSearch then<br />&#160; &#160; &#160; &#160; Bmk := GetBookmark;<br />&#160; &#160; &#160; Close;<br />&#160; &#160; &#160; Open;<br />&#160; &#160; &#160; if Assigned(Bmk) then<br />&#160; &#160; &#160; try<br />&#160; &#160; &#160; &#160; GotoBookMark(Bmk);<br />&#160; &#160; &#160; &#160; BookmarkFound := True;<br />&#160; &#160; &#160; except&#160; end;<br />&#160; &#160; &#160; if not BookmarkFound and CanLocate then<br />&#160; &#160; &#160; &#160; Locate(KeyNames, KeyValues, []);<br />&#160; &#160; finally<br />&#160; &#160; &#160; EnableControls;<br />&#160; &#160; &#160; Screen.Cursor := crDefault;<br />&#160; &#160; &#160; FreeBookmark(Bmk);<br />&#160; &#160; end;<br />&#160; end;<br />end;</p> <p>procedure TQuery.RefreshParams;<br />var<br />&#160; DataSet: TDataSet;<br />begin<br />&#160; DisableControls;<br />&#160; try<br />&#160; &#160; if FDataLink.DataSource &lt;&gt; nil then<br />&#160; &#160; begin<br />&#160; &#160; &#160; DataSet := FDataLink.DataSource.DataSet;<br />&#160; &#160; &#160; if DataSet &lt;&gt; nil then<br />&#160; &#160; &#160; &#160; if DataSet.Active and (DataSet.State &lt;&gt; dsSetKey) then<br />&#160; &#160; &#160; &#160; &#160; DoRefreshQuery(Self, GetFieldNamesStr(Self), False);<br />&#160; &#160; end;<br />&#160; finally<br />&#160; &#160; EnableControls;<br />&#160; end;<br />end;</p> <p>&gt;== Режем два ==&lt;</p> <p>Vladimir Gaitanoff<br />(2:5020/880.5)</p> <p>Q&gt;:<br />Как пересчитать все Calculated Fields без переоткрытия TDataSet?<br />A&gt;:<br />&#160; &#160; Resync([rmExact, rmCenter])</p> <p>Vladimir Gaitanoff<br />(2:5020/880.5)</p> <p>Q&gt;:<br />(Oracle) Как в Oracle создать sequence с некоторого номера?<br />A&gt;:<br />create sequence minvalue 10;</p> <p>Andrey V. Petrow<br />(2:5030/53.334)</p> <p>Q&gt;:<br />Как создать текстовую таблицу с поддержкой русских букв?<br />A&gt;:<br />Делай pаз - create database ... без всяких default character set<br />Делай два - запускай BDE Config и создавай алиас<br />Делай тpи - делай настpойки:</p> <p>стpаница&#160; &#160;паpаметp&#160; &#160; &#160; &#160; значение&#160; &#160; &#160; &#160; &#160;Пpимечание<br />Drivers&#160; &#160; LANGDRIVER&#160; &#160; &#160; 'ascii' ANSI&#160; &#160; &#160;У INTERBASE<br />Alias&#160; &#160; &#160; LANGDRIVER&#160; &#160; &#160; пусто<br />System&#160; &#160; &#160;LANGDRIVER&#160; &#160; &#160; 'ascii' ANSI<br />System&#160; &#160; &#160;DEFAULT DRIVER&#160; ASCIIDRV</p> <p>Alexey Malinin<br />(2:5057/19.18)</p> <p>Q&gt;:<br />(Oracle) Как решать некоторые вопросы при подключении к Oracle?<br />A&gt;:</p> <p> DD&gt; 1. Все поля (TField), опpеделенные в фоpмах, имеющие типы TDateField,<br /> DD&gt; TSmallIntField - пpи откpытии таблицы pугаются: Field &quot;...&quot; is not of<br /> DD&gt; expected type. Посмотpел - пpи пеpеопpеделении их под Oracle'ом они</p> <p>&#160; &#160; &#160;Чтобы &quot;увидеть&quot; integer-поля нужно в настройке Alias'а Oracle в BDE<br />установить Enable Integers -&gt; True (и напрочь будет потерян Locate по этим якобы<br />int/smallint полям).&#160; С датами, возможно, тоже надо разбираться<br />через настройки Win &amp; Oracle. У меня в Win дата формата &quot;дд.мм.гггг&quot;, в Oracle<br />NLS_LANG -&gt; AMERICAN_AMERICA.CL8MSWIN1251 и с датами все гут.</p> <p> DD&gt; 2. Используя в SQL<br /> DD&gt; стpоки типа 'SELECT XX FROM YY WHERE XX=&quot;QQQ&quot;' мы поступали<br /> DD&gt; непpавильно,<br /> DD&gt; т.к. двойные кавычки в Oracle обpабатывабтся не так, как в Btrieve.<br /> DD&gt; Тут мы</p> <p>&#160; &#160; Oracle в данном случае не причем. Это глюк BDE. Лечилось просто - вместо<br />обрамления двойными кавычками строкового значения, нужно обрамлять его с<br />помощью #39, примерно так</p> <p>&#160; &#160; &#160; MySQLString:='SELECT XX FROM YY WHERE XX='+#39+'QQQ'+#39;</p> <p>Belsky Roman<br />(2:450/94.75)</p> <p> SS&gt; У кого-нибудь есть опыт по настройке BDE ? Откликнитесь плиз! При<br /> SS&gt; попытке соединиться с базой вылезает ошибка: Vendor failed init!<br /> SS&gt; Delphi запускаю под 95. На всякий случай пути к \BDE и ORAWIN\BIN я<br /> SS&gt; проставил! orant71.dll (родной или переименнованый ora72win.dll)<br /> SS&gt; закидывал куда угодно, но.... все равно вылетает ошибка BDE Error<br /> SS&gt; 15879 Vendor failed init :-(</p> <p>&#160; &#160;Клиент у тебя NT, как я понял?<br />&#160; &#160;ora7x.dll - 32bit клиент для win95<br />&#160; &#160;orant7x.dll - 32bit клиент для NT<br />&#160; &#160;ora7xwin.dll - 16bit клиент для win</p> <p>&#160; &#160;т.е. ora7xwin в Delphi3 вообще ставить бесполезно (16bit для 32bit appl).<br />&#160; ora*71.dll у меня изначально к ORACLE 7.2 не коннектился - они там как-то<br />&#160; резко сменили OCI. Правда потом ora72win.dll с Pers. Oracle 7.3 работал,<br />&#160; но все равно лучше, наверное, чтобы номер версии dll был не ниже версии<br />&#160; сервера.</p> <p>&#160; &#160; А вообще я 32bit дельфях в Vendor Init давно прописываю OCIW32.dll -<br />&#160; он всегда для последней версии сервера с которым ты работаешь.</p> <p>&#160; Это IMHO. Но у меня Delphi3 и Delphi1 коннектятся как с Oracle 7.1 на<br />&#160; Unix'е, так и с Pers. Oracle 7.3</p> <p>Alex Mironov<br /><a href="http://WWW.MEB.RU/igorvl.html" rel="nofollow" target="_blank">http://WWW.MEB.RU/igorvl.html</a><br />(2:5020/238.46)</p> <p>Q&gt;:<br />Как заставить BDE сохранять в БД поле времени с сотыми долями секунды?<br />A&gt;:<br />Если руками, то в BDE Administrator. Если в в инсталлялке, то -</p> <p>В пункте Make Registry Changes InstallShield'а создай ключ<br />HKEY_LOCAL_MACHINE\SOFTWARE\Borland\Database Engine\Settings\SYSTEM\<br />FORMATS\TIME\MILSECONDS=TRUE</p> <p>Alexey Yashin<br />(2:5020/62.31)</p> <p>Q&gt;:<br />Как создать Calculated Fields в RunTime?<br />A&gt;:<br />See book &quot;Developing Custom Delphi Components&quot; by Ray Konopka.</p> <p>This is little bit corrected example from this book:</p> <p>function TMyClass.CreateCalcField( const AFieldName:string;<br />AFieldClass:TFieldClass; ASize:Word ) : TField;<br />begin<br />&#160; Result := FDataSet.FindField(AFieldName); // Field may already exists!<br />&#160; if Result&lt;&gt;nil then Exit;<br />&#160; if AFieldClass=nil then DBErrorFmt( SUnknownFieldType, [AFieldName] );<br />&#160; Result := FieldClass.Create(Owner);<br />&#160; with Result do<br />&#160; try<br />&#160; &#160; FieldName := AFieldName;<br />&#160; &#160; if (Result is TStringField) or<br />&#160; &#160; &#160; &#160;(Result is TBCDField) or<br />&#160; &#160; &#160; &#160;(Result is TBlobField) or<br />&#160; &#160; &#160; &#160;(Result is TBytesField) or<br />&#160; &#160; &#160; &#160;(Result is TVarBytesField)<br />&#160; &#160; then Size := ASize;<br />&#160; &#160; Calculated := True;<br />&#160; &#160; DataSet := FDataset;<br />&#160; &#160; Name := FDataSet.Name+AFieldName;<br />&#160; except<br />&#160; &#160; Free;&#160; // We must release allocated memory on error!<br />&#160; &#160; raise;<br />&#160; end;<br />end;</p> <p>Alex Konshin<br />(2:5030/217.217)</p> <p>Q&gt;:<br />Как создать новый запрос и скопировать туда точно такие же описания полей?<br />A&gt;:<br />Копируешь FieldDefs. Проходишь циклом по FieldDefs.Items[i].CreateField(Owner);</p> <p>Alex Konshin<br />(2:5030/217.217)</p> <p>Q&gt;:<br />(DB2) Почему DB2 ругается на Create Trigger?<br />A&gt;:<br />&#160; Я тут писал по поводу того, что у меня не pаботали тpиггеpы. Все дело<br />оказалось в пpавиле написания команды &quot;create trigger&quot;. Если все остальные<br />команды коppектно воспpинимаются на любом pегистpе, то эта только набpанная<br />одними большими буквами.</p> <p>Aleksey Sushko<br />(2:4615/7.32)</p> <p>Q&gt;:<br />(IB) Как заставить Interbase принять COLLATE PXW_CYRL по умолчанию?<br />(AA: Это очень полезно при прямой работе с IB из PowerDesigner)<br />A&gt;:<br />Чтобы не писать каждый раз COLLATE я сделал следующее:</p> <p>1) Создал сохраненную процедуру</p> <p>create procedure fix_character_sets<br />as<br />begin<br />&#160; update rdb$character_sets<br />&#160; &#160; set rdb$default_collate_name = 'PXW_CYRL'<br />&#160; &#160; where rdb$character_set_name = 'WIN1251' and<br />&#160; &#160; &#160; &#160; rdb$default_collate_name = 'WIN1251';<br />end</p> <p>2) Запустил ее один раз.</p> <p>3) Создаю таблицы без COLLATE.</p> <p>4) После восстановления из архива, запускаю еще раз.</p> <p>Кудрин Олег, АТС-55, Красноярск.<br />oleg@ats.telecom.krasnoyarsk.su</p> <p>Q&gt;:<br />Есть некоторая таблица и требуется при нажатии на кнопку создавать<br />таблицы такой же структуры, подскажите как это удобнее всего сделать.<br />A&gt;:<br />Удобней всего, напpимеp, так -<br />with bmovMyBatchMove do<br />begin<br />Mode := bmCopy;<br />RecordCount := 1;<br />Execute;<br />Destination.Delete;<br />end;</p> <p>Akzhan Abdulin<br />(2:5040/55.46)</p> <p>&#160; Неправда Ваша! ;) Этот загадочный BatchMove имеет одну очень неприятную<br />особенность (по крайней мере при работе с DBF таблицами и в D1), как-то:<br />увеличивает в создаваемых таблицах в полях типа NUMBER количество значащих<br />цифирей после запятой (не помню - возможно, что и до), если там указаны<br />небольшие (~ 1-3 цифр) значения :(. Я эту особенность побороть не сумел, а<br />мириться с ней в условиях нашей конторы (когда приходится бороться за место под<br />солнцем с программистами на Clipper и FoxPro совершенно неприемлимо.<br />&#160; Кроме того, в предложенном выше варианте еще и запись удалять приходится...:)<br />&#160; Решалась же эта проблема следующим способом:</p> <p>&gt;============&#160; Cut Begin&#160; Myutils.Pas ====================</p> <p>procedure CopyStruct(SrcTable,DestTable: TTable; cpyFields: array of string);<br />var<br />&#160; i: Integer;<br />&#160; bActive: Boolean;<br />&#160; SrcDatabase,DestDatabase: TDatabase;<br />&#160; iSrcMemSize,iDestMemSize: Integer;<br />&#160; pSrcFldDes: PFldDesc;<br />&#160; CrtTableDesc: CRTblDesc;<br />&#160; bNeedAllFields: Boolean;<br />begin<br />&#160; SrcDatabase:=Session.OpenDatabase(SrcTable.DatabaseName);<br />&#160; try<br />&#160; &#160; DestDatabase:=Session.OpenDatabase(DestTable.DatabaseName);<br />&#160; &#160; try<br />&#160; &#160; &#160; bActive:=SrcTable.Active;<br />&#160; &#160; &#160; SrcTable.FieldDefs.Update;<br />&#160; &#160; &#160; iSrcMemSize:=SrcTable.FieldDefs.Count*SizeOf(FLDDesc);<br />&#160; &#160; &#160; pSrcFldDes:=AllocMem(iSrcMemSize);<br />&#160; &#160; &#160; if pSrcFldDes = nil then<br />&#160; &#160; &#160; &#160; raise EOutOfMemory.Create('=х iтрEрхE ярь Eш!');<br />&#160; &#160; &#160; try<br />&#160; &#160; &#160; &#160; SrcTable.Open;<br />&#160; &#160; &#160; &#160; Check(DbiGetFieldDescs(SrcTable.Handle,pSrcFldDes));<br />&#160; &#160; &#160; &#160; SrcTable.Active:=bActive;<br />&#160; &#160; &#160; &#160; FillChar(CrtTableDesc,SizeOf(CrtTableDesc),0);<br />&#160; &#160; &#160; &#160; with CrtTableDesc do<br />&#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; StrPcopy(szTblName,DestTable.TableName);<br />&#160; &#160; &#160; &#160; &#160; StrPcopy(szTblType,'DBASE');<br />&#160; &#160; &#160; &#160; &#160; if(Length(cpyFields[0]) = 0) or (cpyFields[0] = '*') then<br />&#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; bNeedAllFields:=True;<br />&#160; &#160; &#160; &#160; &#160; &#160; SrcTable.FieldDefs.Update;<br />&#160; &#160; &#160; &#160; &#160; &#160; iFldCount:=SrcTable.FieldDefs.Count;<br />&#160; &#160; &#160; &#160; &#160; end<br />&#160; &#160; &#160; &#160; &#160; else<br />&#160; &#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; &#160; &#160; bNeedAllFields:=False;<br />&#160; &#160; &#160; &#160; &#160; &#160; iFldCount:=High(cpyFields)+1;<br />&#160; &#160; &#160; &#160; &#160; end;<br />&#160; &#160; &#160; &#160; &#160; iDestMemSize:=iFldCount*Sizeof(FLDDesc);<br />&#160; &#160; &#160; &#160; &#160; CrtTableDesc.pFLDDesc:=AllocMem(iDestMemSize);<br />&#160; &#160; &#160; &#160; &#160; if CrtTableDesc.pFLDDesc = nil then<br />&#160; &#160; &#160; &#160; &#160; &#160; raise EOutOfMemory.Create('=х iтрEрхE ярь Eш!');<br />&#160; &#160; &#160; &#160; end;<br />&#160; &#160; &#160; &#160; try<br />&#160; &#160; &#160; &#160; &#160; if bNeedAllFields then<br />&#160; &#160; &#160; &#160; &#160; &#160; for i:=0 to CrtTableDesc.iFldCount-1 do<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; Move(PFieldDescList(pSrcFldDes)^[i],<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; PFieldDescList(CrtTableDesc.pFLDDesc)^[i],SizeOf(FldDesc))<br />&#160; &#160; &#160; &#160; &#160; else<br />&#160; &#160; &#160; &#160; &#160; &#160; for i:=0 to CrtTableDesc.iFldCount-1 do<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; Move(PFieldDescList(pSrcFldDes)^[SrcTable.FieldDefs.Find(cpyField<br />s[i]).FieldNo-1],<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; PFieldDescList(CrtTableDesc.pFLDDesc)^[i],SizeOf(FldDesc));<br />&#160; &#160; &#160; &#160; &#160; Check(DbiCreateTable(DestDatabase.Handle,True,CrtTableDesc));<br />&#160; &#160; &#160; &#160; finally<br />&#160; &#160; &#160; &#160; &#160; FreeMem(CrtTableDesc.pFLDDesc,iDestMemSize);<br />&#160; &#160; &#160; &#160; end;<br />&#160; &#160; &#160; finally<br />&#160; &#160; &#160; &#160; FreeMem(pSrcFldDes,iSrcMemSize);<br />&#160; &#160; &#160; end;<br />&#160; &#160; finally<br />&#160; &#160; &#160; Session.CloseDatabase(DestDatabase);<br />&#160; &#160; end;<br />&#160; finally<br />&#160; &#160; Session.CloseDatabase(SrcDatabase);<br />&#160; end;<br />end;</p> <p>&gt;============&#160; &#160;Cut End&#160; &#160;====================</p> <p>Vlad Fillippov<br />(2:5055/34.3)</p> <p>Q&gt;:<br />(SAW) Как бы мне соорудить в SP исключение, чтобы его увидел Delphi-клиент?<br />A&gt;:</p> <p> SS&gt;&#160; &#160;sqlstate='99999' не подходит, т.к. хочется на клиенте видеть код<br /> SS&gt; исключения.</p> <p>&#160; Используй RAISERROR с кодом &gt;20000. Если еще пpи этом научишься без потеpь<br />пеpедавать на Delphi-клиента pусские pугательства, то скажи мне как ты этого<br />добился :). У меня для этого pаботает pедкостный извpат, даже людям показать<br />стыдно :).</p> <p>Alexander Tesanov<br />(2:5015/23.5)</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 00:23:10 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=13#p13 https://delphi.forumkz.ru/viewtopic.php?pid=11#p11 <p>Часть II<br />Вопрос:<br />Как узнать есть ли в заданном CD-ROM'е Audio CD?</p> <p>Ответ:<br />Можно использовать функцию Windows API GetDriveType() чтобы определить является ли дисковод CD-ROM'мом. И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство 'Audio CD'. <br />Пример:</p> <p>function IsAudioCD(Drive : char) : bool;<br />var<br /> DrivePath : string;<br /> MaximumComponentLength : DWORD;<br /> FileSystemFlags : DWORD;<br /> VolumeName : string;<br />Begin<br /> sult := false;<br /> DrivePath := Drive + ':\';<br /> if GetDriveType(PChar(DrivePath)) &lt;&gt; DRIVE_CDROM then<br />&#160; &#160; exit;<br /> SetLength(VolumeName, 64);<br /> GetVolumeInformation(PChar(DrivePath),PChar(VolumeName),<br /> Length(VolumeName),nil,MaximumComponentLength,FileSystemFlags,nil,0);<br /> if lStrCmp(PChar(VolumeName),'Audio CD') = 0 then<br />&#160; &#160; result := true;<br />end;</p> <p>function PlayAudioCD(Drive : char) : bool;<br />var<br /> mp : TMediaPlayer;<br />begin<br /> result := false;<br /> Application.ProcessMessages;<br /> if not IsAudioCD(Drive) then<br />&#160; &#160; exit;<br /> mp := TMediaPlayer.Create(nil);<br /> mp.Visible := false;<br /> mp.Parent := Application.MainForm;<br /> mp.Shareable := true;<br /> mp.DeviceType := dtCDAudio;<br /> mp.FileName := Drive + ':';<br /> mp.Shareable := true;<br /> mp.Open;<br /> Application.ProcessMessages;<br /> mp.Play;<br /> Application.ProcessMessages;<br /> mp.Close;<br /> Application.ProcessMessages;<br /> mp.free;<br /> result := true;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> if not PlayAudioCD('D') then<br />&#160; &#160; ShowMessage('Not an Audio CD');<br />end;</p> <p>Вопрос:<br />Как узнать есть ли у мыши колесико?</p> <p>Ответ:<br />Свойство &quot;WheelPresent&quot; глобального обьекта &quot;mouse&quot;.</p> <p>Вопрос:<br />События KeyPress и KeyDown не вызываются для клавиши Tab - как определить, что она была нажата? <br />Ответ:<br />На уровне формы клавиша tab обычно обрабатывается Windows. В примере создается обработчик события CM_Dialog для перехвата Dialog keys. <br />Пример:</p> <p>type<br /> TForm1 = class(TForm)<br /> private<br />&#160; &#160; procedure CMDialogKey( Var msg: TCMDialogKey );<br />&#160; &#160; message CM_DIALOGKEY;<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.CMDialogKey(var msg: TCMDialogKey);<br />begin<br /> if msg.Charcode &lt;&gt; VK_TAB then<br />&#160; &#160; inherited;<br />end;</p> <p>procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br />begin<br /> if Key = VK_TAB then<br /> Form1.Caption := 'Tab Key Down!';<br />end;</p> <p>Вопрос:<br />В чем отличие между Create(Self) и Create(Application)?</p> <p>Ответ:<br />Self может быть использовано только в методе класса, и ссылается на текущий экземпляр класса. Таким образом &quot;Self&quot; в методе класса TForm1 ссылается на текущий экземпляр TForm1. При создании компонента Вы передаете его владельца (owner) в конструктор. При уничтожении формы или компонента автоматически уничтожаются и все компоненты владельцем которого она является. Таким образом если при создании формы передать в качестве владельца Application эта форма будет автоматически уничтожена при уничтожении Application. Если же при создании формы передать в качестве владельца другую форму, вновь созданная форма будет автоматически уничтоженна при уничтожении формы-владельца. </p> <p>Вопрос:<br />Как во время выполнения определить поддерживает ли обьект заданное свойство?</p> <p>Ответ:<br />function HasProperty(Obj : TObject; Prop : string) : PPropInfo;<br />begin<br /> Result := GetPropInfo(Obj.ClassInfo, Prop);<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> p : pointer;<br />begin<br /> p :=&#160; HasProperty(Button1, 'Color');<br /> if p &lt;&gt; nil then<br />&#160; &#160; SetOrdProp(Button1, p, clRed)<br /> else<br />&#160; &#160; ShowMessage('Button has no color property');<br /> p :=&#160; HasProperty(Label1, 'Color');<br /> if p &lt;&gt; nil then<br />&#160; &#160; SetOrdProp(Label1, p, clRed)<br /> else<br />&#160; &#160; ShowMessage('Label has no color property');<br /> p :=&#160; HasProperty(Label1.Font, 'Color');<br /> if p &lt;&gt; nil then<br />&#160; &#160; SetOrdProp(Label1.Font.Color, p, clBlue)<br /> else<br />&#160; &#160; ShowMessage('Label.Font has no color property');<br />end;</p> <p>Вопрос:<br />Как при проигрывании музыки с Audio CD показывать сколько прошло минут и секунд?</p> <p>Ответ:<br />В примере время выводится по таймеру.</p> <p>Пример:</p> <p>uses MMSystem;</p> <p>procedure TForm1.Timer1Timer(Sender: TObject);<br />var<br /> Trk : Word;<br /> Min : Word;<br /> Sec : Word;<br />begin<br /> with MediaPlayer1 do<br />&#160; &#160; begin<br />&#160; &#160; Trk := MCI_TMSF_TRACK(Position);<br />&#160; &#160; Min := MCI_TMSF_MINUTE(Position);<br />&#160; &#160; Sec := MCI_TMSF_SECOND(Position);<br />&#160; &#160; Label1.Caption := Format('%.2d',[Trk]);<br />&#160; &#160; Label2.Caption := Format('%.2d:%.2d',[Min,Sec]);<br />&#160; &#160; end;<br />end;</p> <p>Вопрос:<br />Можно ли рисовать на рамке формы?</p> <p>Ответ:<br />Обрабатывайте событие WM_NCPAINT. В примере рамка обводится красной линией<br />толщиной в 1 пиксел.</p> <p>Пример:</p> <p>type<br /> TForm1 = class(TForm)<br /> private<br /> {Private declarations}<br />&#160; &#160; procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;<br /> public<br /> {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);<br />var<br /> dc : hDc;<br /> Pen : hPen;<br /> OldPen : hPen;<br /> OldBrush : hBrush;<br />begin<br /> inherited;<br /> dc := GetWindowDC(Handle);<br /> msg.Result := 1;<br /> Pen := CreatePen(PS_SOLID, 1, RGB(255, 0, 0));<br /> OldPen := SelectObject(dc, Pen);<br /> OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));<br /> Rectangle(dc, 0,0, Form1.Width, Form1.Height);<br /> SelectObject(dc, OldBrush);<br /> SelectObject(dc, OldPen);<br /> DeleteObject(Pen);<br /> ReleaseDC(Handle, Canvas.Handle);<br />end;</p> <p>Вопрос:<br />Как выполнить какой-то процесс тогда, когда пользователь не работает с моим приложением?</p> <p>Ответ:<br />Создайте процедуру, которая будет вызываться при событии Application.OnIdle.</p> <p>Обьявим процедуру:<br />{Private declarations}<br />procedure IdleEventHandler(Sender: TObject; var Done: Boolean);</p> <p>В разделе implementation опишем поцедуру:</p> <p>procedure TForm1.IdleEventHandler(Sender: TObject; var Done: Boolean);<br />begin<br /> {Do a small bit of work here}<br /> Done := false;<br />end;</p> <p>В методе Form'ы OnCreate - укажем что наша процедура вызывается на событии<br />Application.OnIdle.</p> <p>Application.OnIdle := IdleEventHandler;<br />Событие OnIdle возникает один раз - когда приложение переходит в режим &quot;безделья&quot; (idle). Если в обработчике переменной Done присвоить False событие будет вызываться вновь и вновь, до тех пор пока приложение &quot;бездельничает&quot; и переменной Done не присвоенно значение True. </p> <p>Вопрос:<br />При перемещении фокуса ввода клавишей Tab чтобы переместить его в RadioGroup нужно нажать клавишу Tab дважды если какой нибудь пункт RadioGroup уже выбран, но только один раз если не выбран. Можно ли сделать поведение RadioGroup логичным? <br />Ответ:<br />Установка свойства RadioGroup'ы TabStop в false должна решить эту проблему - поскольку клавиша tab будет продолжать работать - перемещаясь сразу на выделенный пункт RadioGroup.</p> <p>Вопрос:<br />Как разместить маленькие картинки в компоненте TPopUpMenu?</p> <p>Ответ:<br />В приведенном примере показано как это сделать с использованием функции Windows API SetMenuItemBitmaps(). Эта функция получает handle popup menu, позицию строчки меню куда будет помещена картинка, и два дескриптора(handles) на две картинки (одна из них - картинка которая будет показана когда строка меню доступна, вторая - когда строка меню недоступна). <br />type<br /> TForm1 = class(TForm)<br />&#160; &#160; PopupMenu1: TPopupMenu;<br />&#160; &#160; Pop11: TMenuItem;<br />&#160; &#160; Pop21: TMenuItem;<br />&#160; &#160; Pop31: TMenuItem;<br />&#160; &#160; procedure FormCreate(Sender: TObject);<br />&#160; &#160; procedure FormDestroy(Sender: TObject);<br />&#160; &#160; procedure FormMouseUp(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br /> private<br />&#160; &#160; {Private declarations}<br />&#160; &#160; bmUnChecked : TBitmap;<br />&#160; &#160; bmChecked : TBitmap;<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> bmUnChecked := TBitmap.Create;<br /> bmUnChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');<br /> bmChecked := TBitmap.Create;<br /> bmChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\CHECK.BMP');<br /> {Add the bitmaps to the item at index 1 in PopUpMenu}<br /> SetMenuItemBitmaps(PopUpMenu1.Handle,1,MF_BYPOSITION,BmUnChecked.Handle,<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; BmChecked.Handle);<br />end;</p> <p>procedure TForm1.FormDestroy(Sender: TObject);<br />begin<br /> bmUnChecked.Free;<br /> bmChecked.Free;<br />end;</p> <p>procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br />var<br /> pt : TPoint;<br />begin<br /> pt := ClientToScreen(Point(x, y));<br /> PopUpMenu1.Popup(pt.x, pt.y);<br />end;</p> <p>Вопрос:<br />Как узнать число кадров AVI файла, и выяснить как долго будет проигрывться этот файл?</p> <p>Ответ:<br />В приведенном примере указано как получить эту информацию.</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> MediaPlayer1.TimeFormat := tfFrames;<br /> ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Length));<br /> MediaPlayer1.TimeFormat := tfMilliseconds;<br /> ShowMessage('Number of milliseconds = ' + IntToStr(MediaPlayer1.Length));<br />end;</p> <p>Вопрос:<br />Как изменить число фиксированных колонок в TDbGrid?</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> TStringGrid(DbGrid1).FixedCols := 2;<br />end;</p> <p>Вопрос:<br />Некоторые компоненты баз данных (и среди них TDBGrid) никак не меняют визуальных свойств, когда к ним отключен доступ (disabled). Как это изменить програмно? <br />Ответ:<br />Ниже приведен пример, меняющий цвет шрифта на clGray, когда доступ к элементу управления (в данном случае TDBGrid) запрещен (disabled). <br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> DbGrid1.Enabled := false;<br /> DbGrid1.Font.Color := clGray;<br />end;</p> <p>procedure TForm1.Button2Click(Sender: TObject);<br />begin<br /> DbGrid1.Enabled := true;<br /> DbGrid1.Font.Color := clBlack;<br />end;</p> <p>Вопрос:<br />Как определить нажаты ли клавиши Shift, Alt, or Ctrl в какой-либо момент времени?</p> <p>Ответ:<br />В приведенном примере показано как определить нажата ли клавиша Shift при выборе строчки меню. Пример также содержит функции проверки состояния клавиш Alt, Ctrl. <br />Пример:</p> <p>function CtrlDown : Boolean;<br />var<br /> State : TKeyboardState;<br />begin<br /> GetKeyboardState(State);<br /> Result := ((State[vk_Control] And 128) &lt;&gt; 0);<br />end;</p> <p>function ShiftDown : Boolean;<br />var<br /> State : TKeyboardState;<br />begin<br /> GetKeyboardState(State);<br /> Result := ((State[vk_Shift] and 128) &lt;&gt; 0);<br />end;</p> <p>function AltDown : Boolean;<br />var<br /> State : TKeyboardState;<br />begin<br /> GetKeyboardState(State);<br /> Result := ((State[vk_Menu] and 128) &lt;&gt; 0);<br />end;<br />procedure TForm1.MenuItem12Click(Sender: TObject);<br />begin<br /> if ShiftDown then<br />&#160; &#160; Form1.Caption := 'Shift'<br /> else <br />&#160; &#160; Form1.Caption := '';<br />end;</p> <p>Вопрос:<br />Как изменить шрифта hint'а?</p> <p>Ответ:<br />В примере перехватывается событие Application.OnShowHint и изменяется шрифт Hint'а.</p> <p>Пример:</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; procedure FormCreate(Sender: TObject);<br /> private<br />&#160; &#160; {Private declarations}<br /> public<br />&#160; &#160; procedure MyShowHint(var HintStr: string;<br />&#160; &#160; var CanShow: Boolean;var HintInfo: THintInfo);<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.MyShowHint(var HintStr: string; var CanShow: Boolean;<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; var HintInfo: THintInfo);<br />var<br /> i : integer;<br />begin<br /> for i := 0 to Application.ComponentCount - 1 do<br /> if Application.Components[i] is THintWindow then<br />&#160; &#160; with THintWindow(Application.Components[i]).Canvas do<br />&#160; &#160; begin<br />&#160; &#160; &#160; &#160; Font.Name:= 'Arial';<br />&#160; &#160; &#160; &#160; Font.Size:= 18;<br />&#160; &#160; &#160; &#160; Font.Style:= [fsBold];<br />&#160; &#160; &#160; &#160; HintInfo.HintColor:= clWhite;<br />&#160; &#160; end;<br />end;</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> Application.OnShowHint := MyShowHint;<br />end;</p> <p>Вопрос:<br />Есть ли в Delphi эквивалент функции SendKeys Visual Basic'а?</p> <p>Ответ:<br />Ниже приведена процедура, позволяющаю отправлять нажатия в любой элемент управления (window control), способный принимать ввод с клавиатуры. Вы можете использовать эту технику чтобы включать клавиши NumLock, CapsLock и ScrollLock под Windows NT. Та же техника работает и под Windows 95 для CapsLock и ScrollLock но не работает для клавиши NumLock. <br />Обратите внимание, что приведены четыре поцедуры: SimulateKeyDown() - эмулировать нажатие клавиши (без отпускания) SimulateKeyUp() - эмулировать отпускание клавиши SimulateKeystroke() - эмулировать удар по клавише (нажатие и отпускание) и SendKeys(), позволяющие Вам гибко контролировать посылаемые сообщения клавиатуры. <br />SimulateKeyDown(), SimulateKeyUp() и SimulateKeystroke() получают коды виртуальных клавиш (virtural key) (вроде VK_F1). Процедура SimulateKeystroke() получает дополнительный параметр, полезный при эмуляции нажатия PrintScreen. Когда этот параметр равен нулю весь экран будет скопирован в буфер обмена (clipboard). Если дополнительный параметр равен 1 будет скопированно только активное окно. <br />Четыре метода &quot;button click&quot; демонстрируют использование: ButtonClick1 - включает capslock ButtonClick2 - перехватывает весь экран в буфер обмена (clipboard). ButtonClick3 - перехватывает активное окно в буфер обмена (clipboard). ButtonClick4 - устанавливает фокус в Edit и отправляет в него строку. <br />Пример:</p> <p>procedure SimulateKeyDown(Key : byte);<br />begin<br /> keybd_event(Key, 0, 0, 0);<br />end;</p> <p>procedure SimulateKeyUp(Key : byte);<br />begin<br /> keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);<br />end;</p> <p>procedure SimulateKeystroke(Key : byte; extra : DWORD);<br />begin<br /> keybd_event(Key,extra,0,0);<br /> keybd_event(Key,extra,KEYEVENTF_KEYUP,0);<br />end;</p> <p>procedure SendKeys(s : string);<br />var<br /> i : integer;<br /> flag : bool;<br /> w : word;<br />begin<br /> {Get the state of the caps lock key}<br /> flag := not GetKeyState(VK_CAPITAL) and 1 = 0;<br /> {If the caps lock key is on then turn it off}<br /> if flag then<br />&#160; &#160; SimulateKeystroke(VK_CAPITAL, 0);<br /> for i := 1 to Length(s) do<br />&#160; &#160; begin<br />&#160; &#160; w := VkKeyScan(s[i]);<br />&#160; &#160; {If there is not an error in the key translation}<br />&#160; &#160; if ((HiByte(w) &lt;&gt; $FF) and (LoByte(w) &lt;&gt; $FF)) then<br />&#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; {If the key requires the shift key down - hold it down}<br />&#160; &#160; &#160; &#160; if HiByte(w) and 1 = 1 then<br />&#160; &#160; &#160; &#160; &#160; &#160; SimulateKeyDown(VK_SHIFT);<br />&#160; &#160; &#160; &#160; &#160; &#160; {Send the VK_KEY}<br />&#160; &#160; &#160; &#160; SimulateKeystroke(LoByte(w), 0);<br />&#160; &#160; &#160; &#160; {If the key required the shift key down - release it}<br />&#160; &#160; &#160; &#160; if HiByte(w) and 1 = 1 then<br />&#160; &#160; &#160; &#160; &#160; &#160; SimulateKeyUp(VK_SHIFT);<br />&#160; &#160; &#160; &#160; end;<br />&#160; &#160; end;<br />{if the caps lock key was on at start, turn it back on}<br />if flag then<br /> SimulateKeystroke(VK_CAPITAL, 0);<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> {Toggle the cap lock}<br /> SimulateKeystroke(VK_CAPITAL, 0);<br />end;</p> <p>procedure TForm1.Button2Click(Sender: TObject);<br />begin<br /> {Capture the entire screen to the clipboard}<br /> {by simulating pressing the PrintScreen key}<br /> SimulateKeystroke(VK_SNAPSHOT, 0);<br />end;</p> <p>procedure TForm1.Button3Click(Sender: TObject);<br />begin<br /> {Capture the active window to the clipboard}<br /> {by simulating pressing the PrintScreen key}<br /> SimulateKeystroke(VK_SNAPSHOT, 1);<br />end;</p> <p>procedure TForm1.Button4Click(Sender: TObject);<br />begin<br /> {Set the focus to a window (edit control) and send it a string}<br /> Application.ProcessMessages;<br /> Edit1.SetFocus;<br /> SendKeys('Delphi Is RAD!');<br />end;</p> <p>Вопрос:<br />Я загружаю TImageList динамически. Как сделать картинки из TImageList прозрачными?</p> <p>Ответ:<br />См. ответ.</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> bm : TBitmap;<br /> il : TImageList;<br />begin<br /> bm := TBitmap.Create;<br /> bm.LoadFromFile('C:\DownLoad\TEST.BMP');<br /> il := TImageList.CreateSize(bm.Width,bm.Height);<br /> il.DrawingStyle := dsTransparent;<br /> il.Masked := true;<br /> il.AddMasked(bm, clRed);<br /> il.Draw(Form1.Canvas, 0, 0, 0);<br /> bm.Free;<br /> il.Free;<br />end;</p> <p>Вопрос:<br />Как заставить TMediaPlayer проигрывать одно и тоже бесконечно? AVI например?</p> <p>Ответ:<br />В примере AVI файл проигрывается снова и снова - используем событие MediaPlayer'а Notify</p> <p>Пример:</p> <p>procedure TForm1.MediaPlayer1Notify(Sender: TObject);<br />begin<br /> with MediaPlayer1 do<br />&#160; &#160; if NotifyValue = nvSuccessful then<br />&#160; &#160; begin<br />&#160; &#160; &#160; &#160; Notify := True;<br />&#160; &#160; &#160; &#160; Play;<br />&#160; &#160; end;<br />end;</p> <p>Вопрос:<br />При выполнении диалога FontDialog со свойством Device равным fdBoth or fdPrinter, появляется ошибка &quot;There are no fonts installed&quot;. <br />Ответ:<br />Эти установки должны показать шрифты совместимые либо с принтером либо с экраном. В примере диалог Windows ChooseFont вызывается напрямую чтобы показать список шрифтов, совместимых одновременно и с экраном и с принтером. <br />Пример:</p> <p>uses Printers, CommDlg;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> cf : TChooseFont;<br /> lf : TLogFont;<br /> tf : TFont;<br />begin<br /> if PrintDialog1.Execute then<br />&#160; &#160; begin<br />&#160; &#160; GetObject(Form1.Canvas.Font.Handle, sizeof(lf),@lf);<br />&#160; &#160; FillChar(cf, sizeof(cf), #0);<br />&#160; &#160; cf.lStructSize := sizeof(cf);<br />&#160; &#160; cf.hWndOwner := Form1.Handle;<br />&#160; &#160; cf.hdc := Printer.Handle;<br />&#160; &#160; cf.lpLogFont := @lf;<br />&#160; &#160; cf.iPointSize := Form1.Canvas.Font.Size * 10;<br />&#160; &#160; cf.Flags := CF_BOTH or CF_INITTOLOGFONTSTRUCT or<br />&#160; &#160; &#160; &#160; CF_EFFECTS or CF_SCALABLEONLY or CF_WYSIWYG;<br />&#160; &#160; cf.rgbColors := Form1.Canvas.Font.Color;<br />&#160; &#160; if ChooseFont(cf) &lt;&gt; false then<br />&#160; &#160; &#160; &#160; begin<br />&#160; &#160; &#160; &#160; tf := TFont.Create;<br />&#160; &#160; &#160; &#160; tf.Handle := CreateFontIndirect(lf);<br />&#160; &#160; &#160; &#160; tf.COlor := cf.RgbColors;<br />&#160; &#160; &#160; &#160; Form1.Canvas.Font.Assign(tf);<br />&#160; &#160; &#160; &#160; tf.Free;<br />&#160; &#160; &#160; &#160; Form1.Canvas.TextOut(10, 10, 'Test');<br />&#160; &#160; &#160; &#160; end;<br />&#160; &#160; end;<br />end;</p> <p>Вопрос:<br />Как сменить дисковод, откуда&#160; MediaPlayer проигрывает аудио CD?</p> <p>Ответ:<br />См. пример.</p> <p>Пример:</p> <p>MediaPlayer1.FileName := 'E:';</p> <p>Вопрос:<br />Как убрать кнопку с названием моей программы из Панели Задач(Taskbar)?</p> <p>Ответ:<br />Отредактируйте файл-проекта (View -&gt; Project Source) Добавьте модуль Windows в раздел uses. Application.ShowMainForm := False; в строку после &quot;Application.Initialize;&quot;. Добавьте ShowWindow(Application.Handle, SW_HIDE); в строку перед &quot;Application.Run;&quot; <br />Ваш файл проекта должен выглядеть приблизительно так:</p> <p>program Project1;</p> <p>uses<br /> Windows,<br /> Forms,<br /> Unit1 in 'Unit1.pas' {Form1},<br /> Unit2 in 'Unit2.pas' {Form2};</p> <p>{$R *.RES}</p> <p>begin<br /> Application.Initialize;<br /> Application.ShowMainForm := False;<br /> Application.CreateForm(TForm1, Form1);<br /> Application.CreateForm(TForm2, Form2);<br /> ShowWindow(Application.Handle, SW_HIDE);<br /> Application.Run;<br />end.</p> <p>В разделе &quot;initialization&quot; (в самом низу) каждого unit'а добавьте</p> <p>begin<br /> ShowWindow(Application.Handle, SW_HIDE);<br />end.</p> <p>Вопрос:<br />Как преобразовать цвета в строку - название цвета&#160; VCL?</p> <p>Ответ:<br />Модуль graphics.pas содержит функцию ColorToString() которое преобразует допустимое значение TColor в его строковое представление используя либо константу-название цвета (по возможности) либо шестнадцатиричную строку. Обратная функция - StringToColor() <br />Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Memo1.Lines.Add(ColorToString(clRed));<br /> Memo1.Lines.Add(IntToStr(StringToColor('clRed')));<br />end;</p> <p>Вопрос:<br />При показе максимизированное формы она перекрывает task bar и не выравнивается<br />по верху экрана. В чем тут дело?</p> <p>Ответ:<br />Это может произойти когда свойство position формы установленно в poScreenCenter.<br />Установите position = poDefault.</p> <p>Вопрос:<br />Как заставить TEdit не 'пикать' при нажатии недопустимых клавиш?</p> <p>Ответ:<br />Перехватите событие KeyPress и установите key = #0 для недопустимых клавиш.</p> <p>Пример:</p> <p>procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br />begin<br /> if ((UpCase(Key) &lt; 'A') or (UpCase(Key) &gt; 'Z')) then<br />&#160; &#160; Key := #0;<br />end;</p> <p>Вопрос:<br />Как получить число и список всех компонентов, расположенных на TNoteBook?</p> <p>Ответ:<br />В примере список выводится на Listbox.</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> n: integer;<br /> p: integer;<br />begin<br /> ListBox1.Clear;<br /> with Notebook1 do<br /> begin<br />&#160; &#160; for n := 0 to ControlCount - 1 do<br />&#160; &#160; begin<br />&#160; &#160; with TPage(Controls[n]) do<br />&#160; &#160; begin<br />&#160; &#160; &#160; &#160; ListBox1.Items.Add('Notebook Page: ' +<br />&#160; &#160; &#160; &#160; TPage(Notebook1.Controls[n]).Caption);<br />&#160; &#160; &#160; &#160; for p := 0 to ControlCount - 1 do<br />&#160; &#160; &#160; &#160; ListBox1.Items.Add(Controls[p].Name);<br />&#160; &#160; &#160; &#160; ListBox1.Items.Add(EmptyStr);<br />&#160; &#160; end;<br />&#160; &#160; end;<br /> end;<br />end;</p> <p>Вопрос:<br />Я хочу вставить escape code в строку при использовании функции Format(). Например, я хочу создать строку, содержащую символ табуляции. В &quot;C&quot; я бы написал что-то вроде sprintf(buffer, &quot;%s\t%s&quot;, str);. А как это будет на Pascal'e? <br />Ответ:<br />Функция Format Pascal'я не использует escape codes. Вместо этого нужно вставить в строку действительное значение символа в кодировке ASCII. <br />Пример:</p> <p>Buffer := Format('%s'#9'%s', [Str1, Str2]);<br />ShowMessage(Format('%s'#9'%s', ['Column1', 'Column2']));</p> <p>Вопрос:<br />Как показать первый кадр AVI-файла?</p> <p>Ответ:<br />См. пример.<br />Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Application.ProcessMessages;<br /> MediaPlayer1.Open;<br /> Application.ProcessMessages;<br /> MediaPlayer1.Step;<br /> Application.ProcessMessages;<br /> MediaPlayer1.Previous;<br />end;</p> <p>Вопрос:<br />Когда пользователь щелкает по listview, он переходит в режим редактирования.<br />Как перевисти его в редим редактирования по нажатию клавиши (например F2)?</p> <p>Ответ:<br />Перехватите F2 на событии keydown.</p> <p>Пример:</p> <p>procedure TForm1.ListView1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br />begin<br /> if Ord(Key) = VK_F2 then<br /> ListView1.Selected.EditCaption;<br />end;</p> <p>Вопрос:<br />Когда я добавляю обьект в список TStrings как мне его потом уничтожить?</p> <p>Ответ:<br />Просто вызовите метод free этого обьекта.</p> <p>Пример:</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />var<br /> Icon: TIcon;<br />begin<br /> Icon := TIcon.Create;<br /> Icon.LoadFromFile('C:\Program Files\BorlandImages\CONSTRUC.ICO');<br /> ListBox1.Items.AddObject('Item 0', Icon);<br />end;</p> <p>procedure TForm1.FormDestroy(Sender: TObject);<br />begin<br /> ListBox1.Items.Objects[0].Free;<br />end;</p> <p>Вопрос:<br />Вместо печати графики я хочу использовать резидентный шрифт принтера. Как?</p> <p>Ответ:<br />Используте функцию Windows API - GetStockObject() чтобы получить дескриптор (handle) шрифта по умолчанию устройства (DEVICE_DEFAULT_FONT) и передайте его Printer.Font.Handle. <br />Пример:</p> <p>uses Printers;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> tm : TTextMetric;<br /> i : integer;<br />begin<br /> if PrintDialog1.Execute then<br /> begin<br />&#160; &#160; Printer.BeginDoc;<br />&#160; &#160; Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);<br />&#160; &#160; GetTextMetrics(Printer.Canvas.Handle, tm);<br />&#160; &#160; for i := 1 to 10 do<br />&#160; &#160; begin<br />&#160; &#160; Printer.Canvas.TextOut(100,i * tm.tmHeight +<br />&#160; &#160; &#160; &#160; tm.tmExternalLeading,'Test');<br />&#160; &#160; end;<br />&#160; &#160; Printer.EndDoc;<br /> end;<br />end;</p> <p>Вопрос:<br />Мне нужно программно установить некоторые файлы с установочного диска Windows. На многих компьютерах CAB-файлы установки Windows находятся в каком-то каталоге на жестком диске, на других - Windows был установлен с CD. Как узнать откуда была установленна Windows? <br />Ответ:<br />Эту информацию можно получить из реестра.</p> <p>Пример:<br />uses Registry;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> reg: TRegistry;<br />begin<br /> reg := TRegistry.Create;<br /> reg.RootKey := HKEY_LOCAL_MACHINE;<br /> reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\SETUP',false);<br /> ShowMessage(reg.ReadString('SourcePath'));<br /> reg.CloseKey;<br /> reg.free;<br />end;</p> <p>Вопрос:<br />Как получить строку сообщения об ошибке Windows код которой получен функцией<br />GetLastError?</p> <p>Ответ:<br />Функция RTL SysErrorMessage(GetLastError).</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> {Cause a Windows system error message to be logged}<br /> ShowMessage(IntToStr(lStrLen(nil)));<br /> ShowMessage(SysErrorMessage(GetLastError));<br />end;</p> <p>Вопрос:<br />Как заставить Delphi выполнять еще более строгую проверка типов? Напрмер - я создаю пользовательский тип, унаследованный от double и могу передавать его любым функциям, принимающим параметр типа double. Как заставить компилятор проводить более строгую проверку типов и выдавать предупреждение в таких случаях? <br />Ответ:<br />См. ответ.</p> <p>Пример:</p> <p>type TStrongType = type Double;<br />type TWeakType = Double;</p> <p>procedure AddWeakType(var d : TWeakType);<br />begin<br /> d := d + 1;<br />end;</p> <p>procedure AddStrongType(var d : TStrongType);<br />begin<br /> d := d + 1;<br />end;</p> <p>procedure AddDoubleType(var d : Double);<br />begin<br /> d := d + 1;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> d : Double;<br /> s : TStrongType;<br /> w : TWeakType;<br />begin<br /> AddDoubleType(d); {compiles fine}<br /> AddDoubleType(w); {compiles fine}<br /> AddDoubleType(s); {&lt;- compile error}<br /> AddDoubleType(double(s)); {compiles fine}<br /> AddWeakType(d); {compiles fine}<br /> AddWeakType(w); {compiles fine}<br /> AddWeakType(s); {&lt;- compile error}<br /> AddWeakType(TWeakType(s)); {compiles fine}<br /> AddStrongType(d); {&lt;- compile error}<br /> AddStrongType(TStrongType(d)); {compiles fine}<br /> AddStrongType(w); {&lt;- compile error}<br /> AddStrongType(TStrongType(w)); {compiles fine}<br /> AddStrongType(s); {compiles fine}<br />end;</p> <p>Вопрос:<br />Где в Delphi обьявленны VK_Key для A-Z и 0-9?</p> <p>Ответ:<br />Они не обьявлены в Delphi поскольку они просто могуть быть заменены буквами.<br />VK_0 до VK_9 то же что и&#160; ASCII '0' до '9' ($30 - $39),<br />VK_A до VK_Z то же что и&#160; ASCII 'A' до 'Z' ($41 - $5A).</p> <p>Вопрос:<br />Как изменить оконную процедуру для TForm?</p> <p>Ответ:<br />Переопределите в подклассе TForm оконную процедуру WinProc класса. В примере оконная процедура переопределяется для того чтобы реагировать на сообщение WM_CANCELMODE, показывающее, что выполняется messagebox или какой-либо еще диалог. <br />Пример:</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; Button1: TButton;<br />&#160; &#160; procedure WndProc (var Message: TMessage); override;<br />&#160; &#160; procedure Button1Click(Sender: TObject);<br /> private<br />&#160; &#160; {Private declarations}<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.WndProc (var Message: TMessage);<br />begin<br /> if Message.Msg = WM_CANCELMODE then<br />&#160; &#160; begin<br />&#160; &#160; Form1.Caption := 'A dialog or message box has popped up';<br />&#160; &#160; end<br /> else<br />&#160; &#160; inherited&#160; // &lt;- остальное сделает родительская процедура<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> ShowMessage('Test Message');<br />end;</p> <p>Вопрос:<br />Как узнать размеры TComboBox с показанным выпадающим списком до показа списка?</p> <p>Ответ:<br />На событии FormShow пошлите сообщение CB_SHOWDROPDOWN в ComboBox дважды - один раз чтобы заставить список выпасть, второй - чтобы убрать его. Затем пошлите сообщение CB_GETDROPPEDCONTROLRECT, передав в качестве параметра адрес TRect. TRect будет содержать экранные кординаты прямоугольника описывающего ComboBox вместе с выпавшим списком. Затем Вы можете вызвать ScreenToClient чтобы преобразовать экранные кординаты в координаты клиентской области окна. <br />Пример:</p> <p>var<br /> R : TRect;<br />procedure TForm1.FormShow(Sender: TObject);<br />var<br /> T : TPoint;<br />begin<br /> SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);<br /> SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 0, 0);<br /> SendMessage(ComboBox1.Handle, CB_GETDROPPEDCONTROLRECT, 0, LongInt(@r));<br /> t := ScreenToClient(Point(r.Left, r.Top));<br /> r.Left := t.x;<br /> r.Top := t.y;<br /> t := ScreenToClient(Point(r.Right, r.Bottom));<br /> r.Right := t.x;<br /> r.Bottom := t.y;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Form1.Canvas.Rectangle(r.Left, r.Top, r.Right, r.Bottom );<br />end;</p> <p>Вопрос:<br />Я хочу создать в своей программе меню &quot;а ля Дельфи 4&quot;. Как это сделать?</p> <p>Ответ:<br />1. Разместите на форме TControlBar. (закладка Additional) Установите Align = Client.<br />2. Разместите TToolBar (закладка Win32) внутри TControlBar.<br />3. Установите в True свойства Flat и ShowCaptions этого TToolBar.<br />4. Создайте на TToolBar столько TToolButtons сколько Вам нужно. (щелкнув по TToolBar<br /> правой кнопкой и выбрав NewButton)<br />5. Установите свойство Grouped = True для всех TToolButtons. Это позволит меню выпадать<br /> при перемещении курсора между главными пунктами меню (если меню уже показано).<br />6. Разместите на фоме TMainMenu и убедитесь, что оно *НЕ присоденено* как меню главной<br /> формы. (посмотрите свойство Menu формы).<br />7. Создайте все пункты меню (щелкнув по TMainMenu кнопкой и выбрав Menu Designer)<br />8. Для каждой TToolButton установите ее MenuItem равным соответсвующему пункту TMainMenu.</p> <p>Вопрос:<br />Как добится того чтобы TMemo и TEdit имели работали не только в режиме вставки символов,<br />но и в режиме замены?</p> <p>Ответ:<br />Элементы управления Windows TEdit и TMemo не имеют режима замены. Однако этот режим можно эмулировать установив свойство SelLength edit'а или memo в 1 при обработке события KeyPress. Это заставит его перезаписывать символ в текущей позиции курсора. В примере этот способ используется для TMemo. Режим вставка/замена переключается клавишей &quot;Insert&quot;. <br />Пример:</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; Memo1: TMemo;<br />&#160; &#160; procedure Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br />&#160; &#160; procedure Memo1KeyPress(Sender: TObject; var Key: Char);<br />private<br /> {Private declarations}<br />&#160; &#160; InsertOn : bool;<br />public<br /> {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);<br />begin<br /> if (Key = VK_INSERT) and (Shift = []) then<br />&#160; &#160; InsertOn := not InsertOn;<br />end;</p> <p>procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);<br />begin<br /> if ((Memo1.SelLength = 0) and (not InsertOn)) then<br />&#160; &#160; Memo1.SelLength := 1;<br />end;</p> <p>Вопрос:<br />Как отправить сообщение сразу всем элементам управления формы?</p> <p>Ответ:<br />Можно использовать Screen.Forms[i].BroadCast(msg); где [i] - индекс той формы, которой Вы хотите переслать сообщение. BroadCast работает со всеми компонентами, потомками TWinControls и отправляет сообщение всем дочерним компонентам из массива Controls. Если один из дочерних компонентов обрабатывает это сообщение и устанавливает Msg.Result в ненулевое значение - дальнейшая рассылка сообщения останавливается. </p> <p>Вопрос:<br />При попытке присвоить значение свойству &quot;selected&quot; ListBox'а вырабатывается exception<br />&quot;Index is out of bounds&quot;. В чем тут дело и как присвоить значение свойству selected?</p> <p>Ответ:<br />Свойство &quot;selected&quot; компонента ТListBox может быть использованно только если свойство<br />MultiSelect установленно в True. Если Вы работаете с ListBox'ом у которого<br />MultiSelect=false то используйте свойство ItemIndex.</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> ListBox1.Items.Add('1');<br /> ListBox1.Items.Add('2');<br /> {This will fail on a single selection ListBox}<br />// ListBox1.Selected[1] := true;<br /> ListBox1.ItemIndex := 1; {This is ok}<br />end;</p> <p>Вопрос:<br />Как ограничить длинну текста, вводимого в TEdit, так чтобы ширина текста не превышала<br />ширину TEdit'а?</p> <p>Ответ:<br />В примере приведено два способа ограничить длинну текста в TEdit так чтобы она не превышала ширину клиентской области окна TEdit'а и не появлялась прокрутка текста. Первый способ устанавливает свойство TEdit'а MaxLength равным числу букв &quot;W&quot;, которые поместятся в TEdit. &quot;W&quot; выбрана потому, что является, наверное, самой широкой буквой в любом шрифте. Этот метод сносно работает для шрифтов с фиксированной шириной букв, но для шрифтов с переменной шириной букв вряд ли сгодится. Второй способ перхватывает событие KeyPress TEdit'а и измеряет ширину уже введенного текста и ширину нового символа. Если ширина больше чем клиентская область TEdit'а новый символ отбрасывается и вызывается MessageBeep. <br />Пример:</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />var<br /> cRect : TRect;<br /> bm : TBitmap;<br /> s : string;<br />begin<br /> Windows.GetClientRect(Edit1.Handle, cRect);<br /> bm := TBitmap.Create;<br /> bm.Width := cRect.Right;<br /> bm.Height := cRect.Bottom;<br /> bm.Canvas.Font := Edit1.Font;<br /> s := 'W';<br /> while bm.Canvas.TextWidth(s) &lt; CRect.Right do<br /> s := s + 'W';<br /> if length(s) &gt; 1 then<br /> begin<br />&#160; &#160; Delete(s, 1, 1);<br />&#160; &#160; Edit1.MaxLength := Length(s);<br /> end;<br />end;</p> <p>{Другой вариант}</p> <p>procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);<br />var<br /> cRect : TRect;<br /> bm : TBitmap;<br />begin<br /> if ((Ord(Key) &lt;&gt; VK_TAB) and (Ord(Key) &lt;&gt; VK_RETURN) and<br />&#160; &#160; (Ord(Key) &lt;&gt; VK_LEFT) and (Ord(Key) &lt;&gt; VK_BACK)) then<br /> begin<br />&#160; &#160; Windows.GetClientRect(Edit1.Handle, cRect);<br />&#160; &#160; bm := TBitmap.Create;<br />&#160; &#160; bm.Width := cRect.Right;<br />&#160; &#160; bm.Height := cRect.Bottom;<br />&#160; &#160; bm.Canvas.Font := Edit1.Font;<br />&#160; &#160; if bm.Canvas.TextWidth(Edit1.Text + Key) &gt; CRect.Right then<br />&#160; &#160; begin<br />&#160; &#160; Key := #0;<br />&#160; &#160; MessageBeep(-1);<br />&#160; &#160; end;<br />&#160; &#160; bm.Free;<br /> end;<br />end;</p> <p>Вопрос:<br />Как сохранить обьект TFont в реестре/ini/файле/таблице базы данных?</p> <p>Ответ:<br />Нужно сохранять атрибуты шрифта (имя, размер и т.п.) а не сам обьект TFont. После считывания этой информации следует проверить существует ли такой шрифт, прежде чем его использовать. Чтобы не показаться голословным дополню ответ Borland'а своим примером сохранения/чтения шрифта в/из реестра <br />Uses&#160; &#160; ... Registry;</p> <p>procedure SaveFontToRegistry(Font : TFont; SubKey : String);<br />Var<br /> R : TRegistry;<br /> FontStyleInt : byte;<br /> FS : TFontStyles;<br />begin<br /> R:=TRegistry.Create;<br /> try<br />&#160; &#160; FS:=Font.Style;<br />&#160; &#160; Move(FS,FontStyleInt,1);<br />&#160; &#160; R.OpenKey(SubKey,True);<br />&#160; &#160; R.WriteString('Font Name',Font.Name);<br />&#160; &#160; R.WriteInteger('Color',Font.Color);<br />&#160; &#160; R.WriteInteger('CharSet',Font.Charset);<br />&#160; &#160; R.WriteInteger('Size',Font.Size);<br />&#160; &#160; R.WriteInteger('Style',FontStyleInt);<br /> finally<br />&#160; &#160; R.Free;<br /> end;<br />end;</p> <p>function ReadFontFromRegistry(Font : TFont; SubKey : String) : boolean;<br />Var<br /> R : TRegistry;<br /> FontStyleInt : byte;<br /> FS : TFontStyles;<br />begin<br /> R:=TRegistry.Create;<br /> try<br />&#160; &#160; result:=R.OpenKey(SubKey,false); if not result then exit;<br />&#160; &#160; Font.Name:=R.ReadString('Font Name');<br />&#160; &#160; Font.Color:=R.ReadInteger('Color');<br />&#160; &#160; Font.Charset:=R.ReadInteger('CharSet');<br />&#160; &#160; Font.Size:=R.ReadInteger('Size');<br />&#160; &#160; FontStyleInt:=R.ReadInteger('Style');<br />&#160; &#160; Move(FontStyleInt,FS,1);<br />&#160; &#160; Font.Style:=FS;<br /> finally<br />&#160; &#160; R.Free;<br /> end;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> If FontDialog1.Execute then<br /> begin<br />&#160; &#160; SaveFontToRegistry(FontDialog1.Font,'Delphi Kingdom\Fonts');<br /> end;<br />end;</p> <p>procedure TForm1.Button2Click(Sender: TObject);<br />var<br /> NFont : TFont;<br />begin<br /> NFont:=TFont.Create;<br /> if ReadFontFromRegistry(NFont,'Delphi Kingdom\Fonts') then<br /> begin //здесь добавить проверку - существует ли шрифт<br />&#160; &#160; Label1.Font.Assign(NFont);<br />&#160; &#160; NFont.Free;<br /> end;<br />end;</p> <p>Вопрос:<br />&#160; Как перемещать компонент мышкой во время работы программы &quot;runtime&quot;?</p> <p>Ответ:<br />Перехватить событие OnMouseDown, запомнить x и y координты курсора мыши. Отслеживать движение мыши по событию OnMouseMove и перемещать компонент вслед за курсором мыши до тех пор пока не произойдет событие OnMouseUp. В примере показано перемещение компонента TButton. Перемещение начинается, когда пользователь &quot;берет&quot; TButton мышью, удерживая нажатой клавишу &quot;Сontrol&quot;. <br />Пример:</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; Button1: TButton;<br />&#160; &#160; procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br />&#160; &#160; procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,<br />&#160; &#160; &#160; &#160; Y: Integer);<br />&#160; &#160; procedure Button1MouseUp(Sender: TObject; Button:<br />&#160; &#160; &#160; &#160; TMouseButton; Shift: TShiftState; X, Y: Integer);<br /> private<br />&#160; &#160; {Private declarations}<br /> public<br />&#160; &#160; {Public declarations}<br />&#160; &#160; MouseDownSpot : TPoint;<br />&#160; &#160; Capturing : bool;<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br />begin<br /> if ssCtrl in Shift then<br /> begin<br />&#160; &#160; SetCapture(Button1.Handle);<br />&#160; &#160; Capturing := true;<br />&#160; &#160; MouseDownSpot.X := x;<br />&#160; &#160; MouseDownSpot.Y := Y;<br /> end;<br />end;</p> <p>procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,&#160; Y: Integer);<br />begin<br /> if Capturing then<br /> begin<br />&#160; &#160; Button1.Left := Button1.Left - (MouseDownSpot.x - x);<br />&#160; &#160; Button1.Top := Button1.Top - (MouseDownSpot.y - y);<br /> end;<br />end;</p> <p>procedure TForm1.Button1MouseUp(Sender: TObject; Button:<br />&#160; &#160; TMouseButton; Shift: TShiftState; X, Y: Integer);<br />begin<br /> if Capturing then<br /> begin<br />&#160; &#160; ReleaseCapture;<br />&#160; &#160; Capturing := false;<br />&#160; &#160; Button1.Left := Button1.Left - (MouseDownSpot.x - x);<br />&#160; &#160; Button1.Top := Button1.Top - (MouseDownSpot.y - y);<br /> end;<br />end;</p> <p>Вопрос:<br />При попытке создать обьект класса TPrinter (TPrinter.Create) я получаю exception.<br />Почему?</p> <p>Ответ:<br />В создании обьекта класса TPrinter с использованием TPrinter.Create нет необходимости,<br />так как обьект класса TPrinter (называемый Printer) автоматически создается при<br />использовании модуля Printers.</p> <p>Пример:</p> <p>uses Printers;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Printer.BeginDoc;<br /> Printer.Canvas.TextOut(100, 100, 'Hello World!');<br /> Printer.EndDoc;<br />end;</p> <p>Вопрос:<br />Как перехватить события в неклиентской области формы, в заголовке окна, например?</p> <p>Ответ:<br />Создайте обработчик одного из сообщений WM_NC (non client - не клиентских) (посмотрите<br />WM_NC в Windows API help). Пример показывает как перехватить вижение мыши во всей<br />неклиенстской области окна (рамка и заголовок).</p> <p>Пример:</p> <p>unit Unit1;</p> <p>interface</p> <p>uses<br />&#160; &#160;Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;</p> <p>type<br />TForm1 = class(TForm)<br />private<br /> {Private declarations}<br /> procedure WMNCMOUSEMOVE(var Message: TMessage);<br /> message WM_NCMOUSEMOVE;<br />public<br /> {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.WMNCMOUSEMOVE(var Message: TMessage);<br />var<br /> s : string;<br />begin<br /> case Message.wParam of<br />&#160; &#160; HTERROR: <br />&#160; &#160; s:= 'HTERROR';<br />&#160; &#160; HTTRANSPARENT:<br />&#160; &#160; s:= 'HTTRANSPARENT';<br />&#160; &#160; HTNOWHERE: <br />&#160; &#160; s:= 'HTNOWHERE';<br />&#160; &#160; HTCLIENT:<br />&#160; &#160; s:= 'HTCLIENT';<br />&#160; &#160; HTCAPTION:<br />&#160; &#160; s:= 'HTCAPTION';<br />&#160; &#160; HTSYSMENU:<br />&#160; &#160; s:= 'HTSYSMENU';<br />&#160; &#160; HTSIZE:<br />&#160; &#160; s:= 'HTSIZE';<br />&#160; &#160; HTMENU:<br />&#160; &#160; s:= 'HTMENU';<br />&#160; &#160; HTHSCROLL:<br />&#160; &#160; s:= 'HTHSCROLL';<br />&#160; &#160; HTVSCROLL:<br />&#160; &#160; s:= 'HTVSCROLL';<br />&#160; &#160; HTMINBUTTON:<br />&#160; &#160; s:= 'HTMINBUTTON';<br />&#160; &#160; HTMAXBUTTON:<br />&#160; &#160; s:= 'HTMAXBUTTON';<br />&#160; &#160; HTLEFT:<br />&#160; &#160; s:= 'HTLEFT';<br />&#160; &#160; HTRIGHT:<br />&#160; &#160; s:= 'HTRIGHT';<br />&#160; &#160; HTTOP:<br />&#160; &#160; s := 'HTTOP';<br />&#160; &#160; HTTOPLEFT:<br />&#160; &#160; s:= 'HTTOPLEFT';<br />&#160; &#160; HTTOPRIGHT:<br />&#160; &#160; s:= 'HTTOPRIGHT';<br />&#160; &#160; HTBOTTOM:<br />&#160; &#160; s:= 'HTBOTTOM';<br />&#160; &#160; HTBOTTOMLEFT:<br />&#160; &#160; s:= 'HTBOTTOMLEFT';<br />&#160; &#160; HTBOTTOMRIGHT:<br />&#160; &#160; s:= 'HTBOTTOMRIGHT';<br />&#160; &#160; HTBORDER:<br />&#160; &#160; s:= 'HTBORDER';<br />&#160; &#160; HTOBJECT:<br />&#160; &#160; s:= 'HTOBJECT';<br />&#160; &#160; HTCLOSE:<br />&#160; &#160; s:= 'HTCLOSE';<br />&#160; &#160; HTHELP:<br />&#160; &#160; s:= 'HTHELP';<br />&#160; &#160; else s:= '';<br /> end;<br /> Form1.Caption := s;<br /> Message.Result := 0;<br />end;</p> <p>end.</p> <p>Вопрос:<br />При попытке использовать метод TCanvas.StretchDraw чтобы нарисовать иконку<br />увеличенной ее размер не изменяется. Что делать?</p> <p>Ответ:<br />Иконки всегда рисуются размером принятым в системе по умолчанию. Чтобы показать<br />увеличенный вид иконки скоприуйте ее на bitmap, а зате используйте метод<br />TCanvas.StretchDraw.</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> TheBitmap : TBitmap;<br />begin<br /> TheBitmap := TBitmap.Create;<br /> TheBitmap.Width := Application.Icon.Width;<br /> TheBitmap.Height := Application.Icon.Height;<br /> TheBitmap.Canvas.Draw(0, 0, Application.Icon);<br /> Form1.Canvas.StretchDraw(Rect(0,0,TheBitmap.Width * 3,TheBitmap.Height * 3),<br />&#160; &#160;&#160; &#160; TheBitmap);<br /> TheBitmap.Free;<br />end;</p> <p>Вопрос:<br />Можно ли сделать так чтобы TStringGrid автоматически изменял ширину колонок, чтобы<br />вместить самую длинную строчку в колонке?</p> <p>Ответ:<br />См. пример.</p> <p>Пример:</p> <p>procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer);<br />var<br /> i : integer;<br /> temp : integer;<br /> max : integer;<br />begin<br /> max := 0;<br /> for i := 0 to (Grid.RowCount - 1) do<br /> begin<br />&#160; &#160; temp := Grid.Canvas.TextWidth(grid.cells[column, i]);<br />&#160; &#160; if temp &gt; max then max := temp;<br /> end;<br /> Grid.ColWidths[column] := Max + Grid.GridLineWidth + 3;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> AutoSizeGridColumn(StringGrid1, 1);<br />end;</p> <p>Вопрос:<br />TTimer работает не достаточно точно. Как получить более высокую точность?</p> <p>Ответ:<br />Таймер Windows не был создан с целью получения сверхточного хронометра. :-( Другими словами, когда Вы устанавливаете таймер на срабатывания каждые 1000 миллисекунд, он может срабатывать через интервал несколько больший чем 1000 миллисекунд. Значения меньше 55 миллисекунд никогда не будут срабатывать вовремя в Windows, поскольку это минимальная точность таймера. Можно проверять системное время и сравнивать его со временем предыдущего события таймера чтобы повысить точность. </p> <p>Вопрос:<br />Как поместить JPEG-картинку в exe-файл и потом загрузить ее?</p> <p>Ответ:<br />1) Создайте текстовый файл с расширением &quot;.rc&quot;. Имя этого файла должно отличаться<br />от имени файла-пректа или любого модуля проекта.<br />Файл должен содержать строку вроде: MYJPEG JPEG C:\DownLoad\MY.JPG<br />где:<br />&quot;MYJPEG&quot; имя ресурса<br />&quot;JPEG&quot; пользовательский тип ресурса<br />&quot;C:\DownLoad\MY.JPG&quot; руть к&#160; JPEG файлу.</p> <p>Пусть например rc-файл называется &quot;foo.rc&quot;</p> <p>Запустите BRCC32.exe (Borland Resource CommandLine Compiler) - программа находится<br />в каталоге Bin Delphi/C++ Builder'а - передав ей в качестве параметра полный путь<br />к rc-файлу.<br />В нашем примере:</p> <p>C:\DelphiPath\BIN\BRCC32.EXE&#160; C:\ProjectPath\FOO.RC<br />Вы получите откомпилированный ресурс - файл с расширением &quot;.res&quot;.<br />(в нашем случает foo.res).<br />Далее добавте ресурс к своему приложению.</p> <p>{Грузим ресурс}<br />{$R FOO.RES}</p> <p>uses Jpeg;</p> <p>procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);<br />var<br /> ResHandle : THandle;<br /> MemHandle : THandle;<br /> MemStream : TMemoryStream;<br /> ResPtr&#160; &#160; : PByte;<br /> ResSize&#160; &#160;: Longint;<br /> JPEGImage : TJPEGImage;<br />begin<br /> ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');<br /> MemHandle := LoadResource(hInstance, ResHandle);<br /> ResPtr&#160; &#160; := LockResource(MemHandle);<br /> MemStream := TMemoryStream.Create;<br /> JPEGImage := TJPEGImage.Create;<br /> ResSize := SizeOfResource(hInstance, ResHandle);<br /> MemStream.SetSize(ResSize);<br /> MemStream.Write(ResPtr^, ResSize);<br /> FreeResource(MemHandle);<br /> MemStream.Seek(0, 0);<br /> JPEGImage.LoadFromStream(MemStream);<br /> ThePicture.Assign(JPEGImage);<br /> JPEGImage.Free;<br /> MemStream.Free;<br />end;<br />procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> LoadJPEGFromRes('MYJPEG', Image1.Picture);<br />end;</p> <p>Вопрос:<br />Как перехватить сообщения прокрутки в TScrollBox?</p> <p>Ответ:<br />Следующий пример перехватывает сообщения о прокрутке компонента TScrollBox и<br />синхронизирует обе линейки прокрутки. Сообщения прокрутки перехватываются с помощью<br />переопределения окнной процедуры (WinProc) ScrollBox'а.</p> <p>Пример:</p> <p>type<br />{$IFDEF WIN32}<br /> WParameter = LongInt;<br />{$ELSE}<br /> WParameter = Word;<br />{$ENDIF}<br /> LParameter = LongInt;</p> <p>{Declare a variable to hold the window procedure we are replacing}<br />var<br /> OldWindowProc : Pointer;</p> <p>function NewWindowProc(WindowHandle : hWnd;<br /> TheMessage&#160; &#160;: WParameter;<br /> ParamW : WParameter;<br /> ParamL : LParameter) : LongInt<br />{$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}<br />var<br /> TheRangeMin : integer;<br /> TheRangeMax : integer;<br /> TheRange : integer;<br />begin<br /> if TheMessage = WM_VSCROLL then<br /> begin<br />&#160; &#160; {Get the min and max range of the horizontal scroll box}<br />&#160; &#160; GetScrollRange(WindowHandle, SB_HORZ, TheRangeMin, TheRangeMax);<br />&#160; &#160; {Get the vertical scroll box position}<br />&#160; &#160; TheRange := GetScrollPos(WindowHandle, SB_VERT);<br />&#160; &#160; {Make sure we wont exceed the range}<br />&#160; &#160; if TheRange &lt; TheRangeMin then<br />&#160; &#160; TheRange := TheRangeMin else<br />&#160; &#160; if TheRange &gt; TheRangeMax then<br />&#160; &#160; TheRange := TheRangeMax;<br />&#160; &#160; {Set the horizontal scroll bar}<br />&#160; &#160; SetScrollPos(WindowHandle, SB_HORZ, TheRange, true);<br /> end;<br /> if TheMessage = WM_HSCROLL then<br /> begin<br />&#160; &#160; {Get the min and max range of the horizontal scroll box}<br />&#160; &#160; GetScrollRange(WindowHandle, SB_VERT, heRangeMin, TheRangeMax);<br />&#160; &#160; {Get the horizontal scroll box position}<br />&#160; &#160; TheRange := GetScrollPos(WindowHandle, SB_HORZ);<br />&#160; &#160; {Make sure we wont exceed the range}<br />&#160; &#160; if TheRange &lt; TheRangeMin then<br />&#160; &#160; TheRange := TheRangeMin<br />&#160; &#160; else<br />&#160; &#160; if TheRange &gt; TheRangeMax then<br />&#160; &#160; &#160; &#160; TheRange := TheRangeMax;<br />&#160; &#160; {Set the vertical scroll bar}<br />&#160; &#160; SetScrollPos(WindowHandle, SB_VERT, TheRange, true);<br /> end;</p> <p> {Call the old Window procedure to allow processing of the message.}<br /> NewWindowProc := CallWindowProc(OldWindowProc, WindowHandle, TheMessage,<br />&#160; &#160; &#160; &#160; ParamW, ParamL);<br />end;</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> {Set the new window procedure for the control and remember<br />&#160; &#160; &#160; &#160; the old window procedure.}<br /> OldWindowProc := Pointer(SetWindowLong(ScrollBox1.Handle, GWL_WNDPROC,<br />&#160; &#160; &#160; &#160; LongInt(@NewWindowProc)));<br />end;</p> <p>procedure TForm1.FormDestroy(Sender: TObject);<br />begin<br /> {Set the window procedure back to the old window procedure.}<br /> SetWindowLong(ScrollBox1.Handle, GWL_WNDPROC, LongInt(OldWindowProc));<br />end;</p> <p>Вопрос:<br />Как сделать прямоугольник для выделения части картинки для редактирования?</p> <p>Ответ:<br />Самый простой способ - воспользоваться функцией Windows API DrawFocusRect. Функция DrawFocusRect использует операцию XOR при рисовании - таким образом вывод прямоугольника дважды с одними и теми же координатами стирает прямоугольник, и прямоугольник всегда будет виден, на фоне какого бы цвета он не выводился. <br />Пример:</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; procedure FormMouseDown(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br />&#160; &#160; procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,<br />&#160; &#160; &#160; &#160; Y: Integer);<br />&#160; &#160; procedure FormMouseUp(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; &#160; &#160; Shift: TShiftState; X, Y: Integer);<br /> private<br />&#160; &#160; {Private declarations}<br />&#160; &#160; Capturing : bool;<br />&#160; &#160; Captured : bool;<br />&#160; &#160; StartPlace : TPoint;<br />&#160; &#160; EndPlace : TPoint;<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>function MakeRect(Pt1 : TPoint; Pt2 : TPoint) : TRect;<br />begin<br /> if pt1.x &lt; pt2.x then<br />&#160; &#160; begin<br />&#160; &#160; Result.Left := pt1.x;<br />&#160; &#160; Result.Right := pt2.x;<br />&#160; &#160; end<br /> else<br />&#160; &#160; begin<br />&#160; &#160; Result.Left := pt2.x;<br />&#160; &#160; Result.Right := pt1.x;<br />&#160; &#160; end;<br /> if pt1.y &lt; pt2.y then<br />&#160; &#160; begin<br />&#160; &#160; Result.Top := pt1.y;<br />&#160; &#160; Result.Bottom := pt2.y;<br />&#160; &#160; end<br /> else<br /> begin<br />&#160; &#160; Result.Top := pt2.y;<br />&#160; &#160; Result.Bottom := pt1.y;<br /> end;<br />end;</p> <p>procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; Shift: TShiftState; X, Y: Integer);<br />begin<br /> if Captured then<br />&#160; &#160; DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));<br /> StartPlace.x := X;<br /> StartPlace.y := Y;<br /> EndPlace.x := X;<br /> EndPlace.y := Y;<br /> DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));<br /> Capturing := true;<br /> Captured := true;<br />end;</p> <p>procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,<br />&#160; &#160; Y: Integer);<br />begin<br /> if Capturing then<br /> begin<br />&#160; &#160; DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));<br />&#160; &#160; EndPlace.x := X;<br />&#160; &#160; EndPlace.y := Y;<br />&#160; &#160; DrawFocusRect(Form1.Canvas.Handle,MakeRect(StartPlace,EndPlace));<br /> end;<br />end;</p> <p>procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;<br />&#160; &#160; Shift: TShiftState; X, Y: Integer);<br />begin<br /> Capturing := false;<br />end;</p> <p>Вопрос:<br />Можно ли использовать иконку как картинку на кнопке TSpeedButton?</p> <p>Ответ:<br />Можно. См. пример.</p> <p>Пример:</p> <p>uses ShellApi;</p> <p>procedure TForm1.FormShow(Sender: TObject);<br />var<br /> Icon: TIcon;<br />begin<br /> Icon := TIcon.Create;<br /> Icon.Handle := ExtractIcon(0,'C:\WINDOWS\NOTEPAD.EXE',1);<br /> SpeedButton1.Glyph.Width := Icon.Width;<br /> SpeedButton1.Glyph.Height := Icon.Height;<br /> SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);<br /> Icon.Free;<br />end;</p> <p>Вопрос:<br />Как поместить прозрачную фоновую каринку на компонент CoolBar?</p> <p>Ответ:<br />procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> Bm1 : TBitmap;<br /> Bm2 : TBitmap;<br />begin<br /> Bm1 := TBitmap.Create;<br /> Bm2 := TBitmap.Create;<br /> Bm1.LoadFromFile('c:\download\test.bmp');<br /> Bm2.Width := Bm1.Width;<br /> Bm2.Height := Bm1.Height;<br /> bm2.Canvas.Brush.Color := CoolBar1.Color;<br /> bm2.Canvas.BrushCopy(Rect(0, 0, bm2.Width, bm2.Height), Bm1,<br />&#160; &#160; Rect(0, 0, Bm1.width, Bm1.Height), ClWhite);<br /> bm1.Free;<br /> CoolBar1.Bitmap.Assign(bm2);<br /> bm2.Free;<br />end;</p> <p>Вопрос:<br />Ползунок компонента TScrollBar все время мигает. Как это отключить?</p> <p>Ответ:<br />Установите свойтсво ScrollBar.TabStop в False.</p> <p>Вопрос:<br />Как программно перевести DBgrid в реим редактирования и установить курсор в<br />окошке редактирования в требуемую позицию?</p> <p>Ответ:<br />Переведите таблицу в режим редактирования, затем получите дескриптор (handle) окна редактирования и перешлите ей сообщение EM_SETSEL. В качестве параметров вы должны переслать начальную позицию курсора, и конечную позицию, определяющую конец выделения текста цветом. В приведенном примере курсор помещается во вторую позицию, текст внутри ячейки не выделяется. <br />Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> h : THandle;<br />begin<br /> Application.ProcessMessages;<br /> DbGrid1.SetFocus;<br /> DbGrid1.EditorMode := true;<br /> Application.ProcessMessages;<br /> h:= Windows.GetFocus;<br /> SendMessage(h, EM_SETSEL, 2, 2);<br />end;</p> <p>Вопрос:<br />Как поместить курсор в определенную позицию edit'а и подобных ему элементов управления?</p> <p>Ответ:<br />Можно использовать методы Delphi SelStart() и SelectLength().</p> <p>Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Edit1.SetFocus;<br /> {переводим курсор во вторую позицию}<br /> Edit1.SelStart := 2;<br /> {не выделяем никакого текста}<br /> Edit1.SelLength := 0;<br />end;</p> <p>Вопрос:<br />Как среагировать на минимизацию-максимизацию формы перед тем как произойдет изменение<br />размера формы?</p> <p>Ответ:<br />В примере перехватывается сообщение WM_SYSCOMMAND. Если это сообщение говорит о<br />минимизации или максимизации формы - пищит динамик.</p> <p>Пример:</p> <p>type<br /> TForm1 = class(TForm)<br /> private<br />&#160; &#160; {Private declarations}<br />&#160; &#160; procedure WMSysCommand(var Msg: TWMSysCommand);<br />&#160; &#160; message WM_SYSCOMMAND;<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.WMSysCommand;<br />begin<br /> if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then<br />&#160; &#160; MessageBeep(0)<br /> else<br />&#160; &#160; inherited;<br />end;</p> <p>Вопрос:<br />Можно ли сделать так - одна форма показывает другую и остается позади нее, но фокус<br />ввода не переходит к новой форме, а остается у старой?</p> <p>Ответ:<br />В примере показывается не автосоздаваемая (non auto-created) форма, но фокус ввода ей<br />не передается.</p> <p>Пример:</p> <p>uses Unit2;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> Form2 := TForm2.Create(Application);<br /> Form2.Visible := FALSE;<br /> ShowWindow(Form2.Handle, SW_SHOWNA);<br />end;</p> <p>Вопрос:<br />На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять<br />из списка TDriveComboBox диски которые отключены?</p> <p>Ответ:<br />В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready).<br />Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&amp;play<br />флоппи дисковода.</p> <p>Пример:</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />var<br /> i : integer;<br /> OldErrorMode : Word;<br /> OldDirectory : string;<br />begin<br /> OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);<br /> GetDir(0, OldDirectory);<br /> i := 0;<br /> while i &lt;= DriveComboBox1.Items.Count - 1 do begin<br /> {$I-}<br /> ChDir(DriveComboBox1.Items[i][1] + ':\');<br /> {$I+}<br /> if IoResult &lt;&gt; 0 then<br />&#160; &#160; DriveComboBox1.Items.Delete(i)<br /> else<br />&#160; &#160; inc(i);<br /> end;<br /> ChDir(OldDirectory);<br /> SetErrorMode(OldErrorMode);<br />end;</p> <p>Вопрос:<br />Как сообщить всем формам моего приложения (в том числе и не видимым в данный момент)<br />об изминении каких-то глобальных значений?</p> <p>Ответ:<br />Один из способов - создать пользовательское сообщение и использовать метод preform<br />чтобы разослать его всем формам из массива Screen.Forms.</p> <p>Пример:</p> <p>{Code for Unit1}</p> <p>const<br /> UM_MyGlobalMessage = WM_USER + 1;</p> <p>type<br /> TForm1 = class(TForm)<br />&#160; &#160; Label1: TLabel;<br />&#160; &#160; Button1: TButton;<br />&#160; &#160; procedure FormShow(Sender: TObject);<br />&#160; &#160; procedure Button1Click(Sender: TObject);<br />&#160; &#160;private <br />&#160; &#160; {Private declarations}<br />&#160; &#160; procedure UMMyGlobalMessage(var AMessage: TMessage); message<br />&#160; &#160; UM_MyGlobalMessage;<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>uses Unit2;</p> <p>procedure TForm1.FormShow(Sender: TObject);<br />begin<br /> Form2.Show;<br />end;</p> <p>procedure TForm1.UMMyGlobalMessage(var AMessage: TMessage);<br />begin<br /> Label1.Left := AMessage.WParam;<br /> Label1.Top&#160; := AMessage.LParam;<br /> Form1.Caption := 'Got It!';<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> f: integer;<br />begin<br /> for f := 0 to Screen.FormCount - 1 do<br /> Screen.Forms[f].Perform(UM_MyGlobalMessage, 42, 42);<br />end;</p> <p>{Code for Unit2}</p> <p>const<br /> UM_MyGlobalMessage = WM_USER + 1;<br />type<br /> TForm2 = class(TForm)<br />&#160; &#160; Label1: TLabel;<br /> private<br />&#160; &#160; {Private declarations}<br />&#160; &#160; procedure UMMyGlobalMessage(var AMessage: TMessage);<br />&#160; &#160; message UM_MyGlobalMessage;<br /> public<br />&#160; &#160; {Public declarations}<br />end;</p> <p>var<br /> Form2: TForm2;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm2.UMMyGlobalMessage(var AMessage: TMessage);<br />begin<br /> Label1.Left := AMessage.WParam;<br /> Label1.Top&#160; := AMessage.LParam;<br /> Form2.Caption := 'Got It!';<br />end;</p> <p>Вопрос:<br />Как обновить список дисков компонента TDriveComboBox, учитывая, что могуд быть<br />подключены/отключены сетевые диски и произведена &quot;горячая замена&quot; plug&amp;play дисков?</p> <p>Ответ:<br />Следующий пример вызывает защищенный (protected) метод класса TDriveComboBox<br />BuildList() для регеирации списка дисков. (использовая так наз. &quot;class cracer&quot;)</p> <p>Пример:</p> <p>type<br /> TNewDriveComboBox = class(TDriveComboBox)&#160; //это наш &quot;class cracer&quot;<br />end;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> Drive : char;<br />begin<br /> Drive := DriveComboBox1.Drive;<br /> TNewDriveComboBox(DriveComboBox1).BuildList;<br />&#160; &#160; //вызываем защищенный метод родительского класса<br /> DriveComboBox1.Drive := Drive;<br />end;</p> <p>Вопрос:<br />Как программно заставить выпасть меню?</p> <p>Ответ:<br />В примере показано как показать меню и выбрать в нем какой-то пункт, эмулируя нажатие &quot;быстрой кдавиши&quot; пункта меню. Если у Вашего пункта меню нет &quot;быстрой клавиши&quot; Вы можете посылать комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно &quot;путешествовать&quot; по меню. <br />Пример:</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />begin<br /> //Allow button to finish painting in response to the click<br /> Application.ProcessMessages;<br /> {Alt Key Down}<br /> keybd_Event(VK_MENU, 0, 0, 0);<br /> {F Key Down - Drops the menu down}<br /> keybd_Event(ord('F'), 0, 0, 0);<br /> {F Key Up}<br /> keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);<br /> {Alt Key Up}<br /> keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);<br /> {F Key Down}<br /> keybd_Event(ord('S'), 0, 0, 0);<br /> {F Key Up}<br /> keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);<br />end;</p> <p>Вопрос:<br />Как сделать клавишу-акселератор (keyboard shortcut) компонету у которого нет заголовка?</p> <p>Ответ:<br />Возможный вариант - присвоить ссылку на этот компонент свойству FocusControl TLabel'а. В примере используется невидимый Label для создания &quot;быстрой&quot; клавиши (Alt+M) компонента Memo. Чтобы использовать пример, разместите на форме компонет TMemo, Label и несколько других компонентов, которые могут принимать фокус ввода. Запустите программу, перевидите фокус ввода куда-нибудь вне Memo и нажмите Alt+M - фокус ввода вернется в Memo. <br />Пример:</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br /> Label1.Visible := false;<br /> Label1.Caption := '&amp;M';<br /> Label1.FocusControl := Memo1;<br />end;</p> <p>Вопрос:<br />Можно ли как-то уменьшить мерцание при перерисовке компонента?</p> <p>Ответ:<br />Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента<br />- то фон компонента перерисовываться не будет.</p> <p>Пример:</p> <p>constructor TMyControl.Create;<br />begin<br /> inherited;<br /> ControlStyle := ControlStyle + [csOpaque];<br />end;</p> <p>Вопрос:<br />Как запретить изменение размера моего компонента в design-time?</p> <p>Ответ:<br />Поместите в конструктор компонента код, устанавливающий размеры по умолчанию.<br />Переопределите метод SetBounds и проверяйте в нем &quot;componentstate&quot;. Если компонет<br />находится режиме &quot;design-time&quot; (csDesigning in ComponentState) просто передавайте<br />значения ширины и высоты (width и heights) компонента по умолчанию (в нашем<br />примере 50) методу класса-предка.</p> <p>Пример:</p> <p>procedure TVu.SetBounds(ALeft : integer; ATop : integer; AWidth : integer;<br />&#160; &#160; AHeight : integer);<br />begin<br /> if csdesigning in componentstate then<br /> begin<br />&#160; &#160; AWidth := 50;<br />&#160; &#160; AHeight := 50;<br />&#160; &#160; inherited;&#160; //вызываем унаследованный от предка метод<br /> end;<br />end;</p> <p>Вопрос:<br />Можно ли уменьшить потребляемые компонентами TNotebook и TTabbedNotebook ресурсы?</p> <p>Ответ:<br />Да. Можно уничтожать обьекты, расположенные не на текущей странице TNotebook или<br />TTabbedNotebook. В примере вызывается защищенный (Protected) метод путем создания<br />так называемый &quot;class cracer'ов&quot;.</p> <p>type TMyTabbedNotebook = class(TTabbedNotebook); //это наш &quot;class cracer&quot;<br />type TMyNotebook = class(TNotebook);</p> <p>procedure TForm1.TabbedNotebook1Change(Sender: TObject; NewTab: Integer;<br />&#160; &#160; var AllowChange: Boolean);<br />begin<br /> with TabbedNotebook1 do&#160; //вызываем защищенный метод родительского класса<br />&#160; &#160; TMyTabbedNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;<br />end;</p> <p>procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;<br />&#160; &#160; var AllowChange: Boolean);<br />begin<br /> with Notebook1 do //вызываем защищенный метод родительского класса<br />&#160; &#160; TMyNotebook(TWinControl(Pages.Objects[PageIndex])).DestroyHandle;<br />&#160; &#160; NoteBook1.PageIndex := NewTab;<br />&#160; &#160; AllowChange := true<br />end;</p> <p>Вопрос:<br />Функция keybd_event() принимает значения до 244 - как мне отправить нажатие<br />клавиши с кодом #255 в элемент управления Windows?</p> <p>Ответ:<br />Это может понадобится для иностранных языков или для специальных символов. (например,<br />в русских шрифтах символ с кодом #255 - я прописное). Приведенный в примере метод,<br />не стоит использовать в случае если символ может быть передан обычным способом<br />(функцией keybd_event()).</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> KeyData : packed record<br />&#160; &#160; RepeatCount : word;<br />&#160; &#160; ScanCode : byte;<br />&#160; &#160; Bits : byte;<br /> end;<br />begin<br /> {Let the button repaint}<br /> Application.ProcessMessages;<br /> {Set the focus to the window}<br /> Edit1.SetFocus;<br /> {Send a right so the char is added to the end of the line}<br /> //&#160; SimulateKeyStroke(VK_RIGHT, 0);<br /> keybd_event(VK_RIGHT, 0,0,0);<br /> {Let the app get the message}<br /> Application.ProcessMessages;<br /> FillChar(KeyData, sizeof(KeyData), #0);<br /> KeyData.ScanCode := 255;<br /> KeyData.RepeatCount := 1;<br /> SendMessage(Edit1.Handle, WM_KEYDOWN, 255,LongInt(KeyData));<br /> KeyData.Bits := KeyData.Bits or (1 shl 30);<br /> KeyData.Bits := KeyData.Bits or (1 shl 31);<br /> SendMessage(Edit1.Handle, WM_KEYUP, 255, LongInt(KeyData));<br /> KeyData.Bits := KeyData.Bits and not (1 shl 30);<br /> KeyData.Bits := KeyData.Bits and not (1 shl 31);<br /> SendMessage(Edit1.Handle, WM_CHAR, 255, LongInt(KeyData));<br /> Application.ProcessMessages;<br />end;</p> <p>Вопрос:<br />Некоторые компоненты не меняют курсор мыши до тех пор пока пользователь не<br />сдвинет мышь. Как эмулировать движение мыши?</p> <p>Ответ:<br />В примере мышка слегка &quot;подталкивается&quot; без участия пользователя.</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> pt : TPoint;<br />begin<br /> Application.ProcessMessages;<br /> Screen.Cursor := CrHourglass;<br /> GetCursorPos(pt);<br /> SetCursorPos(pt.x + 1, pt.y + 1);<br /> Application.ProcessMessages;<br /> SetCursorPos(pt.x - 1, pt.y - 1);<br />end;</p> <p>Вопрос:<br />Как зарегистрировать расширение файла за своим приложением и контекстное меню,<br />связанное с этим типом?</p> <p>Ответ:<br />Пример регистрирует расширение файла(.myext) - файлы этого типа будут открываться<br />приложением MyApp.Exe. Также регнстрируется одно действие (action) по умолчанию<br />для файлов этого типа и два дополнительных пункта контекстного меню, связанного с<br />этим типом файлов. Возможно, потребуется перезайти в систему чтобы изменения<br />вступили в силу.</p> <p>Пример:</p> <p>uses<br /> Registry;</p> <p>procedure TForm1.Button1Click(Sender: TObject);<br />var<br /> R : TRegIniFile;<br />begin<br /> R := TRegIniFile.Create('');<br /> with R do<br />&#160; &#160; begin<br />&#160; &#160; RootKey := HKEY_CLASSES_ROOT;<br />&#160; &#160; WriteString('.myext','','MyExt');<br />&#160; &#160; WriteString('MyExt','','Some description of MyExt files');<br />&#160; &#160; WriteString('MyExt\DefaultIcon','','C:\MyApp.Exe,0');<br />&#160; &#160; WriteString('MyExt\Shell','','This_Is_Our_Default_Action');<br />&#160; &#160; WriteString('MyExt\Shell\First_Action',<br />&#160; &#160; &#160; &#160; &#160; &#160; '','This is our first action');<br />&#160; &#160; WriteString('MyExt\Shell\First_Action\command','',<br />&#160; &#160; &#160; &#160; &#160; &#160; 'C:\MyApp.Exe /LotsOfParamaters %1');<br />&#160; &#160; WriteString('MyExt\Shell\This_Is_Our_Default_Action','',<br />&#160; &#160; &#160; &#160; &#160; &#160; 'This is our default action');<br />&#160; &#160; WriteString('MyExt\Shell\This_Is_Our_Default_Action\command',<br />&#160; &#160; &#160; &#160; &#160; &#160; '','C:\MyApp.Exe %1');<br />&#160; &#160; WriteString('MyExt\Shell\Second_Action',<br />&#160; &#160; &#160; &#160; &#160; &#160; '','This is our second action');<br />&#160; &#160; WriteString('MyExt\Shell\Second_Action\command',<br />&#160; &#160; &#160; &#160; &#160; &#160; '','C:\MyApp.Exe /TonsOfParameters %1');<br />&#160; &#160; Free;<br />&#160; &#160; end;<br />end;</p> mybb@mybb.ru (root) Tue, 21 Apr 2009 00:04:13 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=11#p11 https://delphi.forumkz.ru/viewtopic.php?pid=9#p9 <p>Q: Моя программа довольно долго делает какую-то полезную работу, типа<br />&#160; &#160;чтения дерева каталогов или обильных вычислений, и в этот момент почти<br />&#160; &#160;не работают остальные программы. Как разрешить им это делать?</p> <p>&#160; &#160;A: Application.ProcessMessages.</p> <p>&#160; &#160;(AA): Если вы хотите отдавать timeslices в нитях, пользуйтесь<br />&#160; &#160;Sleep(0); это отдаст остаток слайса системе.</p> <p>&#160; &#160;(Win16) Если вы хотите разрешить отработку сообщений другим<br />&#160; &#160;программам, но не вашей, то лучше пользоваться Yield().</p> <p>&#160; &#160;Q: Как мне запустить какую-нибудь программу? А как подождать, пока эта<br />&#160; &#160;программа не отработает? Как выяснить, работает ли программа или уже<br />&#160; &#160;завершилась? Как принудительно закрыть выполняющуюся программу?</p> <p>&#160; &#160;A: WinExec() или ShellExecute. У второй больше возможностей.</p> <p>&#160; &#160;(SO): CreateProcess() в параметре process info возвращает handle<br />&#160; &#160;запущенного процесса. Вот и делаешь WaitForSingleObject(pi.hProcess,<br />&#160; &#160;INFINITE);</p> <p>&#160; &#160;(AA): (Win16) Delay можно взять из rxLib.</p> <p>handle := WinExec(...);<br />if handle &gt;= 32 then<br />&#160; while GetModuleUsage(handle) &gt; 0 do<br />&#160; &#160; Delay( nn );<br />else<br /> raise ....</p> <p>&#160; &#160;(AM): Чтобы выяснить, работает ли программа, используйте<br />&#160; &#160;GetProcessTimes(), параметр lpExitTime.</p> <p>&#160; &#160;(Win32) Для принудительного завершения процесса -- TerminateProcess.</p> <p>&#160; &#160;(Win16) (RR): Надо послать программе сообщение WM_QUIT:</p> <p>Handle := Winexec(App, 0);<br />PostMessage(Handle, WM_QUIT, 0, 0);</p> <p>&#160; &#160;Q: Как сделать так, чтобы при щелчке по кнопке или по TLabel<br />&#160; &#160;запускался, например, браузер с сайтом программы или почтовая<br />&#160; &#160;программа с определенным адресом получателя?</p> <p>uses ShellApi;</p> <p>{ ... }</p> <p>ShellExecute(&quot;http://www.company.com&quot;, ... );</p> <p>ShellExecute(&quot;mailto:author@somewhere.net&quot;, ...);</p> <p>&#160; &#160;Q: Как правильно закрыть и удалить форму? Почему моя MDI Child форма<br />&#160; &#160;при закрывании просто минимизируется?</p> <p>&#160; &#160;A: Обрабатывайте событие OnClose для формы и выставляйте в нем<br />&#160; &#160;параметр Action в caFree. Дело в том, что его значение по умолчанию<br />&#160; &#160;для MDI Child форм&#160; caMinimize. Кстати, если сделать Action := caNone,<br />&#160; &#160;то форму нельзя будет закрыть.</p> <p>&#160; &#160;Q: Мне надо добавить много строк в TListbox или в TCombobox или в<br />&#160; &#160;TMemo или в TRichEdit, при этом сам объект постоянно мигает,<br />&#160; &#160;перерисовываясь. Как избавиться от этого?</p> <p>&#160; &#160;A: BeginUpdate/EndUpdate.</p> <p>&#160; &#160;Q: Как мне запрограммировать непрямоугольную форму, например, как у<br />&#160; &#160;Norton CrashGuard, в форме щита?</p> <p>&#160; &#160;A: SetWindowRgn() (Win32).</p> <p>&#160; &#160;Q: Как использовать свои курсоры в программе?</p> <p>&#160; &#160;A:</p> <p>{$R CURSORS.RES}</p> <p>const<br />&#160; crZoomIn = 1;<br />&#160; crZoomOut = 2;</p> <p>Screen.Cursors[crZoomIn] := LoadCursor(hInstance, 'CURSOR_ZOOMIN');<br />Screen.Cursors[crZoomOut] := LoadCursor(hInstance, 'CURSOR_ZOOMOUT');</p> <p>&#160; &#160;С вашей программой должен быть слинкован файл ресурсов, содержащий<br />&#160; &#160;соответствующие курсоры.</p> <p>&#160; &#160;Q: Как ограничить перемещение курсора мыши какой-либо областью экрана?</p> <p>&#160; &#160;A: ClipCursor(). Учтите, что использование этой функции -- плохой тон.</p> <p>&#160; &#160;Q: Как из программы переключить раскладку клавиатуры?</p> <p>&#160; &#160;A: ActivateKeyboardLayout(). Учтите, что использование этой функции --<br />&#160; &#160;плохой тон.</p> <p>&#160; &#160;Q: Как сделать так, чтобы по Alt-F4 форма не просто закрывалась, а<br />&#160; &#160;выдавала запрос на сохранение?</p> <p>&#160; &#160;A: Обрабатывать OnCloseQuery.</p> <p>&#160; &#160;Q: Как получить короткий путь файла если имеется длинный? (&quot;c:\Program<br />&#160; &#160;Files&quot; ==&gt; &quot;c:\progra~1&quot;).</p> <p>&#160; &#160;A: GetShortPathName()</p> <p>&#160; &#160;Q: Как написать сервис для Windows NT?</p> <p>&#160; &#160;A: В поставке Delphi 4 есть пример. [28]http://www.sawatzki.de.</p> <p>&#160; &#160;Q: Как работать с registry?</p> <p>&#160; &#160;A: TRegistry</p> <p>&#160; &#160;Q: Как выдвинуть дверцу CD-ROM'а?</p> <p>&#160; &#160;A: mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);</p> <p>&#160; &#160;Также mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);</p> <p>&#160; &#160;Q: Как перехватывать клавиши, нажатые в окне другой программы? И<br />&#160; &#160;вообще, любые события, поступающие другим программам?</p> <p>&#160; &#160;A: SetWindowsHookEx().</p> <p>&#160; &#160;Q: Как вызывать из 32-битной программы 16-битные DLL?</p> <p>&#160; &#160;A: Надо применять так называемые &quot;thunks&quot;. Смотри статью на<br />&#160; &#160;[29]http://www.itecuk.com/delmag/thunk95.htm.</p> <p>&#160; &#160;Q: Почему у меня record a : word; b : longint end; имеет размер восемь<br />&#160; &#160;байт вместо шести?</p> <p>&#160; &#160;A: RTFM packed, $A.</p> <p>&#160; &#160;Q: Где взять подробную документацию по работе с RTF, TRichEdit?</p> <p>&#160; &#160;A: В MSDN.</p> <p>&#160; &#160;В rxLib 2.60 появился компонент TrxRichEdit, полностью поддерживающий<br />&#160; &#160;MS RichEdit 2.0 и его DB-aware версия. Рекомендуется.</p> <p>&#160; &#160;Q: Как можно перетаскивать форму не только за заголовок?</p> <p>&#160; &#160;A: WM_NCHITTEST.</p> <p>&#160; &#160;Q: Как отследить &quot;уход&quot; курсора мыши с компонета?</p> <p>&#160; &#160;A: Обрабатывать CM_MOUSEENTER/CM_MOUSELEAVE.</p> <p>&#160; &#160;Q: Как добавить пункты в системное меню окна?</p> <p>&#160; &#160;A: Получить хэндл системного меню окна можно с помощью функции<br />&#160; &#160;GetSystemMenu().</p> <p>&#160; &#160;A: Можно ли сделать так, чтобы в исполняемом файле программы находился<br />&#160; &#160;какой-нибудь звук в формате .wav, и можно было бы проиграть этот звук?</p> <p>&#160; &#160;В файл MyWave.rc пишешь:</p> <p>MyWave RCDATA LOADONCALL MyWave.wav</p> <p>&#160; &#160;brcc32.exe MyWave.rc, получаешь MyWave.res.</p> <p>&#160; &#160;В своей программе пишешь:</p> <p>{$R MyWave.res}</p> <p>&#160; &#160;Все!</p> <p>&#160; &#160;Предупреждая следующий твой вопрос &quot;а как прочитать wave-файл из<br />&#160; &#160;исполняемого файла?&quot;</p> <p>procedure RetrieveMyWave;<br />var<br />&#160; hResource: THandle;<br />&#160; pData: Pointer;<br />begin<br />&#160; hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDA<br />TA));<br />&#160; try<br />&#160; &#160; pData := LockResource(hResource);</p> <p>&#160; &#160; if pData = nil then<br />&#160; &#160; &#160; raise Exception.Create('Cannot read MyWave');</p> <p>&#160; &#160; // Здесь pData указывает на MyWave<br />&#160; &#160; // Теперь можно, например, проиграть его (Win32):<br />&#160; &#160; PlaySound('MyWave', 0, SND_MEMORY);<br />&#160; finally<br />&#160; &#160; FreeResource(hResource);<br />&#160; end;<br />end;</p> <p>&#160; &#160;Q: Как узнать и поменять разрешение экрана?</p> <p>&#160; &#160;Поменять:</p> <p>procedure ChangeDisplayResolution(x, y : word);<br />var<br />&#160; dm : TDEVMODE;<br />begin<br />&#160; ZeroMemory(@dm, sizeof(TDEVMODE));<br />&#160; dm.dmSize := sizeof(TDEVMODE);<br />&#160; dm.dmPelsWidth := x;<br />&#160; dm.dmPelsHeight := y;<br />&#160; dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;<br />&#160; ChangeDisplaySettings(dm, 0);<br />end;</p> <p>&#160; &#160;Q: Как во время выполнения программы создать так называемый &quot;array of<br />&#160; &#160;const&quot;, например, параметры для функции Format()?</p> <p>&#160; &#160;A: В библиотеке Technical Information на сайте Inprise есть документ<br />&#160; &#160;за нумером TI582D.txt, посвященный этой проблеме. Вкратце, в качестве<br />&#160; &#160;array of const можно использовать массив типа TVarRec.</p> <p>&#160; &#160;Q: Как обратиться к определенному адресу физической памяти? А как<br />&#160; &#160;прочитать значение из порта? Где мой любимый массив Port[]?</p> <p>&#160; &#160;A: Прочитайте какую-нибудь книжку про программирование под Win32.<br />&#160; &#160;Вкратце -- забудьте про все эти глупости.</p> <p>&#160; &#160;Q: Я создал объект TStrings, но при попытке обращения к нему выдается<br />&#160; &#160;ошибка. В чем проблема?</p> <p>&#160; &#160;A: TStrings -- это абстрактный класс. Вам нужен TStringList.</p> <p>&#160; &#160;Q: Как работать с графическими форматами, хотя бы самыми известными?</p> <p>&#160; &#160;A: На [31]http://www.imagelib.com лежит библиотека ImageLib.</p> <p>&#160; &#160;На компакте с Delphi 3 в каталоге EXTRAS есть библиотека JPEG. Если<br />&#160; &#160;сказать в модуле uses jpeg; то можно работать с .jpg как с TPicture.</p> <p>&#160; &#160;Еще есть freeware-библиотека Nishita ViewLib. JPG, JFIF, GIF, BMP,<br />&#160; &#160;DIB, RLE, TGA, PCX.<br />&#160; &#160;[32]http://einstein.ae.eng.ua.edu/nishita/index.htm.</p> <p>&#160; &#160;Q: Как работать с файлами архивов, хотя бы самыми распространенными?</p> <p>&#160; &#160;A: Воспользуйтесь библиотекой ExceedZip 3.0<br />&#160; &#160;([33]http://www.exceedsoft.com).</p> <p>&#160; &#160;Q: Как использовать DirectX в своей программе?</p> <p>&#160; &#160;A: Модули для работы с DirectX находятся на Delphi Super Page, в<br />&#160; &#160;пакете DelphiX. Также на<br />&#160; &#160;[34]http://www.geocities.com/SiliconValley/1142/ лежит модули для<br />&#160; &#160;работы с DirectSound. Информацию по программированию DirectX можно<br />&#160; &#160;взять на MSDN и в книге Чарльза Калверта &quot;Delphi 2: Энциклопедия<br />&#160; &#160;пользователя&quot;.</p> <p>&#160; &#160;Учтите существование эхи RU.DIRECTX.</p> <p>&#160; &#160;A: Как использовать OpenGL в своей программе?</p> <p>&#160; &#160;Q: Модули для работы с OpenGL можно взять на<br />&#160; &#160;[35]http://www.signsoft.com/opengl. Информацию -- на<br />&#160; &#160;[36]http://www.opengl.org. Также есть книга Ю. Тихомирова &quot;OpenGL:<br />&#160; &#160;программирование трехмерной графики&quot;. Еще загляните на<br />&#160; &#160;[37]http://reality.sgi.com/mjk за примерами и<br />&#160; &#160;[38]http://www.scitechsoft.com за библиотекой MesaGL.</p> <p>&#160; &#160;Учтите существование эхи RU.OPENGL.</p> <p>&#160; &#160;Q: Как встроить просмотр HTML в свою программу?</p> <p>&#160; &#160;В Delphi 4 имеется пример Web-браузера на Delphi.</p> <p>&#160; &#160;A: MS Internet Explorer умеет быть элементом управления ActiveX, что<br />&#160; &#160;позволяет поместить его на форму.</p> <p>&#160; &#160;Netscape Navigator умеет делать то же самое, подробности на<br />&#160; &#160;[39]http://www.chami.com/tips/delphi/103096D.html</p> <p>&#160; &#160;Еще на [40]http://www.pbear.com лежат THTMLViewer и TFrameViewer.</p> <p>&#160; &#160;Q: Где достать процедуру типа &quot;сумма прописью&quot;?</p> <p>&#160; &#160;A: (Vladimir Gaitanoff, 2:5020/880.5), [41]http://www.tsinet.ru/~vg.<br />&#160; &#160;Здесь лежит библиотека vgLib, содержащая еще массу полезных вещей.</p> <p>&#160; &#160;Q: Какие инструменты можно применить для коллективной разработки<br />&#160; &#160;проекта?</p> <p>&#160; &#160;A: CVS. [42]http://www.cyclic.com. С его помощью разрабатывается<br />&#160; &#160;весьма львиная доля программного обеспечения в Internet. Интеграция с<br />&#160; &#160;Delphi -- нулевая ;) Крайне рекомендуется. Я лично пользуюсь ею<br />&#160; &#160;ощутимое время и не представляю себе более разработки без этого<br />&#160; &#160;средства. &quot;Введение в CVS&quot; можно прочитать на<br />&#160; &#160;[43]http://alexm.here.ru.</p> <p>&#160; &#160;Microsoft Visual Source Safe. Проигрывает в функциональности, может<br />&#160; &#160;выигрывать в &quot;привычности&quot;.</p> <p>&#160; &#160;Q: Как можно обнаружить утечки памяти и ресурсов в программе?</p> <p>&#160; &#160;A: MSDebug Макса Русова. Находится на<br />&#160; &#160;[44]http://www.dic.ru/users/rusov/. Поддерживает Delphi 3 и выше,<br />&#160; &#160;ловит только утечки памяти, но делает это хорошо.</p> <p>&#160; &#160;На [45]http://www.numega.com можно купить BoundsChecker for Delphi. Он<br />&#160; &#160;проверяет также и утечки ресурсов.</p> <p>&#160; &#160;Рекламировался также &quot;MemProof&quot;, информацию о котором можно получить<br />&#160; &#160;на [46]http://www.listsoft.ru/programs/pr1520.htm.</p> <p>&#160; &#160;Q: Мне нужно заниматься разбором математических выражений, например,<br />&#160; &#160;строить график функции, заданной пользователем во время работы<br />&#160; &#160;программы.</p> <p>&#160; &#160;A: В rxLib есть компонент TrxMathParser, достаточно мощный для<br />&#160; &#160;большого количества применений.</p> <p>&#160; &#160;Q: Как уменьшить размер исполняемого файла программы?</p> <p>&#160; &#160;A: Писать на WinAPI без использования VCL. Это пригодно для и без того<br />&#160; &#160;крохотных программ.</p> <p>&#160; &#160;Воспользоваться пакетами (packages) из Delphi 3. Эффект появится,<br />&#160; &#160;когда исполняемых файлов больше одного.</p> <p>&#160; &#160;Воспользоваться компрессорами исполняемых файлов, например: Shrinker<br />&#160; &#160;[47]http://www.blinkinc.com, WWPack32<br />&#160; &#160;[48]http://kolos.uni.lodz.pl/warezak, NeoLite<br />&#160; &#160;[49]ftp://ftp.zdnet.com/pub/private/sWlIB/utilities/other_utilities/ne<br />&#160; &#160;olitee.zip, Petite, [50]http://www.icl.ndirect.co.uk/petite/.</p> <p>&#160; &#160;Q: Где достать всяких иконок, картинок для кнопок, etc. для своей<br />&#160; &#160;программы?</p> <p>&#160; &#160;A: [51]http://www.iconbazaar.com</p> <p>&#160; &#160;Q: Как сделать ping из своей программы? И вообще, посоветуйте<br />&#160; &#160;какую-нибудь альтернативу стандартным дельфовым Internet-компонентам.</p> <p>&#160; &#160;A: Зайди на [52]http://www.rtfm.be/fpiette. Там кyча компонентов для<br />&#160; &#160;инета с исходниками. Там и ping есть.</p> <p>&#160; &#160;Q: Как правильно создавать компоненты в run-time? Что задавать в<br />&#160; &#160;качестве параметра Owner при создании компоненты? Как обрабатывать<br />&#160; &#160;события от созданных компонент, типа нажатий на кнопки?</p> <p>&#160; &#160;A: Начнем с создания.</p> <p>&#160; &#160;Сущность свойства Owner в том, что владелец перед смертью уничтожает<br />&#160; &#160;(через Free) принадлежащие ему объекты. Таким образом, все зависит от<br />&#160; &#160;того, кому вы хотите доверить уничтожение созданных форм/компонентов.<br />&#160; &#160;В частности, если вы сами будете этим заниматься, то AOwner может<br />&#160; &#160;быть, например, nil.</p> <p>&#160; &#160;Для того, чтобы созданный компонент появился на экране, надо указать<br />&#160; &#160;его родителя, заполнив свойство Parent, например, NewButton.Parent :=<br />&#160; &#160;Form1;</p> <p>&#160; &#160;Пример кода, обрабатывающего события от свежесозданных компонентов:</p> <p>type<br />&#160; TForm1 = class(TForm)<br />&#160; { ... }<br />&#160; private<br />&#160; &#160; { эта процедура будет вызываться при нажатии на кнопку }<br />&#160; &#160; procedure ButtonClicked(Sender : TObject);</p> <p>&#160; public<br />&#160; &#160; { в этой процедуре происходит создание кнопки }<br />&#160; &#160; procedure CreateButton;</p> <p>&#160; end;</p> <p>{ ... }</p> <p>procedure TForm1.CreateButton;<br />var<br />&#160; btn : TButton;<br />begin<br />btn := TButton.Create(Self);&#160; { Уничтожать кнопку будет форма }<br />btn.Parent := Self;&#160; &#160; &#160; &#160; &#160; &#160;{ Родителем кнопки будет форма }<br />btn.OnClick := ButtonClicked; { Процедура, которая будет исполняться при }<br />btn.Visible := true;&#160; &#160; &#160; &#160; &#160; { нажатии на кнопку }<br />end;</p> <p>&#160; &#160;Q: Как мне работать с файлами MS Word или таблицами MS Excel?</p> <p>&#160; &#160;A: Воспользоваться функцией CreateOLEObject и работать с VBA (Visual<br />&#160; &#160;Basic for Applications) или WordBasic.</p> <p>&#160; &#160;NB: Обратите внимание на то, как устанавливаются именованные параметры<br />&#160; &#160;у процедур WordBasic'а, например, FileOpen(Name := 'myname.doc');</p> <p>=== Cut Пример by Sergey Arkhipov 2:5054/88.10 ===</p> <p>Пример проверен только на русском Word 7.0! Может, поможет...</p> <p>unit InWord;<br />interface<br />uses<br />&#160; ... ComCtrls; // Delphi3<br />&#160; ... OLEAuto;&#160; // Delphi2<br />[skip]<br />procedure TPrintForm.MPrintClick(Sender: TObject);<br />var W: Variant;<br />&#160; &#160; S: String;<br />begin<br />&#160; S:=VarToStr(Table1['Num']); //В D3 без промежуточной записи<br />&#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; &#160; // в var у меня не пошло :(<br />&#160; try // А вдруг где ошибка :)<br />&#160; &#160; W:=CreateOleObject('Word.Basic');<br />&#160; &#160; // Создаем документ по шаблону MyWordDot<br />&#160; &#160; // с указанием пути если он не в папке шаблонов Word<br />&#160; &#160; W.FileNew(Template:='C:\MyPath\DB\MyWordDot',NewTemplate:=0);<br />&#160; &#160; // Отключение фоновой печати (на LJ5L без этого был пустой лист)<br />&#160; &#160; W.ToolsOptionsPrint(Background:=0);</p> <p>&#160; &#160; // Переходим к закладке Word'a 'Num'<br />&#160; &#160; W.EditGoto('Num'); W.Insert(S);<br />&#160; &#160; //Сохранение<br />&#160; &#160; W.FileSaveAs('C:\MayPath\Reports\MyReport')<br />&#160; &#160; W.FilePrint(NumCopies:='2'); // Печать 2-х копий<br />&#160; finally<br />&#160; &#160; W.ToolsOptionsPrint(Background:=1);<br />&#160; &#160; W:=UnAssigned;<br />&#160; end;<br />end;<br />{.....}</p> <p>=== Cut Конец примера ===</p> <p>&#160; &#160;Q: Как сделать так, чтобы запущенная программа не была видна на панели<br />&#160; &#160;задач?</p> <p>&#160; &#160;Во-первых, можно по примеру Back Orifice воспользоваться функцией<br />&#160; &#160;RegisterServiceProcess.</p> <p>&#160; &#160;Во-вторых, предположим, вы пользуетесь компонентой TrxTrayIcon из<br />&#160; &#160;rxLib, иначе непонятно, как вы будете возвращать программу обратно из<br />&#160; &#160;минимизированного состояния.</p> <p>&#160; &#160;A: (EM, DS):</p> <p>type<br />&#160; TForm1 = class(TForm)<br />&#160; &#160; Label1: TLabel;<br />&#160; &#160; RxTrayIcon1: TRxTrayIcon;<br />&#160; &#160; procedure FormCreate(Sender : TObject);<br />&#160; &#160; procedure RxTrayIcon1DblClick(Sender: TObject);<br />&#160; private<br />&#160; &#160; { Private declarations }<br />&#160; &#160; procedure ApplicationMinimize(Sender : TObject);<br />&#160; &#160; procedure ApplicationRestore(Sender : TObject);<br />&#160; public<br />&#160; &#160; { Public declarations }<br />&#160; end;</p> <p>var<br />&#160; Form1: TForm1;</p> <p>implementation</p> <p>{$R *.DFM}</p> <p>procedure TForm1.FormCreate(Sender: TObject);<br />begin<br />Application.OnMinimize := ApplicationMinimize;<br />Application.OnRestore := ApplicationRestore;<br />ShowWindow(Application.Handle, SW_HIDE);<br />end;</p> <p>procedure TForm1.ApplicationMinimize(Sender : TObject);<br />begin<br />ShowWindow(Application.Handle, SW_HIDE);<br />end;</p> <p>procedure TForm1.ApplicationRestore(Sender : TObject);<br />begin<br />ShowWindow(Application.Handle, SW_HIDE);<br />end;</p> <p>procedure TForm1.RxTrayIcon1DblClick(Sender: TObject);<br />begin<br />Application.Restore;<br />Application.BringToFront;<br />end;</p> <p>&#160; &#160;(AK): Только сpазу предупреждаю про грабли, на которые я наступал --<br />&#160; &#160;будь готов к тому, что если пpи попытке закрытия приложения в<br />&#160; &#160;OnCloseQuery или OnClose выводится вопрос о подтверждении, то могут<br />&#160; &#160;быть проблемы с автоматическим завершением пpогpаммы пpи shutdown --<br />&#160; &#160;под Win95 просто зависает, под WinNT не завершается. Очевидно, что<br />&#160; &#160;сообщение выводится, но его не видно (причем SW_RESTORE не<br />&#160; &#160;сpабатывает). Решение -- ловить WM_QUERYENDSESSION и после всяких<br />&#160; &#160;завеpшающих действий и вызова CallTerminateProcs выдавать Halt.</p> <p>&#160; &#160;Q: После работы программы не сохраняются изменения в базе Paradox. Что<br />&#160; &#160;делать?</p> <p>&#160; &#160;A: Где-нибудь при закрытии главной формы выполните нижеследующие куски<br />&#160; &#160;кода:</p> <p>&#160; &#160;Для Delphi 3: Table.FlushBuffers при открытой таблице.</p> <p>&#160; &#160;Для прочих: Table.Open; Check(dbiSaveChanges(Table.Handle));<br />&#160; &#160;Table.Close;</p> <p>&#160; &#160;Q: Как мне упаковать Paradox или DBF таблицу?</p> <p>&#160; &#160;A: Воспользоваться функцией PackTable из rxLib.</p> <p>&#160; &#160;Для перегенерации индексов:</p> <p>Table1.Exclusive := True;<br />Table1.Open;<br />Check(dbiRegenIndexes(Table1.Handle);</p> <p>&#160; &#160;Q: Почему при добавлении/изменении записей в некоторых запросах<br />&#160; &#160;возникает ошибка Cannot modify a read-only dataset?</p> <p>&#160; &#160;A: Во-первых, должно быть RequestLive := True; во-вторых, чтобы запрос<br />&#160; &#160;был редактируемым, он должен удовлетворять требованиям, изложенным в<br />&#160; &#160;помощи при поиске по &quot;live result sets&quot;.</p> <p>&#160; &#160;Q: Почему не работает сортировка и функция UPPER() в Interbase'овской<br />&#160; &#160;базе данных?</p> <p>&#160; &#160;A: Смотри в F.A.Q. по Borland Interbase от демо-центра.</p> <p>&#160; &#160;Q: Не получается вставить в таблицу записи со строками на русском<br />&#160; &#160;языке -- некоторые буквы меняются на другие -- что делать?</p> <p>&#160; &#160;A: В Database Desktop поставьте правильный Language Driver у таблицы,<br />&#160; &#160;например, Pdox ANSI Cyrr.</p> <p>&#160; &#160;Q: Я переписал готовую программу на машину заказчика, а она там не<br />&#160; &#160;запускается -- говорит &quot;Error initializing database engine&quot;. Что<br />&#160; &#160;делать?</p> <p>&#160; &#160;A: Прочитать X:\DELPHI\DOC\deploy.txt.</p> <p>&#160; &#160;Q: Как правильно соединяться с базой данных под Personal Oracle?</p> <p>&#160; &#160;A: user/password@2: Это так для Oracle SQL Plus, и более других его<br />&#160; &#160;утилит. А в BDE надо оставить все как для соединения с сетевым<br />&#160; &#160;сервером, (протокол TNS, имя пользователя, кодировку, интерфейсную<br />&#160; &#160;DLL) только вместо имени сервера написать &quot;2:&quot;. Это годится и для<br />&#160; &#160;случая, когда на одной машине и сетевой сервер и приложение.</p> <p>&#160; &#160;Q: У меня в программе происходит очень большой запрос -- в районе<br />&#160; &#160;нескольких тысяч или десятков тысяч записей. Соответственно, большой<br />&#160; &#160;сетевой трафик, программа тормозит и так далее. Можно ли как-нибудь<br />&#160; &#160;оптимизировать это все?</p> <p>&#160; &#160;A: Постарайтесь изменить логику приложения так, чтобы таких запросов<br />&#160; &#160;не возникало. Обычно подобные вещи свидетельствуют о несколько<br />&#160; &#160;неверной архитектуре приложения.</p> mybb@mybb.ru (root) Mon, 20 Apr 2009 22:04:48 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=9#p9 https://delphi.forumkz.ru/viewtopic.php?pid=8#p8 <p>Данный форум посвящен обсуждению IDE семейства Delphi.</p> <p>Форум является постмодерируемым, любые сообщения, в случае нарушения приведенных ниже правил, в любой момент могут быть отредактированы или удалены модераторами и администраторами форума. Все оставленные на форуме сообщения отражают исключительно мнение их авторов. Администрация и модераторы форума не несут никакой ответственности за эти сообщения, даже если они противоречат данным правилам. Приведённые на&#160; этой странице правила являются первичными и обязательны для исполнения во всех разделах и всеми участниками форума.</p> <p>1. Основные положения<br />1.1. Перед созданием новой темы необходимо воспользоваться поиском по форуму (строка поиска находится в верхнем левом углу страницы). Крайне велика вероятность, что всё, что вы хотите узнать, уже не раз обсуждалось.<br />1.2. Листинги и содержимое текстовых файлов следует добавлять в сообщение с помощью тега </p><div class="quote-box spoiler-box"><div onclick="$(this).toggleClass('visible'); $(this).next().toggleClass('visible');">Свернутый текст</div><blockquote><p>...</p></blockquote></div><p>, либо прикреплять к сообщению в виде отдельного файла.<br />1.3. Разрешено обращение на «ты» ко всем участникам форума. При этом, в связи со спецификой интернет-форумов, подобное обращение не должно расцениваться как фамильярное или невежливое.<br />1.4. Проявляйте больше терпения к другим участникам форума, особенно к новичкам. Не всем легко даётся освоение незнакомого языка программирования. Все мы когда-то начинали.<br />1.5. Обо всех спорных моментах сообщайте модераторам форума, мы тоже живые люди и можем что-то пропустить. Вы очень нам поможете, если обратите наше внимание на случаи нарушения данных правил.</p> <p>2. На форуме ЗАПРЕЩЕНО<br />2.1. Использовать ненормативную лексику в любом виде. В том числе сокращённые и искажённые нецензурные слова. Замена нецензурных слов спецсимволами допускается.<br />2.2. Оскорблять кого-либо из участников форума или принижать его личные качества. Будьте вежливы и культурны!<br />2.3. Флудить и заниматься флеймом, а так же оставлять сообщения, не относящиеся к теме обсуждения. Для общения есть различные чаты, конференции, IRC-каналы и т.д.<br />2.4. Создавать темы с неинформативным названием, например «Помогите», «Пара вопросов» и т. п.<br />2.5. Создавать одинаковые темы в разных разделах, публиковать одинаковые сообщения в разных темах, а также добавлять новые темы в неподходящие разделы. Старайтесь чётко определять тематику Вашего сообщения и помещать его в соответствующий раздел форума.<br />2.6. Задавать в одной теме несвязанные вопросы. Не бойтесь создавать по одной теме на каждый вопрос в соответствующих разделах.<br />2.7. Использовать транслит в сообщениях. Уважайте тех, кому придётся читать то, что вы написали. Если у вас нет возможности печатать на русском, используйте специальные сайты-транслитераторы (например, translit.ru) или виртуальные клавиатуры.<br />2.8. Чрезмерное цитирование. Цитаты нужны для выделения какой-то небольшой части сообщения с целью её комментирования, не забывайте об этом.<br />2.9. Обсуждать действия модераторов и администрации в темах, не относящихся к этому напрямую. Для разрешения спорных ситуаций пользуйтесь личными сообщениями или разделом «Админы не спят!».<br />2.10. Самовольное модерирование форума. Даже если пользователь не прав и тему стоит закрыть, не нужно об этом писать в теме <br />2.11. Обсуждать любые материалы, нарушающие авторские права.<br />2.12. Несанкционированно рекламировать и продвигать другие сетевые и несетевые ресурсы, товары, компании, услуги; так же запрещён любой PR.<br />2.13. Публиковать материалы, противоречащие действующему законодательству РК, в том числе распространять вирусы и любые другие вредоносные программы.<br />2.14. Регистрировать пользователей, имена которых могут быть восприняты как нецензурные и/или оскорбительные; использовать в качестве имен адреса электронной почты, веб-сайтов, номера телефонов и прочее, что может быть расценено как PR.<br />2.15. Обсуждение вопросов, напрямую не связанных с использованием семейства Delphi. Другие темы следует обсуждать на иных, специализированных ресурсах.</p> <p>3. Ответственность за нарушение данных правил</p> <p>3.1. За нарушение правил пользователю может быть вынесено предупреждение. <br />3.2. После трёх предупреждений пользователь может быть на некоторое время переведен в режим «только чтение». В случае дальнейших нарушений пользователю может быть навсегда закрыт доступ на форум. <br />3.3. При применении санкций учитываются предыдущие нарушения правил форума. Предупреждения имеют срок давности (в зависимости от тяжести нарушений), по прошествии которого они снимаются.</p> <p>Незнание правил, как и всегда, не освобождает от ответственности. Данные правила могут корректироваться и изменяться администраторами форума без предварительного уведомления всех пользователей.</p> mybb@mybb.ru (root) Mon, 20 Apr 2009 20:06:17 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=8#p8 https://delphi.forumkz.ru/viewtopic.php?pid=5#p5 <p>В России Borland Delphi появляется в конце 1993 г. и сразу же завоевывает широкую популярность. Новые версии выходят практически каждый год. В них реализуются все новые мастера, компоненты и технологии программирования.</p> <p>Действительно, процесс разработки в Delphi предельно упрощен. В первую очередь это относится к созданию интерфейса, на который уходит 80% времени разработки программы. Вы просто помещаете нужные компоненты на поверхность Windows-окна (в Delphi оно называется формой) и настраиваете их свойства с помощью специального инструмента (Object Inspector). С его помощью можно связать события этих компонентов (нажатие на кнопку, выбор мышью элемента в списке и т.д.) с кодом его обработки - и вот простое приложение готово. Причем разработчик получает в свое распоряжение мощные средства отладки (вплоть до пошагового выполнения команд процессора), удобную контекстную справочную систему (в том числе и по Microsoft API), средства коллективной работы над проектом, всего просто не перечислить. Вы можете создавать компоненты ActiveX без использования Microsoft IDL, расширять возможности web-сервера (скрипты на стороне сервера), практически ничего не зная об HTML, XML или ASP. Можно создавать распределенные приложения на базе СОМ и CORBA, Интернет- и intranet-приложения, используя для доступа к данным Borland DataBase Engine, ODBC-драйверы или Microsoft ADO. Появившаяся, начиная с Delphi 3, поддержка многозвенной технологии (multi-tiered) доступа к данным позволяет создавать масштабируемые приложения (относительно слабо зависящие от сервера БД) за счет перенесения методов обработки информации (бизнес-правил) на среднее звено.</p> <p>Как уже говорилось ранее, в Delphi используется язык Object Pascal, который постоянно расширяется и дополняется Borland. Язык в полной мере поддерживает все требования, предъявляемые к объектно-ориентированному языку программирования. Как и положено строго типизированному языку, классы поддерживают только простое наследование, но зато интерфейсы могут иметь сразу несколько предков. К числу особенностей языка следует отнести поддержку обработки исключительных ситуаций (exceptions), а также перегрузку методов и подпрограмм (overload) в стиле C++. К числу удачных, на взгляд автора, относится также поддержка длинных строк в формате WideChar и AnsiChar. Последний тип (AnsiStrmg) позволяет использовать все прелести динамического размещения информации в памяти без всяких забот о ее выделении и сборке мусора Delphi делает это автоматически. Для поклонников свободного стиля программирования имеются открытые массивы, варианты и вариантные массивы, позволяющие размещать в памяти все, что душе угодно и смешивать типы данных.</p> <p>Вы можете создавать свои собственные компоненты, импортировать ОСХ-компоненты, создавать &lt;шаблоны&gt; проектов и &lt;мастеров&gt;, создающих &lt;заготовки&gt; проектов. Мало того, Delphi предоставляет разработчику интерфейс для связи ваших приложений (или внешних программ) с интегрированной оболочкой Delphi (IDE).</p> <p>Таким образом, вы можете использовать Delphi для создания как самых простых приложений, на разработку которых требуется 2-3 часа, так и серьезных корпоративных проектов, предназначенных для работы десятков и сотен пользователей. Причем для этого можно использовать самые последние веяния в мире компьютерных технологий с минимальными затратами времени и сил.</p> <p>Ну, и одна из самых последних новостей от Inprise обещает, что в ближайшем будущем вы сможете переносить приложения, разработанные в Delphi, на платформу Linux. Более подробную информацию о Delphi можно получить на сайтах wwwinprise.com и wwwinprise.ru. Существует большое количество сайтов, посвященных Delphi, например &lt;Королевство Delphi&gt; - delphi.vitpc.com, Torry’s Delphi Pages - wwwtorry.ru. Последний содержит большое число ссылок на ресурсы, связанные с Delphi. Ну а если вы уже давно знакомы с этим продуктом, то на сайте wwwbrainbench.com можно бесплатно протестироваться в качестве программиста Delphi и получить по почте сертификат.</p> mybb@mybb.ru (root) Mon, 20 Apr 2009 17:06:39 +0400 https://delphi.forumkz.ru/viewtopic.php?pid=5#p5