Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Отлов клавы в одной процедуре [D7]

ProgRAMmer Dimonych © (2006-09-29 19:01:00)
Пишу свой компонент наподобие TMemo.
Кто-нибудь, подскажите, есть ли возможность отловить клавиатуру в одной процедуре (одним message'м): буквы-цифры-знаки, Esc, Enter, Tab, стрелки, Home, End? Если нет, то какие message'и лучше использовать, чтобы не вызывалось 2 процедуры на одно нажатие...
Заранее спс...

ProgRAMmer Dimonych (2006-09-30 23:11:00) [1]
DLGC_WANTALLKEYS в моём случае ([0]) подойдёт, или лучше (DLGC_WANTCHARS or DLGC_WANTTABS)? Или для сообщения нужно DLGC_WANTMESSAGE?

P.S. Прошу прощения за этот вопрос, просто с WinAPI я, кк иногда выясняется, слабовато знаком.

Юрий Зотов (2006-09-30 22:13:00) [2]
Описание в справке API (которая вместе с Delphi), или в MSDN. Там все просто - надо вернуть в Result набор флагов, которые указывают системе, какие клавиши контрол хочет обрабатывать сам. Если этого не сделать, то сообщения о нажатии некоторых клавиш система просто ему не пришлет, поэтому он о них и не узнает.

ProgRAMmer Dimonych (2006-09-30 21:15:00) [3]
Прошу прощения. Насчёт WM_GETDLGCODE... Где-то я это уже когда-то видел, но, помнится, так и не разобрался. Как с ним правильно справляться, не подскажете?

Phoroon~ (2006-09-30 20:58:00) [4]
Вот, примерно вот так, тебе нужно сделать.

type
TForm1 = class(TForm)
Label1: TLabel;
procedure wmkey(var msg: TWMKey); message wm_keydown;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.wmkey(var msg: TWMKey);
begin
Label1.caption:=IntToStr(msg.CharCode);
end;

Юрий Зотов (2006-09-30 20:56:00) [5]
1. Перекрыть обработку WM_GETDLGCODE.
2. Перекрыть KeyDown.

ProgRAMmer Dimonych (2006-09-29 22:19:00) [6]
Родитель - TCustomControl.
Всё необходимое для отлова клавы есть:

TMyMemo=class(TCustomControl)
. . . . . . . . . . . . . . . . . . . . . . .
published
property TabOrder;
property TabStop default True;
end;

constructor TMyMemo.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
. . . . . . . . . . . . . . . . . .
TabStop:=True;
end;

Проблема исключительно в том, есть ли такое сообщение, которое система отправляет для всех вышеперечисленных клавиш...

Phoroon~ (2006-09-29 20:54:00) [7]
Кто родилель?
Код в студию!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »