Доброго времени суток! Может кто подсказать как для поля редактирования TEdit сделать что-то на подобии подсказки ввода, т.е. если поле не активно и пустое, вывести в него светло серую надпись с указанием того, что нужно вводить или отображением значения по умолчанию. Но при появления фокуса ввода, поле ведет себя обычным образом, т.е. серая надпись исчезает и мигает курсор ожидая ввода текста. Что то подобное есть в полях ввода 1С: http://joxi.ru/a2XaQgwFwKW9YA.jpg Есть догадки что это как то ...

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

Доброго времени суток! Разрабатываю приложение, использующее формат XML для хранения данных, XSD схемы для проверки формата загружаемого XML и трансформации XSLT для совместимости с предыдущими форматами сохраненных программой данных. В силу ряда причин, пришлось отказаться от IXMLDocument (из состава классов самого Delphi) в пользу IXMLDOMDocument (импорт библиотеки Microsoft XML version 3). Теперь для отступов в тексте XML стали использоваться символы табуляции, а не пробелы. Как заставить IX ...

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

Доброго времени суток, коллеги. Озадачился следующим вопросом, но красивое решение найти не могу. Есть CheckListBox1, ComboBox1. У них есть свойство Items.

code:
procedure TForm1.Load_in_CB(CB: TObject);
begin
  if CB is TComboBox then ...
  
  if CB is TCheckListBox1 then ...

  with CB do
    begin
      Items.AddObject(...)
      ...                   // - другие манипуляции с CB
    end
end;

Вопрос: Есть ли красивая возможность использовать with CB do, чтобы не ...

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

Здравствуйте. ADO+MSSQL. Записываю в поле таблицы число 291491,29 - но он сохраняет как 291491,28. Тип поля "real". Попробовал ввести через InputBox, а потом преобразовать в числовой тип (может не хорошая идея) - то же самое, он показывает число 291491,28125, меняю на 291491,29 - все равно сохраняет как 291491,28. Что можно сделать? Спасибо. ...

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

Добрый день. При попытке обмена по эмулированому COM порту получаю ошибку "WriteFile function failed (Error: 433)". Не могу найти, что это за ошибка. Подскажите, пожалуйста, кто в курсе. ...

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

Всего доброго. Вот хотел проконсультироваться насчет следующей задачи. Имеется некая процедура, в теле которой вызывается другая процедура, которая работает в отдельном потоке. Для того чтобы не зависал гуй. Т.е. мне надо дождаться окончания работы потока и продолжить код главного потока. Начал делать на TEvent, но не понравилось мне это и реализовал так: ... Thread.Start; while not Thread.IsOk do begin Application.ProcessMessages; end; IsOk - это свойство потока, которое устанав ...

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

Доброго времени. Среда XE2. Имеется встроенная библиотека TZipFile. Решил воспользоваться этой фичей. Но столкнулся с тем, что при распаковке больших архивов вылетает с ошибкой (что-то о неправильной сигнатуре центрального хидера). В моём случае, большой архив - это 6 Гб. Исследуя исходники, понял (или мне так показалось), что библиотека читает в качестве размеров упакованных и первоначальных данных значения cardinal, и поэтому не поддерживает большие архивы. Вопрос: есть ли у кого-то у ...

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

Всем всяческих благ! Просветите, пожалуйста, почему не работает код:

code:
function GetInetFileSize(h:HInternet):Int64;
...
begin
dwBufferLen:=64;
...
if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER64, @result, dwBufferLen, dwIndex) then

но отрабатывает [Code]function GetInetFileSize(h:HInternet):Int64; ... var dwBuff: array [1..32] of Char; begin dwBufferLen:=32; ... if HttpQueryInfo(h, HTTP_QUERY_CONTENT_LENGTH, @dwBuff, dwBufferLen, dwIndex) t ...

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

Всем здоровья! У меня возник вопрос, который явно тянет на клюкву. Получил от заказчика задание сделать утилитку для закачки файлов с сервера с последующей их проверкой по контрольной сумме. Используется MD5, но это не важно. Суммы для проверки хранятся в файле встроковом виде рядом с основными данными. Так вот, в этом файле указан и сам контрольный файл, и его MD5. Сейчас начал делать по этой схеме данные для теста, но упомянутая задача привела меня в замешательство. Имеет ли она решение? ...

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

Добрый день, есть нетривиальная задача. Есть программа, написана давным-давно на Delphi. На одной из форм расположен TPaintBox – не подскажете, какими средствами можно вытащить содержимое объекта (получить картинку)? Скриншот экрана не получится, TPaintBox не помещается на экран. ...

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

Добрый день. Ещё одна непонятка возникла. DLL обращается к службе через IPC на маилслотах. В DLL имеется объект IPC-сервер, которому назначается обработчик ответов службы. Для отладки просто вызывал Showmessage. Так вот, Showmessage в процедуре запроса к серверу отрабатывает. Отрабатывают Showmessage и в обработчике. Но стоит убрать вызов Showmessage после посылки запроса - перестают отображаться окна в обработчике. Добавлял слипы и реализацию processmessages для DLL. Никак не повлияло. ...

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

Добрый день. Есть в проекте компонент TWebBrowser. Как мне программно прочитать текст, который в нем появится после выполнения метода Navigate? Спасибо ...

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

Здравствуйте! Мне потребовалось организовать работу с сетью (чтение и передача данных) с использованием RAW-сокетов. Вызвано это было тем, что при работе требовалось задавать в IP-заголовке тип протокола FF. Как обрабатывать это стандартными indy-компонентами я не смог найти. Воспользовался двумя примерами, на основе которых сделал модули на прием и передачу и запустил две программы на разных ПК в локальной сети. Но при работе в произвольный момент времени возникает ошибка, которая "крашит" о ...

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

Доброго времени суток! Не найду решения вопроса о том, как управлять учетными данными Windows в Диспетчере учетных данных. Есть необходимость удалять и создавать новые записи. Для чего? Администрирование предприятия. Появился нормальный датацентр. Настроил хранилища. Но теперь надо более чем на 50-ти рабочих мест: 1. Отключить старые сетевые диски (не проблема) 2. Удалить старые учетные записи 3. Создать новые учетные записи 4. Переподключить сетевые диски опираясь на идентификацию машин ...

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

Всем привет. Хочу "своими руками" миксить вавки и писать их в звуковую карту через WaveOutOpen + waveOutWrite. Прочитал внимательно статью "Еще раз о звуке", написал. Звук рваный. Скачал пример и увидел там эту великолепную фразу:

BlockSize = 1024*32; // размер буфера вывода — с какого-то min размера звучит без пауз

:))) а я хочу BlockSize = 44100*2*2 div 10, т.е. 1/10 секунды, чтобы успевать складывать несколько звуков, которые в случайном времени будут появляться. ...

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

Уважаемые коллеги. Помогите, пожалуйста, победить следующую проблему: Сервис работает под LocalSystem и в процессе работы создаёт отображаемый в памяти файл. Как заставить систему разрешить приложению под ограниченным аккаунтом читать этот файл? Впрочем, сервис тоже не может прочесть созданную приложением память. Win 7, UAC отключен, там где требуется SecurityAttributes пока nil. Пробовал передавать, но тогда были проблемы и в админском аккаунте. Имя отображения с префиксом "Global\". ...

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

Всем привет. Подскажите пожалуйста. Кто ни будь делал игру на подобии BrickShooter? Как вообще там все строится? Мне кажется я не правильно отрисовал игровое поле. Так как если один тайл уже в движении, то щелкнув по другому - первый останавливается. И если первоначальные координаты тайла изменилились, а на его место передвинулся очередной тайл. Как запустить очередной тайл? У меня в рекорд записываются координаты X,Y(нужно или нет?), Check- если тайл не дошел до финиша- для того что бы когда ...

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

Здравствуйте! Есть лог работы программы, который формируется в памяти в TStringList. Чем лучше его отобразить на экране? Желательно, чтобы была возможность это делать в оперативном режиме, во время работы программы добавлять туда текст. TMemo - можно, но, во-первых, редактирование изначально не нужно, и во-вторых, очень медленно он работает, если большой объем. Идеальное решение было бы наподобие терминала. Есть хардкорный вариант - рендерить текст самому на канве + скроллеры, но остаются воп ...

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

Здравствуйте! У меня такой вопрос: как в OpenOffice подчеркнуть слово или фразу выведенную из Delphi7. Большая просьба привести примеры как это сделать. ...

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

Имеется у меня программа на Delphi, которая соединяется с БД и вытягивает данные в dbgrid. Пользователи хотят "играться" данными, поэтому из dataset я организовал выгрузку в excel в табличном виде. Беда в том, что данные в excel выглядят не презентабельно, а хочется красоты, выравнивания, раскраски и т.д. Сделал сводную таблицу на листе в excel, которая вытягивает данные со второй страницы, куда я их программы выгружаю данные. Все стало красиво, но..... delphi выдает ошибку при выгрузки данны ...

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