J
jinyfboss
Unregistered / Unconfirmed
GUEST, unregistred user!
var
I: Integer;
begin
if (hW=0) or (sText='') then
Exit;
for I := 1 to Length(sText) do
PostMessage(hW,WM_CHAR{,WM_CHAR},Ord(sText),0);
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
SendChars((Sender as TWinControl).Handle,'简');
end;
I: Integer;
begin
if (hW=0) or (sText='') then
Exit;
for I := 1 to Length(sText) do
PostMessage(hW,WM_CHAR{,WM_CHAR},Ord(sText),0);
end;
procedure TForm1.ComboBox1KeyDown(Sender: TObject
var Key: Word;
Shift: TShiftState);
begin
if Key = VK_F1 then
SendChars((Sender as TWinControl).Handle,'简');
end;