This can be very useful for entering a value in an edit control for a foreign, symbol, or wingding character. The following example shows how to stuff the keyboard with the #255 character and direct it to any Window control. Note: This method should not be used to enter characters that could normally be processed by the keybd_event() function.

procedure TForm .Button Click(Sender: TObject); var KeyData : packed record RepeatCount : word; ScanCode : byte; Bits : byte; end; begin {Let the button repaint} Application.ProcessMessages; {Set the focus to the window} Edit .SetFocus; {Send a right so the char is added to the end of the line} SimulateKeyStroke(VK_RIGHT, 0); {Let the app get the message} Application.ProcessMessages; FillChar(KeyData, sizeof(KeyData), #0); KeyData.ScanCode := 255; KeyData.RepeatCount := ; SendMessage(Edit .Handle, WM_KEYDOWN, 255, LongInt(KeyData)); KeyData.Bits := KeyData.Bits or ( shl 30); KeyData.Bits := KeyData.Bits or ( shl 3 ); SendMessage(Edit .Handle, WM_KEYUP, 255, LongInt(KeyData)); KeyData.Bits := KeyData.Bits and not ( shl 30); KeyData.Bits := KeyData.Bits and not ( shl 3 ); SendMessage(Edit .Handle, WM_CHAR, 255, LongInt(KeyData)); Application.ProcessMessages; end;

7/ 6/98 4:3 :28 PM