Отправляет email-рассылки с помощью сервиса Sendsay

Мастера DELPHI. Новости мира компонент, FAQ, статьи...

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Delphi - проблемы и решения" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

13.577 подписчиков
-18 за неделю
←   Все выпуски   →

Мастера DELPHI. Новости мира компонент, FAQ, статьи...


Служба Рассылок Subscribe.Ru
Ежедневная рассылка сайта Мастера DELPHI

DELPHI.mastak.ru

Выпуск от 22.01.02 09:04

Новые компоненты   |x|
  • DIPcre 1.50 (80Kb) (21.01.02 14:04)
    Обработчик регулярных выражений для Boland Delphi. Используется Perl5-совместимый синтаксис, включая полное выделение подстрок, регистронезависимость при сравнении и т.д. DIPcre включает также два редактора регулярных выражений: TDIPcreEdit и TDIPcreComboBox. Оба позволяют пользователю вводить образец регулярного выражения.

    Включает полный исходный код, некоммерческое использование допускается без каких-либо ограничений.
    Источник: www.delphipages.com   Автор: The Delphi Inspiration http://www.zeitungsjunge.de/delphi/
    -= · VCL · Samples · =- [Перевел: Сергей Касаткин]
  • Для уменьшения объема писем здесь публикуется не весь список новых компонент, потому заглядывайте и на сайт!
Кое-что из нашей кладовки   |x|
  • MathParser const Kolganoff22@mail.ru   (20.01.02 09:27)
    Компонент MathParser разбирает математические выражения и вычисляет их. Математическое выражение может состоять из чисел (целых и действительных), переменных (любая последовательность букв и цифр начинающаяся с буквы), действий арифметики (плюс, минус, умножить, разделить, возвести в степень ), функций (любая последовательность букв и цифр начинающаяся с буквы и заканчивающаяся круглыми скобками) и скобки для задания приоритетов. Перемнные и функции чувствтельны к регистру.
    »»» Скачать: исходные тексты (5кб)
  • Timer (ver 2.0) _SnAke_ ssnake_@mail.ru   (22.01.02 00:38)
    Как часто, садясь за комп, Вы теряли чувство времени? Теперь с этой прогой все
    закончено.  Вам  достаточно  запустить  ее, установить время в которое Вас нужно
    предупредить  (разбудить  :-)),  при  желании  ввести  текст  сообщения, которое
    появится  при  достижении  указанного  времени  и  нажать  кнопку  <Запуск>. При
    достижении  указанного  времени  программа  выдаст  на  экран  окно  сообщения и
    звуковой  сигнал  на  колонки.  После этого при нажатии на кнопку <OK> программа
    завершит свою работу, а при нажатии на <Установки> опять появится окно настроек.
     Примечания:
    1.  Программа  написана  таким  образом, что проверяет не текущее время, а время
    прошедшее  после  нажатия  на кнопку <Запуск>, поэтому после запуска програмы Вы
    можете  со  спокойной  душой  менять  показания системного времени, программа не
    подведет.
    2.  Программа  может  работать  не  более 24 часов с момента нажатия на <Запуск>
    (лично  мне  хватало  :-)),  однако  если  нужно работать дольше, то этого можно
    добиться  следующим  макаром:  устанавливаете  время  активации  равное текущему
    времени  и жмете на <Запуск>. Прога работает 24 часа. Я думаю, что делать дальше
    Вы догадались.
    »»» Скачать: исходные тексты (21кб) демонстрационный EXE файл (170кб)
  • PE-Crypt _SnAke_ ssnake_@mail.ru   (22.01.02 00:49)
    Упаковщик EXE DLL файлов. Защита от отладки и т.п.
    Степень сжатия Delphi-программ до 60% (100% - худшее сжатие) (Прога не моя, посему исходников нет)
    »»» Скачать: исходные тексты (110кб)
  • ID3Tag _SnAke_ ssnake_@mail.ru   (22.01.02 00:41)
    Маленький класс для работы с ID3Tag-ами MP3 файлов.
    »»» Скачать: исходные тексты (5кб)
Лучшее из нашего FAQ   |x|
Есть ли в Delphi эквивалент функции SendKeys Visual Basic'а?
Ниже приведена процедура, позволяющаю отправлять нажатия в любой элемент управления (window control), способный принимать ввод с клавиатуры. Вы можете использовать эту технику чтобы включать клавиши NumLock, CapsLock и ScrollLock под Windows NT. Та же техника работает и под Windows 95 для CapsLock и ScrollLock но не работает для клавиши NumLock.
Обратите внимание, что приведены четыре поцедуры: SimulateKeyDown() - эмулировать нажатие клавиши (без отпускания) SimulateKeyUp() - эмулировать отпускание клавиши SimulateKeystroke() - эмулировать удар по клавише (нажатие и отпускание) и SendKeys(), позволяющие Вам гибко контролировать посылаемые сообщения клавиатуры.
SimulateKeyDown(), SimulateKeyUp() и SimulateKeystroke() получают коды виртуальных клавиш (virtural key) (вроде VK_F1). Процедура SimulateKeystroke() получает дополнительный параметр, полезный при эмуляции нажатия PrintScreen. Когда этот параметр равен нулю весь экран будет скопирован в буфер обмена (clipboard). Если дополнительный параметр равен 1 будет скопированно только активное окно.
Четыре метода "button click" демонстрируют использование: ButtonClick1 - включает capslock ButtonClick2 - перехватывает весь экран в буфер обмена (clipboard). ButtonClick3 - перехватывает активное окно в буфер обмена (clipboard). ButtonClick4 - устанавливает фокус в Edit и отправляет в него строку.
Пример:

procedure SimulateKeyDown(Key : byte);
begin
    keybd_event(Key, 0, 0, 0);
end;

procedure SimulateKeyUp(Key : byte);
begin
    keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;

procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
    keybd_event(Key,extra,0,0);
    keybd_event(Key,extra,KEYEVENTF_KEYUP,0);
end;

procedure SendKeys(s : string);
var
    i : integer;
    flag : bool;
    w : word;
begin
    {Get the state of the caps lock key}
    flag := not GetKeyState(VK_CAPIT!
AL) and 1 = 0;
    {If the caps lock key is on then turn it off}
    if flag then
        SimulateKeystroke(VK_CAPITAL, 0);
    for i := 1 to Length(s) do
        begin
            w := VkKeyScan(s[i]);
            {If there is not an error in the key translation}
            if ((HiByte(w) <> $FF) and (LoByte(w) <> $FF)) then
                begin
                    {If the key requires the shift key down - hold it down}
                    if HiByte(w) and 1 = 1 then
                        SimulateKeyDown(VK_SHIFT);
                        {Send the VK_KEY}
                    SimulateKeystroke(LoByte(w), 0);
                    {If the key required the shift key down - release it}
                    if HiByte(w) and 1 = 1 then
                        SimulateKeyUp(VK_SHIFT);
                end;
        end;
{if the caps lock key was on at start, turn it back on}
if flag then
    SimulateKeystroke(VK_CAPITAL, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    {Toggle the cap lock}
    SimulateKeystroke(VK_CAPITAL, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    {Capture the entire screen to the clipboard}
    {by simulating pressing the PrintScreen key}
    SimulateKeystroke(VK_SNAPSHOT, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    {Capture the active window to the clipboard}
    {by simulating pressing the PrintScreen key}
    SimulateKeystroke(VK_SNAPSHOT, 1);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    {Set the focus to a window (edit control) and send it a string}
    Application.ProcessMessages;
    Edit1.SetFocus;
    SendKeys('Delph!
i Is RAD!');
end;


Источник: Дельфи. Вокруг да около.

А теперь у нас есть целый модуль для этого:
http://delphi.mastak.com/articles/sendkey.html

»»» Прислать свои комментарии

Обсуждается в конференциях   |x|
У нас большой выбор статей   |x|
Поиск и фильтрация данных в Delphi
Базы данных являются удобным средством хранения структурированной информации. Однако само по себе накопление и хранение информации делает базу данных большой кучей мусора. Удобно организованный поиск и отбор информации способен резко повысить эффективность ее использования. В данной статье мы попытаемся разобраться в методах поиска информации, реализованных в Delphi. Предполагается, что Вы в общих чертах знакомы с теорией реляционных баз данных и имеете некоторый опыт программирования на Delphi.
Новинки книжного рынка   |x|
Delphi 5: учебный курс
В книге рассмотрены возможности системы программирования Delphi 5, описан язык программирования Object Pascal, рассмотрены визуальные компоненты системы и методы их создания. Особое внимание уделено принципам и практическим приемам создания сетевых приложений для разных архитектур и разработке программ, поддерживающих основные протоколы Интернета.Не требует специальной подготовки, может быть использована как пособие для изучающих основы программирования и сетевые технологии, а также как справочник по компонентам Delphi и пособие для самообразования.
Автор: С. Бобровский
Другие сайты о DELPHI   |x|
AFTeam's Home Page
Почти ничем не примичательный сайт. Только мои работы, да некоторая информация.
Опрос населения :)
Стоит ли сделать англоязычную версию этого сайта?
»»» Да
»»» Нет
Журнал "RSDN Magazine"  |x|

Дорогие друзья! Мы рады представить вам новый совместный проект сайтов www.rsdn.ru, delphi.mastak.ru и www.optim.ru - профессиональный журнал для программистов RSDN Magazine.
Несомненно, ваше мнение о необходимости такого журнала, содержании рубрик и темах отдельных статей поможет сделать журнал более полезным и интересным. Высказать свое мнение, проголосовать или же подписаться вы можете на сайте. Без вашего участия, нам будет трудно сделать правильный журнал!

Для души

Хокку дня
На снег за окном
С ужасом смотрит
Молоденький кактус

Афоризмы
Молчаливая женщина - подарок Божий...

Фраза дня
Привлекательные женщины отвлекают.

И на закуску коротенький анекдот
- Как называется, когда блондинка кpасится под бpюнетку?
- Искусственный интеллект.

Фотоприколы.
Начните день с хорошего настроения!
http://delphi.mastak.ru/cgi-bin/prikol.pl?id=91

На этом позвольте откланяться и пожелать вам удачного дня.
Искренне ваш, Алексей (delphi@mastak.com)

Добро пожаловать на сайт -= Мастера DELPHI =- 
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное