Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 113

/ вопрос открыт /

Доброе время, Господа Программисты. Помогите пожалуйста, разобраться!!! У меня вопрос, которого обычно не задают на таких форумах, ответьте, кто знает. У меня есть неактивная программа, точнее форма. Я нажимаю на любую кнопку, допустим "ч", а в Мемо. плюс к остальному, добавилось "ч". Заранее очень благодарен.!! Жду Вашего ответа!!!

Geron Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 27 августа 2006, 00:59
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: Dron

Здравствуйте, Stalker!
Я не совсем понял, что именно Вам требуется, но сделал небольшой пример - прикреплённый файл. В проекте две формы. Вторая полностью неактивна и на ней расположено TMemo, которое тоже неактивно. При наборе символов, когда активная первая форма, они добавляются в Memo на второй форме. Если на первой форме будут другие компоненты (например, кнопки) и фокус будет установлен на них, а реагировать на нажатия клавиш всё равно требуется, то следует поставить у формы KeyPreview = True. Удачи!
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)

Ответ отправил: Dron (статус: Студент)
Время отправки: 27 августа 2006, 08:35

Ответ #2. Отвечает эксперт: Denisss

Здравствуйте, Stalker!
Вам надо разбираться с клавиатурными хуками (Keyboard Hook).
Попробуйте отыскать в интернете примеры KeyLogger'ов.
(Например, вот: http://www.planet-source-code.com/URLSEO/vb/scripts/ShowCode!asp/txtCodeId!1615/lngWid!7/anyname.htm)

Ответ отправил: Denisss (статус: 2-ой класс)
Время отправки: 27 августа 2006, 11:56
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 5 января 2014, 12:44; участников в обсуждении: 1.
zvygin1964

zvygin1964 (статус: Посетитель), 5 января 2014, 12:44 [#1]:

А мне на Новый год подарили печатную машинку (проверил, она работает):
unit Unit1;  // печатная машинка Вопрос # 6 504 http://expert.delphi.int.ru/
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.readonly:=true;
end;
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
  #8:
    begin
      memo1.text:=copy(memo1.text,1,length(memo1.text)-1);
    end;
  #13:
    begin
      memo1.lines.add('');
    end;
  else
    begin
      memo1.Text:=memo1.Text+key;
    end;
  end;
memo1.SelStart:=length(memo1.Text);
sendmessage(memo1.handle,EM_SCROLLCARET,0,0);
end;
 
end.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 27 июня 2017, 15:05
Выполнено за 0.08 сек.
Рейтинг@Mail.ru