RusFAQ.ru: Программирование на Delphi
| Информационный Канал Subscribe.Ru |
RusFAQ.ru: Программирование на Delphi
Выпуск № 061
от 16.08.2002, 05:30
| Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва |
О рассылке: Задано вопросов: 128 Отправлено ответов: 191 Активность: 149.2 %
|
| Список экспертов, ответы которых опубликованы в данном выпуске |
| Pablo Статус: Опытный Общий рейтинг: 130.43 URL: Моя страничка [Подробней >>] |
Артём Шегеда Статус: Профессиональный Общий рейтинг: 120.07 URL: Пристанище неодинокого программиста [Подробней >>] |
Sanya Статус: Опытный Общий рейтинг: 132.44 [Подробней >>] |
| Painbringer Статус: Начальный Общий рейтинг: 117.5 [Подробней >>] |
Igoryk Статус: Опытный Общий рейтинг: 113.61 URL: В помощь программисту [Подробней >>] |
| Краткий перечень вопросов |
Вопрос № 120. Здрасти всем. Вот тут вопрос возник. У меня есть label с caption:='12:00:00'. Как теперь мне енто вр... (ответов: 3)
Вопрос № 121. Привет эксперты! Столкнулся с такой ситуацией: СУБД paradox7; В бд есть поля logical, соответственно... (ответов: 1)
Вопрос № 122. Привет эксперты! Как программно кликнуть на DBCheckBox? На сколько я понимаю - SendMessage ......? T... (ответов: 5)
Вопросов: 3, ответов: 9
| Вопрос № 120 |
Здрасти всем. Вот тут вопрос возник. У меня есть label с caption:='12:00:00'. Как теперь мне енто время установить в системе. Естественно по средствам Delphi. Только попроще если можно. Спасибо.
Вопрос отправлен: 09.08.2002, 19:05
Отправитель: PC Gamer (pcgamer@mail.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Pablo
Приветствую Вас, PC Gamer!
Попробуй так:
_SYSTEMTIME systime;
TDateTime time(Label1->Caption);
DateTimeToSystemTime(time,systime);
SetSystemTime(&systime);
Ответ отправлен: 09.08.2002, 22:26
Отправитель: Pablo
Отвечает Артём Шегеда
Приветствую Вас, PC Gamer!
"По средствам Delphi" не выйдет - только API:
type
SYSTEMTIME = record
wYear:WORD;
wMonth:WORD;
wDayOfWeek:WORD;
wDay:WORD;
wHour:WORD;
wMinute:WORD;
wSecond:WORD;
wMilliseconds:WORD;
} SYSTEMTIME;
function SetLocalTime(const lpSystemTime:SYSTEMTIME):boolean;
Приложение:
Ответ отправлен: 09.08.2002, 20:22
Отправитель: Артём Шегеда
Отвечает Sanya
Здравствуйте, PC Gamer!
Используй API что-то типа:
Uses ShellApi;
procedure TForm1.Button1Click(Sender: TObject);
var DTime:SYSTEMTIME;
begin
DTime.wHour:=15;
DTime.wMinute:=10;
DTime.wSecond:=00;
SetLocalTime(DTime);
end;
На работоспособность правда не проверял!
Удачи!
Ответ отправлен: 10.08.2002, 09:15
Отправитель: Sanya
| Вопрос № 121 |
Привет эксперты!
Столкнулся с такой ситуацией:
СУБД paradox7;
В бд есть поля logical, соответственно
принимающее знач true/false.
Так вот, при созданиии новой записи
(insert) я обнуляю (checked:=false)
DBCheckBox'ы иначе они - Grayed по dafault'у,
затем некоторые устанавливаю в true
в итоге при post - нетронутые но обнуленные
в начале дбчекбоксы принимают значение grayed.
Пробовал их автоматом устанавливать в одном обработчике
до post'a - все та же фигня...
И использование DBCheckBox.AllowGrayed:=true/false
ожидаемых результатом не принес...
Подскажите, что я проглядел?
Спасибо!
--
Atma Manas
Вопрос отправлен: 11.08.2002, 22:43
Отправитель: Atma (atma_manas@mtu-net.ru)
[Следующий вопрос >>] [Список вопросов]
Отвечает Sanya
Доброе время суток, Atma!
А у тебя случаем нету процедурок DBCheckBoxClick,
а то они срабатывают когда ты меняешь состояние checked, может в этом дело?
Удачи!
Ответ отправлен: 12.08.2002, 02:37
Отправитель: Sanya
| Вопрос № 122 |
Привет эксперты!
Как программно кликнуть на DBCheckBox?
На сколько я понимаю - SendMessage ......?
Thank's!
Вопрос отправлен: 13.08.2002, 05:26
Отправитель: AsteZX
[Следующий вопрос >>] [Список вопросов]
Отвечает Painbringer
Приветствую Вас, AsteZX!
Да типа можно и проще сделать. можно просто так вот:
CheckBox1.Checked:=not CheckBox1.Checked;
При этом событие чекбокса OnClick срабатывает (посмотри хелп на TControl.OnClick).
Ответ отправлен: 13.08.2002, 23:03
Отправитель: Painbringer
Отвечает Sanya
Добрый день, AsteZX!
Зачем такие сложности?
DBCheckBox1.OnClick(sender);
Удачи!
Ответ отправлен: 13.08.2002, 09:55
Отправитель: Sanya
Отвечает Артём Шегеда
Добрый день, AsteZX!
Можно, конечно, и SendMessage, но практичнее так:
(DBCheckBox1 as TCustomCheckBox).Click;
Это некрасиво, но по-моему, должно работать.
А что,
if not(DBCheckBox1.DataSource.State in [dsInsert,dsEdit] then
DBCheckBox1.DataSource.Edit;
DBCheckBox1.Field.AsBoolean = not DBCheckBox1.Field.AsBoolean;
- не работает?
А то, что написал Sanya, справедливо только для обработки событий - не более того. Кликнуть таким образом не получится.
Ответ отправлен: 13.08.2002, 12:25
Отправитель: Артём Шегеда
Отвечает Igoryk
Доброе время суток, AsteZX!
Лучше всего используй код:
DBCheckBox.Value := Not(DBCheckBox.Value)
Ответ отправлен: 13.08.2002, 13:10
Отправитель: Igoryk
Отвечает Pablo
Здравствуй, AsteZX!
Эти два сообщения эмулируют клик в координате 0,0 только вот не уверен чего чекбокса или клиентской области окна.
SendMessage(DBCheckBox1.Handle, WM_LBUTTONDOWN, MK_LBUTTON, MAKELONG(0,0));
SendMessage(DBCheckBox1.Handle, WM_LBUTTONUP, MK_LBUTTON, MAKELONG(0,0));
Ответ отправлен: 14.08.2002, 22:54
Отправитель: Pablo
|
Форма отправки вопроса |
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.
© 2002 Команда RusFAQ.ru.
| Вопрос и дополнение |
Ваш вопрос:
Приложение (если необходимо):
Получить ответов:
| Выбор рассылки |
| Программисту Assembler (40) C / C++ (27) Perl (14) Delphi (18) Pascal (28) Basic / VBA (11) Java / JavaScript (12) PHP (11) MySQL / MSSQL (11) |
Пользователю Windows 95/98/Me (50) Windows NT/2000/XP (34) "Железо" (38) Поиск информации (20) |
Администратору Windows NT/2000/XP (18) Linux / Unix (12) |
Юристу Гражданское право (7) Семейное право (5) Трудовое право (6) КоАП (4) |
Отправить вопрос всем экспертам выбранной рассылки.
| © 2002 Россия, Москва. Авторское право: RusFAQ.ru |
| http://subscribe.ru/
E-mail: ask@subscribe.ru |
Отписаться
Убрать рекламу |
| В избранное | ||
