Здравствуйте, можно ли в делфи (скорее всего это через API функции) сделать скриншот программы которая находится в свёрнутом состоянии ? ...

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

Доброго времени дня! Win7, D7, MS SQL Server 2008. Задача такая:На вход подаётся объект типа Variant. Я знаю, что этот объект есть таблица БД. Как обращаться к полям по индексу я знаю. Но от версии к версии разработчики меняют индексы полей к которым нужно обращаться. Имена полей не меняются. Хотелось-бы обращаться к наи именно по имени. Где-то, в КС, встречал, но не могу найти ответ на этот вопрос. Как я могу узнать кол-во полей в таблицах, их имена, а также их тип? Помню, что суще ...

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

Добрый день жители королевства!!! Помогите мне с установкой компонентов jedi на RadStudio xe5!!! Скачал последнюю версию с официального сайта 3.48, JCL - установилась, а JVCL - не может, говорит ошибка компиляции на файле JvThemes.pas! В Интернете поискал - но там ничего конкретного!!! ...

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

Добрый день! Есть главное меню программы с пунктом "Отчеты" (mnuReports), под которым множество подпунктов, каждый со своим заголовком конечно. Есть необходимость отсортировать эти подпункты по алфавиту в runtime для того, чтобы не беспокоиться о положении подпунктов в design-time. Попробовал так (на нажатие пункта "Отчеты"), не получилось: [Code]procedure TwndMain.mnuReportsClick(Sender: TObject); var vList : TStringList; i : Integer; begin vList := TStringList.Create; try ...

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

Здравствуйте, господа. Какое-то очень своеобразное поведение обнаружилось на моей седьмой Delphi у переменных PChar. К примеру, вот этот код исполняется:

code:
var
p: PChar;
begin
GetMem(p, 3);
CopyMemory(p, pchar('ab'), sizeof(char) *3);
FreeMem(p, 0);
end;

А вот этот - уже нет:

code:
var
p: PChar;
begin
GetMem(p, 2);
CopyMemory(p, pchar('a'), sizeof(char) *2);
FreeMem(p, 0);
end;

Почему вдруг такая избирательность? ...

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

Добрый день. На форме валяется TOpenDialog. В обзоре нужно выбрать ярлык (c:\1.lnk). Выбираю его в обзоре, но имя файла возвращяется другое - из свойств ярлыка, например c:\myfile\prog.exe, ну т.е. то, на что ярлык и указывает. А нужно чтобы само имя ярлыка (ну хочу я например его скопировать). Поиск по свойствам и гуглу пока не помог. ...

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

Скажите для решения вот этой задачи "В массиве A (n) найти сумму положительных элементов, расположенных впереди первого отрицательного элемента" код является адекватным?

code:

var sum,i:integer;
begin
while  length(massiv)>i do
begin
if massiv[i]<0 then
begin
for i:=0 to high(massiv) do
begin
sum:=0;
sum:=sum+massiv[i];
edit5.Text:=FloatToStr(sum);

...

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

Уважаемые рыцари! Имеется компонент DBLookupComboBox связанным в своих свойствах DataSource, ListSource с датасетами pFIBDataSetKadr(основная таблица),pFIBDSetDesign(таблица справочника - артикул хранящихся на складе вещей). Всё работает нормально, пользователь набирает на клавиатуре наименование и DBLookupComboBox показывает первое совпадение но есть большая проблема в том, что пока не наберёшь полностью название артикула объекта хранения трудно найти необходимый объект т.к. артикулы имеют т ...

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

Здравствуйте еще раз. Я опять развлеку Вас вопросиком... Где мой косяк - не пойму. Решил заполнить данными итемсы обычных комбобоксов и наткнулся... Когда поле БД строкового типа - проблем не возникают, но в остальных 4-х поля типа МЕМО и я не могу отсечь пустую строку. Вот рабочий и не рабочий куски. Рабочий: /// проба вставить загрузку комбобокса nameap ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := 'SELECT * FROM telemaster WHERE nameap'; // выборка пользователей ADOQuery1.Open; ...

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

Здравствуйте уважаемые... Опять у меня нубские непонятки... Проект с двумя формами работает, так как задумано, но стало необходимым вторую форму показывать рядом с главным окном. Топ и лефт подсчитать и передать не проблема, но при открытии вторая форма виснет, хотя частично и работает, но закрываться 100% не хочет. Пробовал просто на ее активации сдвигал ее и то же самое. Может не главную форму нельзя программно двигать? Хотя мало верится, так то ее по окну тягать можно... ...

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

Здравствуйте, коллеги! Вопрос по корзине в Windows. Как известно, для каждого тома создается своя корзина со своими настройками. Существует ли возможность программно определить эти настройки? Через реестр можно получить настройки размера корзины и флажок удаления напрямую, минуя корзину. Но использовать реестр для подобной задачи некрасиво. Кроме того, нет возможности определить состояние флажка подтверждения удаления, который мне и нужен. Есть ли какие-то функции для определения состояния это ...

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

Здравствуйте, господа. Столкнулся с интерестным явлением при вызове функции, код которой привожу ниже. Ее задача заключается в том, чтобы принять два спроковых параметра и создать переменную с названием, переданным в первом параметре, и значением, переданным во втором. Для ее работы необходим тип: type Definition =( int, frac, str); TVariable =record Name: string; Define: definition; Value: pointer; end; А также массив: user: array of TVariable; function Variable( ...

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

Вопрос такой. Есть DLL от .NET (сделаны, скорее всего, в C#) Всякие опыты с ними(попытки добыть через regasm и tlibimp) что-то пригодное для применения не увенчались успехом В реестре ссылка на TLB, сделанной regasm. TLIBIMP радостно сотворяет файлы pas и dcr. Но нет implementation - там пусто. Копание в интернете привело к следующему - при создании .NET DLL можно разрешить сделать из этих DLL COM , или нет. Похоже в этих этого "TRUE" нет. И суть проблемы - информация то где-то есть. П ...

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

Столкнулся с проблемой на Delphi-XE5. Ни одна из 3 работавших в более ранних версиях функция не хочет сообщить мне размер скачиваемого мной файла (нужно для индикации прогрессбаром). 2 функции на модуле wininet и один способ на THDHTP компоненте. Вопрос к уважаемым форумчанам как средствами Делфи ХЕ5 это реализовать? Рыл интернет всю ночь.... ...

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

Иногда возникает большой соблазн передать в качестве аргумента некому методу, ожидающему параметр-объект, конструктор этого объекта. Например:

code:

procedure MyMethod( MyObject: TMyObject );

MyMethod( TMyObject.Create() );

вместо канонического, но более громоздкого

code:

var
  MyObject;

begin

  MyObject := TMyObject.Create();
  
  MyMethod( MyObject );

  MyObject.Free();

end;

Здесь я предполагаю, что MyObject - некий вспомогательный класс, ко ...

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

Добрый день! Пытаюсь проверить xml на валидность по схеме. Нашел в интернете пример, импортировал MSXML2_TLB, подключил к проекту. На строчке

code:
 Schema:= CoDOMDocument40.Create; 

выдает ошибку: Класс не зарегистрирован. Как победить? ...

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

Здравствуйте!Как расписать в формуле С=В*А(1-D)*(1-E)*10-6 десять в минус шестой степени в дельфи??? ...

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

Добрый день уважаемый All! Имеется набор данных (TDBF). В его Fields[] существует текстоовое поле (TStringField) значение которого выдергивается из справочника (Lookup Field). В случае отсутствия записи в справочнике, в отчет FastReport попадает пустая строка, а хотелось бы чтобы выводилось что-то типа "(отсутствует значение в справочнике)". Подскажите пожалуйста как с этим быть? Заранее спасибо! ...

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

Не первый раз обращаюсь к Коллективному Сознательному. Спасибо, добрые люди - всегда помогали, всегда помогало. Никак не угомонюсь: опять взываю и, можно сказать, уповаю. Дело в следующем: копирую участок Canvas'а на другое место: метод TCanvas.CopyRect(...). Работает правильно (когда оба участка пересекаются) и быстро, но таки я, как "быстрый разумом Невтон" ((с)М.Ломоносов), иногда бываю быстрее: метод еще не отработал, а положение "участков" уже изменилось. Можно ли как-то срочно завершить вы ...

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

Вопрос на засыпку: Чему будет равно содержимое P после выполнениястрок:

code:

  glDrawBuffer(GL_NONE);
  glGetIntegerv(GL_DRAW_BUFFER, P);
 

? У меня возвращается GL_BACK. Почему? Строки в коде так подряд и идут. ...

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