Теплого дня. dbgrid.setfocus - вопросов не вызывает, но мне надо что-то типа dbgrid.сolumns[3].setfocus либо dbgrid.selectedfield.name:='imja_polja', т.е. надо, чтоб фокус сразу попадал в нужную колонку, чтоб без доп. движений мыши и ли клавы сразу вводить данные. ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82957

Установил хук на HSHELL_WINDOWACTIVATED. Счётчик этих событий инкрементируется нормально, но только до каких-то пор. Потом отлов прекращается по неизвестным мне причинам. Хотя весь остальной функционал программы продолжает исправно работать. Почему такое происходит? Из-за каких причин хуки отваливаются? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82954

Вопрос немного специфичен и не по коду,а по реализации. Есть такая программа "TechnoRiver Studio",печатает штрихкоды, этикетки и т п. Пытаюсь сделать программу по автоматизации печати. Нужно сканировать штрихкод в окно программы, затем отследить его закрытие, нажать Ctrl-P, и в нем нажать "ОК" А вопрос в том, можно ли как-то отправить из программы на печать минуя окно печати. Может как-то перехватывать его до его появления, т к иначе приходится ждать его появления ит п ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82953

Как получить "сигнал" об изменении файла другим приложением ДО ЕГО ЗАКРЫТИЯ этим приложением? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82952

Сразу хочу сказать, что данный вопрос - не совсем вопрос, я проблему уже решил, просто я РЕАЛЬНО хочу понять, в чём причина столь странного поведения среды программирования. В следующий раз я не хочу тратить два дня на такую мелкую проблему. Программирую на Lazarus (последняя версия, на работе, ибо бесплатный), а дома на Delphi (7.0, ибо пофиг). Был у меня некоторый модуль, который вынес мне мозг странной компиляцией. Минимальный модуль, демонстрирующий ошибку: [code]unit BugTest; interface ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82950

Доброго времени суток. Вопрос по listview. Подскажите, пожалуйста, как сравнить два listview. В memo1 выгрузить те записи из listview1, которых нет в listview2. Делаю так: [Code] var i, j:integer; begin for i=0 to iCode] так работает, но в memo1 пишутся только те, ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82949

Здравствуйте уважаемые эксперты Помогите из 100 строк вывести в memo1 рандомные Edit1.text строк var i:integer; x:string; for i := 1 to 100 do ... Memo1.Lines.Add(X); ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82948

Здравствуйте, кто нибудь использует объекты типа object в Delphi 7? В справке написано, что его использовать не рекомендуется. Есть ли какие-нибудь подводные камни или ошибки компилятора? В объектах типа class меня не удовлетворяет то, что, во-первых, наименование класса открыто хранится в exe-файле, во-вторых, его бессмысленно объявлять packed и сохранять в файл, т.к. он содержит указатель на то самое наименование класса, а размеры указателей на разных платформах отли ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82947

Delphi XE, Windows 7, 8.1 Давным-давно была написана специальная программа типа SCADA, которая общается со своим сервером - тоже самописным - по оригинальному протоколу на базе TCP/IP через сокеты. Все было нормально, пока клиенты и сервер находились в одной корпоративной сети предприятия - программа работала неделями и месяцами непрерывно и не выключаясь без каких бы то ни было проблем. Вся работа с сокетами по максимум обложена try..except, предусмотрено автоматическое восстановлени ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82944

Уважаемые коллеги! Мой вопрос не совсем по программированию, хотя проект на Delphi XE7, я просто знаю, что здесь много образованных профессионалов, а мне в теории обработки сигналов не хватает у меня фундаментальных знаний. Вкратце, нужно найти максимум и момент времени этого максимума гармонической функции F(T) = Sum(i=1..N)[A_i * sin(omega_i * T) + B_i * cos(omega_i * T)] на интервале 0..Tmax. N, A[], B[], omega[], Tmax - все у меня есть. Если максимум встречается несколько раз, то это н ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82937

Всем привет! Не могу подключиться из XE7 к поисковику Sphinx (http://sphinxsearch.com/). Есть древние решения на устаревших версиях и не хочется возвращаться в "каменный" век. Самый оптимальный вариант - это использование SphinxQL (посредством SQL запросов). В Интернете подробно расписано как это делать для разных языков, но только не для Delphi. Даже странно, ведь этот движок быстро обрабатывает огромные объемы данных и имеет открытые исходники. Пожалуйста, помогите с идеями по подключению к Sp ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82935

Доброго времени суток. Работаю с WinInet. Есть функция FtpCommand(), которая посылает команду NOOP на FTP сервер. //Описание функции: function FtpCommand(hConnect: HINTERNET; fExpectResponse: BOOL; dwFlags: DWORD; lpszCommand: PChar; dwContext: DWORD; var phFtpCommand: HINTERNET): BOOL; stdcall; external winetdll name 'FtpCommandA'; //Использование функции: [Code]procedure TJobFtpSource.SendCmd(Command: PChar; Response: array of Integer); var hResponse: HINTERNET; begin ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82936

Привет всем жителям Королевства! Назрел важный вопрос по взаимодействию IntraWeb и FireDac. Перечитала все, что могла найти в королевстве и сопутствующих форумах, но решения своей проблемы не нашла. У меня Delphi XE8 + IntraWeb 14.0.0. Нужно чтобы через веб-браузер пользователь мог работать с данными из базы на MSSQL Server. Создаю StandAlone приложение. В UserSessionUnit кладу всё по FireDAC (FDConnection, FDTable, DataSource, FDGUIxWaitCursor). В Unit кладу на форму IWDBGrid. Все свой ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82934

Укатали Сивку крутые горки! Обращаюсь ТОЛЬКО к лицам, страдающим таким же заболеванием - письнёй собственных компонентов. Отягчающее обстоятельство - пишу под Лазарусом. Ну,такая вот психическая симптоматика. Как написать компонент с собственным алгоритмом выравнивания своих "подчиненных" компонентов (обработкой их свойства Align)?! По идее, нужно просто перегружать метод AlignControls(AControl,var ARemainingRect), но беда в том, что он почему-то ВСЕГДА вызывается с AControl=NIL. С надеждой, Н ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82932

доброе время суток, коллеги! есть база данных interbase 8 нужно через запрос! получить информацию об именах таблиц базы. именно через запрос. а не через консоль IB-сервера заранее спасибо ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82931

Программирую на Delphi XE6, вопрос по настройки debug – ра procedure TForm1.FormShow(Sender: TObject); var d: Double; begin try d := 100/0; ShowMessage('d = ' + FloatToStr(d)); Edit1.Text := 'd = ' + FloatToStr(d); except on E: Exception do begin ShowMessage(E.Message); end; end; end; Выдает сообщение d = INF, как? ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82930

Нужно переназначить кнопки мышки (три кнопки: правая, средняя и левая). Например: нажимаем левую - срабатывает, скажем, средняя, среднюю - правая, правую - левая... Тут варианты. Делаю через хуки. Но столкнулся с проблемой. Зацикливание. Насколько понял, происходит так. Переназначаю кнопки: левая->средняя, средняя->левая. Нажимаю левую -> срабатывает обработчик левой кнопки -> генерируется/имитируется нажимание средней кнопки -> далее срабатывает обработчик средней кнопки (так ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82929

Доброго всем времени! Прошу подсказки по следующей проблеме: необходимо напечатать на плоттере PostScript из файла не менее 40 Мб размером. Попробовал использовать библиотеку GHostScript.dll. Маленькие файлы печатаются отлично, но когда посылается большой текст, то задание просто исчезает из очереди печати. Может у кого-то есть опыт работы с этой dll. Но GSViewer, который использует эту dll мог распечатать только урезанный до 14Мб файл. Или подскажите, пожалуйста, другой способ. Особенность ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82928

Здравствуйте. Есть VirtualListTree, есть ноды. Задача: как сделать выделение нескольких разнесенных нодов правой клавишей мышки? Пример - тотал коммандер. Либо если в проводнике с зажатым контроллом кликать левой кнопкой. Знаю как сделать чтобы правой клавишей выделялись ноды, нашел даже OnFocusChanging, но что удалось - это

code:
 Sender.Selected[OldNode]:=true;
 Allowed:=true;

Что дает выделение только текущего и предыдущего, а три сразу уже нельзя. Есть конечно вариан ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82927

Всем привет! Помогите определить причину некорректной работы функции. Ее суть в том, что она определяет тип переданного ей элемента (сам же элемент является частью формулы). Вот код: [Code] uses System.TypInfo, System.RegularExpressions; type TTypeElement = ( teUnknown, teInsert, teOperator, teFunction, teSeparator, teBracketOpen, teBracketClose, teNumber, teObject, teNilObject, teIndex ); function IsNumber(Val: string) ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82926