Key-Code mit Sender Tag ?

[Privateer3000]

Hiho Gemeinde,

ist es möglich wenn der virtualkey eine procedure aufgerufen wird,
dieser einen Tag(sender) mitzuschicken?

Delphi-Quellcode:

if (Key in ['+']) then begin
  p1_1Click(Sender);
end;

in der procedure p1_1Click wird dann dieser Tag ausgewertet.
Denn dies wird mit realen Keys gemacht, warum auch nicht mit
den Simulationen?

Eisige Grüße

[himitsu]

Auch nach mehrmaligem durchlesen versteht ich bei bestem Willen einfach nicht, was genau du nun möchtest.

Könntest du dein Anliegen bitte nochmal etwas genauer formalieren?


[edit]
eventuell meinst du ja sowas?

(Sender as TComponent).Tag

[Privateer3000]

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
:-)

[guinnes]

Zitat:

Zitat von Privateer3000

wie sage ich der p1_1 procedure welche SenderTag gesendet wird?

Warum fragst du das nicht gleich in der PL_1-Procedure ab, da hast du ja den Sender ?

[Privateer3000]

Zitat:

Zitat von himitsu

eventuell meinst du ja sowas?

(Sender as TComponent).Tag

genau das wars! Ich Trollo, das habe ich doch schonmal eingesetzt :twisted:

Danke himitsu du hast mir den Tag gerettet ;-)