Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Prameter beim Aufruf von Procedure stimmen nicht (https://www.delphipraxis.net/17690-prameter-beim-aufruf-von-procedure-stimmen-nicht.html)

daywalker-dj-k 8. Mär 2004 14:47


Prameter beim Aufruf von Procedure stimmen nicht
 
hallo,
ich möchte diese funktion aufrufen, wobei lediglich wichtig ist, dass die gedrückte taste f10 ist:

Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
ich hab es so probiert:

Delphi-Quellcode:
FormKeyDown(Form1, vk_f10, ssShift);
klappt aber nicht. Mit Edit1 anstatt Form1 geht es auch nicht.

danke schonmal
gruß
tkliewe

M-O-D 8. Mär 2004 14:59

Re: Prameter beim Aufruf von Procedure stimmen nicht
 
Hi,

Du willst die Funktion aufrufen ohne die Taste zu drücken?

:hi:

sakura 8. Mär 2004 15:02

Re: Prameter beim Aufruf von Procedure stimmen nicht
 
Wenn Du einen Hier im Forum suchenTastendruck simulieren möchtest, dann solltest Du mal danach suchen, Dein Ansatz funktioniert nicht.

...:cat:...

himitsu 8. Mär 2004 15:14

Re: Prameter beim Aufruf von Procedure stimmen nicht
 
Wenn du es unbedingt so machen willst, dann soltest du auch auf die Parameter achten
Code:
procedure TForm1.FormKeyDown(Sender: TObject; [color=blue]var[/color] Key: [color=darkblue]Word[/color]; Shift: [color=red]TShiftState[/color]);


Var [color=blue]T[/color]: [color=darkblue]Word[/color];

[color=blue]T := vk_f10[/color];
FormKeyDown(Form1, [color=blue]T[/color], [color=red][[/color]ssShift[color=red]][/color]);
Wenn eine Variable verlangt wird, dann kan man keine Konstante angeben.
Und wie TShiftState definiert ist ... na ja, sieht man ja jetzt :roll:


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:51 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz