Вопрос № 59572: Здравстуйте и Доброго времени суток. У меня возник вопрос по поиску в базе по нескольким полям. База проиндексирована.Использую стандартные настройки делфи. По одному полю поиск проходит успешно, но когда прописываю Table1.IndexFieldNames:='NOM;FIO';...Вопрос № 59580: Уважаемые спецы! Плиз обьясните дураку почему не фурычит моя прога....Вопрос № 59594: Здравствуйте господа эксперты.
Два вопроса по KOL/MCK:
1. Как правильно написать код, чтоб можно было перетаскивать главное окно левой кнопкой мыши.
Следующий код работает неправильно, неправильно работает левая кнопка мыши и т....
Вопрос № 59.572
Здравстуйте и Доброго времени суток. У меня возник вопрос по поиску в базе по нескольким полям. База проиндексирована.Использую стандартные настройки делфи. По одному полю поиск проходит успешно, но когда прописываю Table1.IndexFieldNames:='NOM;FIO';
и в дальнейшем произвольный поиск или по точным значениям то пишет, что данные поля не индексированны. Файл индекса CDX прописал через TTable. Програмировать начал недавно. Помогите пожалуйста!
Отправлен: 20.10.2006, 11:14
Вопрос задал: EWgEN (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Rusland
Здравствуйте, EWgEN!
Видимо созданы отдельно индекс NOM и отдельно индекс FIO. Нужно просто добавить один индекс по NOM и FIO.
--------- Если партия скажет есть контакт, будем есть контакт.
Ответ отправил: Rusland (статус: Специалист)
Ответ отправлен: 20.10.2006, 11:29
Вопрос № 59.580
Уважаемые спецы! Плиз обьясните дураку почему не фурычит моя прога.
Приложение:
Отправлен: 20.10.2006, 12:32
Вопрос задал: Fogg (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 7)
Отвечает: Monah
Здравствуйте, Fogg!
На первый взгляд только одна строка с возможной ошибкой...
inherited Create(AOwner);
тут вызывается унаследованный обработчик.
поробуй просто
inherited Create;
Ответ отправил: Monah (статус: 5-ый класс)
Ответ отправлен: 20.10.2006, 12:46
Отвечает: Gladiator
Здравствуйте, Fogg!
Не создаёшь нигде объект типа tcomponent1.
Ответ отправил: Gladiator (статус: 4-ый класс)
Ответ отправлен: 20.10.2006, 13:04
Отвечает: Melamed
Здравствуйте, Fogg!
Во первых, структура Вашей программы такова, что Вы должны ее писать на чистом WIN API. Если даже
в Delphi проходит такая структура (в чем я не уверен), то как заметил автор преджыдущ
077;го ответа, вам следует создать класс.
На ващем месте я создал бы проект VCL. На главную форму кинул компонент Interval, установил у него
свойство time в нужный интервал времени в милисекундах и написал обрабодчик его со
;бытия OnTimer. Думаю с кодом Вы самостоятельно разберетесь
Ответ отправил: Melamed (статус: 7-ой класс)
Ответ отправлен: 20.10.2006, 18:37
Отвечает: Bcd
Здравствуйте, Fogg!
Почему вы решили, что этот код будет работать?
Главный цикл программы
Begin
while (GetMessage(Msg, 0, 0, 0)) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;
посылает сообщения обработчику сообщений, которого у вас нет.
Посмотрите например на http://www.lenininc.com/ как это делается.
И еще. Когда в Delphi нажимаешь Ctrl+F9 происходит компиляция и
те строки кода, которые скомпилировались и реально будут выполняться
при запуске программы отмечаются в редакторе синими точками слева.
То есть уже на этой стадии можно посмотреть будет вызываться
та или иная процедура или нет. Посмотрите, что будет у вас.
Ответ отправил: Bcd (статус: 1-ый класс)
Ответ отправлен: 20.10.2006, 23:01
Вопрос № 59.594
Здравствуйте господа эксперты.
Два вопроса по KOL/MCK:
1. Как правильно написать код, чтоб можно было перетаскивать главное окно левой кнопкой мыши.
Следующий код работает неправильно, неправильно работает левая кнопка мыши и т.п.
function TMainForm.KOLForm1Message(var Msg: tagMSG;
var Rslt: Integer): Boolean;
const
SC_DragMove = $F012;
begin
Result := false;
case Msg.message of
WM_LBUTTONDOWN: if (Form.Visible) and (Form.WindowState = wsNormal) then begin
ReleaseCapture;
// Form.Perform(WM_NCLBUTTONDOWN, HTCAPTION, Msg.LParam);
Form.Perform(WM_SYSCOMMAND, SC_DragMove, 0);
Rslt := Integer(false);
Result := true;
end;
end;
end;
2. Что сделать, чтоб вкладки TKOLTabControl правильно прорисовывались под темами XP, т.е. прорисовывать их фон при помощи:
DrawThemeBackground(Theme, DC, TABP_BODY, 1, DrawRect, nil);
Только где это лучше прописать?
Возможно, уже есть готовое решение?
Ответ отправил: Bcd (статус: 1-ый класс)
Ответ отправлен: 21.10.2006, 21:33 Оценка за ответ: 2 Комментарий оценки: Уважаемый Bcd! Поскольку вы привели код аналогичный моему, то больше 2 увы поставить не могу. Под VCL он работает, а в KOL с этим кодом, например, чтоб нажать CheckBox на форме нужно два раза кликнуть мышей, вместо одного и прочие др. неполадки связанные с потерей/получением фокуса контролами на форме.
