Вопрос № 116709: Доброго времени суток! Будьте добры, киньтесь примером кода на Дельфи, позволяющим определить активность пользователя, т.е. как это сделано в скринсейвере, если скажем 30 сек нет перемещения мыши или нажатия клавиш - то вызвать какое-либо событие....Вопрос № 116745: Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста!
Задача такова: дана вещественный массив, размещенный в StringGrid. Необходимо заменить все исходные элементы массива, кроме первого и последнего, по формуле Xi= (Xi-1+Xi+Xi+1)/3, т.е. бр...Вопрос № 116771: Здравствуйте уважаемые кодеры (ПРОГРАММИСТЫ)!
У меня к вам срочный вопрос помогите пожалуйста:
Помогите сделать программу, которая будет регистрировать мой сайт в поисковике yandex.ru(любой сайт необязательно мой)!
Буду очень бл...Вопрос № 116791: Здравствуйте!!! Можно ли как-нибудь средствами BDS 2006 изменить скин окон Windows, например как в StyleXP, т.е. не обычные серебряные или оливковые скины, а свои ?...Вопрос № 116797: Еще раз здравствуйте! Как программно получить список названий видимых окон в windows? ...Вопрос № 116825: Здравствуйте!
Помогите решить следующую задачу. Обеспечить двойным нажатием левой клавиши вычитание из первого целого числа второго целого числа. Результат вводится вместо превого целого числа. Нажатием клавиши "Esc" восстановить исхо...
Вопрос № 116.709
Доброго времени суток! Будьте добры, киньтесь примером кода на Дельфи, позволяющим определить активность пользователя, т.е. как это сделано в скринсейвере, если скажем 30 сек нет перемещения мыши или нажатия клавиш - то вызвать какое-либо событие.
есть еще пример кода (программа Sendkeys). Код не мой и не проверен, найден когда-то в интернете.
Приложение:
Ответ отправил: Drbear (статус: 4-ый класс)
Ответ отправлен: 03.01.2008, 11:03 Оценка за ответ: 4 Комментарий оценки: Спасибо за пример, но хотелось бы более простое решение.
Отвечает: Mishell
Здравствуйте, Remnew Anatoliy!
можно по таймеру проверять активность пользователя с пом. ф-ции GetLastInputInfo - см. пример в приложении
Приложение:
Ответ отправил: Mishell (статус: 8-ой класс)
Ответ отправлен: 03.01.2008, 11:13 Оценка за ответ: 4 Комментарий оценки: Спасибо, дали толчок в нужном направлении.
Вопрос № 116.745
Здравствуйте, уважаемые эксперты!
Помогите, пожалуйста!
Задача такова: дана вещественный массив, размещенный в StringGrid. Необходимо заменить все исходные элементы массива, кроме первого и последнего, по формуле Xi= (Xi-1+Xi+Xi+1)/3, т.е. брать по три элемента массива (1,2,3...2,3,4...3,4,5,...) и заменять их на их среднее арифметическое, помещая его соответственно на место элемента (2,3,4,...). Причем использовать при этом только старые значения массива.
Большое спасибо!
Отправлен: 03.01.2008, 16:34
Вопрос задал: Mangoost (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Drbear
Здравствуйте, Mangoost!
Может быть такой код спасет Вас (написано на коленке, непроверено):
на форме StringGrid и Button.
Приложение:
Ответ отправил: Drbear (статус: 4-ый класс)
Ответ отправлен: 03.01.2008, 17:35
Вопрос № 116.771
Здравствуйте уважаемые кодеры (ПРОГРАММИСТЫ)!
У меня к вам срочный вопрос помогите пожалуйста:
Помогите сделать программу, которая будет регистрировать мой сайт в поисковике yandex.ru(любой сайт необязательно мой)!
Буду очень благодарен...
(помогите - это очень важно)
Вот один из вариантов через TWebBrowser
на форму бросаем TwebBrowser - вызываем Webbrowser1.navigate('http://webmaster.yandex.ru/');
по окончании загрузки сайта - нужно заполнить форму - через ниже приведенную функцию (найдена на просторах инета)
FillForm(WebBrowser1,'url','http://ваш_сайт.ru'):
Далее - самый сложный момент - это капча - тут два варианта - либо писать суперсистему разпознования - либо тока ручками вводить(тут можно сделать вывод картинки прямо в приложение в image1 и ввод вручную в edit1)
FillForm(WebBrowser1,'repl',edit1.Text);
Далее вызываем click на кнопку добавить
нужно подправить функцию - заменив
if FormItem.Item(j).Name = FieldName then
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
на
if FormItem.Item(j).Value = Value then
begin
FormItem.Item(j).Click;
Result := True;
end;
FillForm(WebBrowser1,'url','http://ваш_сайт.ru'):
Приложение:
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 3-ий класс)
Ответ отправлен: 04.01.2008, 09:59 Оценка за ответ: 5 Комментарий оценки: Спасибо большое! В душе облегчение!
Отличный ответ!
Может кто через idhttp предложет?
Вопрос № 116.791
Здравствуйте!!! Можно ли как-нибудь средствами BDS 2006 изменить скин окон Windows, например как в StyleXP, т.е. не обычные серебряные или оливковые скины, а свои ?
Отвечает: Selya !!! Здравствуйте, Киреев Тимур! Есть такой коммерческий набор компонентов DevExpress http://www.devexpress.com/ Там можно создавать свой стиль или использовать предуставнвленный (Flat, OfficeXP, Office2003 и т.д.) Не уверен, что сможешь его купить удалено
Ответ отправил: Selya (статус: 3-ий класс)
Ответ отправлен: 04.01.2008, 11:57
Вопрос № 116.797
Еще раз здравствуйте! Как программно получить список названий видимых окон в windows?
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Киреев Тимур!
Посмотрите эту статью.
Удачи!
Ответ отправил: Николай Владимирович / Н.В. (статус: Практикант)
Ответ отправлен: 03.01.2008, 22:23 Оценка за ответ: 4
Отвечает: Selya
Здравствуйте, Киреев Тимур!
Если считать окна только от твоего приложения, то их список получить очень просто:
Приложение:
Ответ отправил: Selya (статус: 3-ий класс)
Ответ отправлен: 04.01.2008, 12:07 Оценка за ответ: 3 Комментарий оценки: Мне нужно все окна из Windows
Вопрос № 116.825
Здравствуйте!
Помогите решить следующую задачу. Обеспечить двойным нажатием левой клавиши вычитание из первого целого числа второго целого числа. Результат вводится вместо превого целого числа. Нажатием клавиши "Esc" восстановить исходное первое целое число.
Не удается найти функцию восстановления исходного первого числа и как её использовать в решении этой задачи.
Для начала рекомендую Вам переменные a и b описать как глобальные: var Form1: TForm1; a,b:integer;
В режиме конструирования формы в поля Edit1 и Edit2 изначально внесем какие-либо произвольные числовые значения. И соответственно при создании формы определим (присвоим) наши значения для a и b.
procedure TForm1.FormCreate(Sender: TObject); begin a:=StrToInt(Edit1.Text); b:=StrToInt(Edit2.Text); ... end;
Для
того чтобы была возможна обработка нажатия клавиш в диспетчере объектов для формы устанавливаем значение KeyPreview = True.
Создаем обработчик двойного нажатия на форме и записываем в него соответствующие операторы (Обеспечить двойным нажатием левой клавиши вычитание из первого целого числа второго целого числа): procedure TForm1.Form
DblClick(Sender: TObject); begin Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-b); end;
Данная процедура немного усовершенствована, мы при каждом двойном нажатии на форму из текущего значению поля Edit1 вычитаем значение переменной b.
И конечно же нам осталось создать обработчик восстановления измененного значения в исходное состояние: procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if
Key = VK_ESCAPE then Edit1.Text:=IntToStr(a); end;
Полный код вы сможете увидеть в исходниках прикрепленных к ответу.
Good Luck!!!
Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Академик) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) WWW:http://gh0stik.rusfaq.ru/ ICQ: 289363162 ---- Ответ отправлен: 04.01.2008, 11:16
Отвечает: Denisss
Здравствуйте, Спиридонов Данил Сергеевич!
См. пример в приложении.
Некоторые пояснения:
- В Вашем примере (в приложении к ответу) переменные a, b и c объявляются как локальные (доступные только в самой функции или процедуре). Я объявил их как частные для класса формы (частные доступны во всех функциях и процедурах класса, в котором они объявлены). Благодаря этому, значения переменных запоминаются до уничтожения формы, т.е. до завершения работы программы.
- Введен
"флаг редактирования" - этот флаг нужен, чтобы определить того, кто редактирует поле Edit1 - пользователь или программа. Если редактирует пользователь, значит он меняет число а, и оно не должно восстанавливаться по нажатию Esc.
Прим.: В Вашем примере допущена грубая ошибка в обработчике Button1.OnClick - а и b у Вас объявлены как локальные переменные. Вы их ничем не заполняете, потому в функции IntToStr они Вам будут выдавать нео
пределенные (можно сказать, случайные) значения.
С уважением, Denisss
Приложение:
--------- Будь осторожен, когда молишься ради чего-то, потому что можешь это получить...
Ответ отправил: Denisss (статус: Профессионал) Россия, Москва ---- Ответ отправлен: 04.01.2008, 11:20