Delphi ключа переназначить групповые символы

Question

Я хочу, чтобы, когда я нажимаю M или m характер, 000000 получает входной сигнал на определенную TEdit коробки:

procedure Tfrm.FormKeyPress(Sender: TObject; var Key: Char) ; 
var 
    i : integer; 
begin 
    if Key in ['m'] + ['M'] then Key := '0'; 
end; 

С помощью этого кода, я могу просто переназначить клавишу «M» для одиночный знак. Как я могу переназначить «M» на несколько символов для поля TEdit?

Answer 1

Используйте OnKeyPress события TEdit самих, а не OnKeyPress события родителя TForm. Установите параметр # 0 Key проглотить его, а затем вставить 6 отдельных '0' символов в TEdit:

procedure Tfrm.Edit1KeyPress(Sender: TObject; var Key: Char); 
var 
    i : integer; 
begin 
    if Key in ['m', 'M'] then 
    begin 
    Key := #0; 
    for I := 1 to 6 do 
     Edit1.Perform(WM_CHAR, Ord('0'), $80000001); 
    end; 
end; 

В качестве альтернативы:

procedure Tfrm.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
    if Key in ['m', 'M'] then 
    begin 
    Key := #0; 
    Edit1.SelText := '000000'; 
    end; 
end; 

Answer 2

вы не можете "переназначить" действительно

но вы можете убить, что конкретный символ (настройка его # 0) и ввести необходимые нули с использованием стандартного API Windows Messaging (SendMessage, а не PostMessage)

• https://msdn.microsoft.com/en-us/library/windows/desktop/ms646276.aspx
• http://docwiki.embarcadero.com/CodeExamples/Seattle/en/TControlPerform_(Delphi)
• http://docwiki.embarcadero.com/Libraries/Seattle/en/Vcl.Controls.TControl.Perform

Что-то вдоль этих линий:

procedure Tfrm.FormKeyPress(Sender: TObject; var Key: Char); 
var i : integer; 
begin 
    if ActiveControl = Edit1 then 
     if Key in ['m'] + ['M'] then begin 
     Key := #0; // zero-out the real key so it would not be handled by the editbox 
     for i := 1 to 6 do 
      ActiveControl.Perform(WM_CHAR, Ord('0'), $80000001); 
      // or you may reference the specific editbox directly 
      // like Edit1.Perform(....); 
     end; 
end; 

Это также потребует установки формы перехватить ключи его управления.

http://docwiki.embarcadero.com/Libraries/XE2/en/Vcl.Forms.TCustomForm.KeyPreview

Это имеет смысл, если вы хотите, чтобы захватить несколько editboxes сразу. Если нет, то лучше вы сами события самого редактора, а не формы.

procedure Tfrm.Edit1KeyPress(Sender: TObject; var Key: Char); 
var i : integer; 
begin 
    if Key in ['m'] + ['M'] then begin 
     Key := ^@; // zero-out the real key so it would not be handled by the editbox 
     for i := 1 to 6 do 
      Edit1.Perform(WM_CHAR, Ord('0'), $80000001); 
      // or you may reference the specific editbox directly 
      // like Edit1.Perform(....); 
    end; 
end; 

Answer 3

Если вы хотите, чтобы оборудовать все TEdits с этим поведением, то установить все другие TEdits KeyPress события Edit1KeyPress

procedure Tfrm.Edit1KeyPress(Sender: TObject; var Key: Char); 
var 
xEdit: TEdit; 
begin 
if Key in ['m','M'] then begin 
     Key := #0; 
     xEdit := Sender as TEdit; 
     xEdit.Text := xEdit.Text +'000000'; 
    end; 
end; 

или короткая версия

procedure Tfrm.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
if Key in ['m','M'] then begin 
    Key := #0; 
    TEdit(Sender).Text := TEdit(Sender).Text+'000000'; 
end; 
end;