Hallo,
mit folgendem Code kann ich die KeyDown-Eventfunktion in einer Form(1) aufrufen und z.B. ein ENTER in der ComboBox simulieren.
Form1:
...
__published:
void __fastcall ComboBoxMaKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
...
void __fastcall TForm1::Button1Click(TObject * Sender)
{
unsigned short ENTER = 13;
TShiftState shift;
ComboBoxMaKeyDown(this, ENTER, shift);
}
Wenn ich von Form1 einen Event in einer 2ten TForm (Form2) auslösen möchte:
Form2:
...
__published:
void __fastcall Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
...
Form1:
void __fastcall TForm1::Button1Click(TObject * Sender)
{
unsigned short ENTER = 13;
TShiftState shift;
Form2->Edit1KeyDown(this, ENTER, shift);
}
passiert nichts. Übersetzten lässt sich das, aber nichts geht!
Wie geht das?
mit folgendem Code kann ich die KeyDown-Eventfunktion in einer Form(1) aufrufen und z.B. ein ENTER in der ComboBox simulieren.
Form1:
...
__published:
void __fastcall ComboBoxMaKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
...
void __fastcall TForm1::Button1Click(TObject * Sender)
{
unsigned short ENTER = 13;
TShiftState shift;
ComboBoxMaKeyDown(this, ENTER, shift);
}
Wenn ich von Form1 einen Event in einer 2ten TForm (Form2) auslösen möchte:
Form2:
...
__published:
void __fastcall Edit1KeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
...
Form1:
void __fastcall TForm1::Button1Click(TObject * Sender)
{
unsigned short ENTER = 13;
TShiftState shift;
Form2->Edit1KeyDown(this, ENTER, shift);
}
passiert nichts. Übersetzten lässt sich das, aber nichts geht!
Wie geht das?
Comment