Na immerhin es soll also grundsätzlich funktionieren.
Jetzt stellt sich nur noch die Frage wie ?
Nehmen wir als Beispiel die OnKeyPress Routine von Form1.
Die soll in Unit2, dort habe ich aber keine Form mit angelegt, ich hoffe das stellt kein Problem dar.
In dieser Routine habe ich aber auch den Befehl Perform(WM_NextDlgCtl, 0, 0); verwendet, den erkennt er in Unit2 nicht.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
|
procedure TForm1.EdBarcodeKeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(vk_Return) then
begin
Key := #0;
Perform(WM_NextDlgCtl, 0, 0);
end;
end;
procedure TForm1.EdMandantKeyPress(Sender: TObject; var Key: Char);
begin
if key = chr(vk_Return) then
begin
Key := #0;
Perform(WM_NextDlgCtl, 0, 0);
end;
end;
|
Oder fällt jemand noch eine bessere Möglichkeit ein um z.B. die Keypress Ereignisse zu zentralisieren und zu optimieren.
Moderiert von 
Christian S.: Code- durch Delphi-Tags ersetzt
