Nach mehrmaligen durchlesen meines Posts, verstehe ich auch nix ...
Nochmal von vorn:
Im Keypress-Ereignis eines Inputfeldes werden verschiedene
Tasten ausgewertet. Das funktioniert mit Komponenten (zB Buttons)
wunderbar. Nun wollte ich das aus Keyboard ausweiten.
ZB
Button A (Tag=0) = Tastendruck auf +
Button B (Tag=1) = Tastendruck auf -
in der procedure p1_1 werden die EIngaben ausgewertet.
klappt alles wunderbar.
Nun das ganze mit Keyboardtasten
Taste + (Tag=0) ?
Keypress-Source:
Delphi-Quellcode:
procedure TKasse.minputKeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9', Char(VK_BACK),'+','-','#',',']) then
Key := #0;
if (Key in ['+']) then begin
p1_1Click(Sender);
//minput.Text:='';
end;
end;
wie sage ich der p1_1 procedure welche SenderTag gesendet wird?
Hoffe, dass das ganze bissl deutlicher was
