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

← →
ProgRAMmer Dimonych (2006-09-29 19:01) [0]

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

← →
Phoroon~ © (2006-09-29 20:54) [1]

Кто родилель?
Код в студию!

← →
ProgRAMmer Dimonych (2006-09-29 22:19) [2]

Родитель - TCustomControl.
Всё необходимое для отлова клавы есть:

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

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

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

← →
Юрий Зотов © (2006-09-30 20:56) [3]

1. Перекрыть обработку WM_GETDLGCODE.
2. Перекрыть KeyDown.

← →
Phoroon~ © (2006-09-30 20:58) [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;

← →
ProgRAMmer Dimonych (2006-09-30 21:15) [5]

Прошу прощения. Насчёт WM_GETDLGCODE... Где-то я это уже когда-то видел, но, помнится, так и не разобрался. Как с ним правильно справляться, не подскажете?

Описание в справке API (которая вместе с Delphi), или в MSDN. Там все просто - надо вернуть в Result набор флагов, которые указывают системе, какие клавиши контрол хочет обрабатывать сам. Если этого не сделать, то сообщения о нажатии некоторых клавиш система просто ему не пришлет, поэтому он о них и не узнает.

← →
ProgRAMmer Dimonych (2006-09-30 23:11) [7]

DLGC_WANTALLKEYS в моём случае ([0]) подойдёт, или лучше (DLGC_WANTCHARS or DLGC_WANTTABS)? Или для сообщения нужно DLGC_WANTMESSAGE?

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

Отлов клавы в одной процедуре Найти похожие ветки