Можно ли как нибудь перестроить клавиши впроге.

Например, нажатие Enter равносильно нажатию TAB

В какой проге? Общее решение - перехватить клавишу и делать с ней все, что хочешь :)

Перехватить нажатие клавиши - это просто

А вот как эмулировать нажатие клавиши TAB - вот это вопрос

The keybd_event function synthesizes a keystroke. The system can use such a synthesized keystroke to generate a WM_KEYUP or WM_KEYDOWN message. The keyboard driver's interrupt handler calls the keybd_event function.

Если нужно подробнее - могу пример на Делфи запостить.

Скинь мне, плиз!!!

buylov_va@kalmsu.ru

Я в качестве справочника использую "Советы по Делфи" от Валентина Озерова. А он сжатый весит 3,5 метра. Такие объемы мылом.... Поиском в инете находится на раз:

Советы по Delphi от Валентина Озерова (2000 советов): Оглавление (39.6K) + 1..1000 (1.93M) + 1000..2000 (1.56M)
Смотрелка HTML Help без IE (416K)

Модераторы не обидятся, если я сюда пример запостю?

Подскажите пожалуйста как сделать имитацию ввода с клавиатуры для программы выполняющейся в дос-окне

[s]Исправлено: CyberDaemon, 17:00 2-06-2003[/s]

TForm.KeyPreview:=True

Procedure TForm1.Form1KeyDown(...);
Begin
IF Key=VK_RETURN then SelectNext(ActiveControl,True,True);
End;

Для Delphi:

Код:

---


unit Unit1;
 
interface
 
uses
 *Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 *Dialogs, StdCtrls;
 
type
 *TForm1 = class(TForm)
 * *Edit1: TEdit;
 * *Edit2: TEdit;
 * *Button1: TButton;
 * *Button2: TButton;
 * *Label1: TLabel;
 * *procedure Button1Click(Sender: TObject);
 *private
 * *{ Private declarations }
 *protected
 *procedure Enter_Tab(var Msg:TMessage);message CM_DIALOGKEY;
 *public
 * *{ Public declarations }
 *end;
 
var
 *Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.Enter_Tab(var Msg: TMessage);
begin
 
if msg.WParam=13 then
begin
Perform(CM_DIALOGKEY,9,0);
msg.Result:=1;//отключаем обработку нажатия Enter
end
else
inherited;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Enter=Tab');
end;
 
end.

---

************************************************
Для C++ (CBuilder6):
Заголовочный файл
//---------------------------------------------------------------------------

Код:

---


#ifndef UnMainH
#define UnMainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:// IDE-managed Components
 * * * *TButton *Button1;
 * * * *TEdit *Edit1;
 * * * *TEdit *Edit2;
 * * * *TButton *Button2;
 * * * *TButton *Button3;
private:// User declarations
protected:
void __fastcall KeyCatch(TMessage &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(CM_DIALOGKEY,TMessage,KeyCatch)
END_MESSAGE_MAP(TForm)
public:
// User declarations
 * * * *__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

---

Файл реализации
//---------------------------------------------------------------------------

Код:

---


#include <vcl.h>
#pragma hdrstop
 
#include "UnMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
 * * * *: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::KeyCatch(TMessage &Msg)
{ *
 * if( Msg.WParam==13){
 * Perform(CM_DIALOGKEY,9,0);
 * *Msg.Result=1;//отключаем обработку нажатия Enter *
 * } else * TForm::Dispatch(&Msg);
}
 
 
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShowMessage("Enter=Tab");
}

---

//---------------------------------------------------------------------------
:type:

[s]Исправлено: Vla2003, 20:31 7-06-2003[/s]


[s]Исправлено: Vla2003, 12:27 9-06-2003[/s]