abfragen, ob taste gedrückt ist

[dopeline]

Hallo!

Ich will abfragen, ob Überschreiben (Taste: Einfg) aktiviert ist. wenn ja, soll das in einem panel ausgegeben werden und wenn nicht, dann nicht...

hab mir gedacht ich mache es so:if (key = vk_Insert) then Statusbar1.Panels[1].text := 'Einfg'; das funktioniert aber nicht. außerdem fehlt noch die abfrage, insert ein- oder ausgeschaltet ist. wie stelle ich das an?

Grüße, dopeline

[Jens Schumann]

Hallo,
hast Du die Formular-Property KeyPreview auf True gesetzt ?

[CalganX]

Bessere Idee:
Form1.Keypreview auf true
Globale Variable: AbIns: boolean;
Im OnKeydown des Forms:

Delphi-Quellcode:

if (key = vk_Insert) then not AbsIns;
if AbsIns then StatusBar1.Panels[1].Text := 'Einfg'
else {...}

[Jens Schumann]

Hallo,
seit wann fallen globale Variablen in die Kategorie "Bessere Idee" ?

[CalganX]

In diesem Fall die einzige Möglichkeit...
Allerdings sollte man sich wohl doch das "Bessere Idee" weg denken. Eigentlich war es die Anleitung, wie er das machen soll.

Chris

[Jens Schumann]

Hallo,
globale Variablen sind nie die einzige Lösung.
Eigentlch sind globale Variablen immer die schlechteste Lösung.
D.h. wenn man glaubt globale Vaiablen verwenden zu müssen, weiss sofort, dass das Programmdesign schwächen hat.

[Duffy]

Hallo dopeline,
als erstes solltest Du dir den Keyboard Status mit GetKeyboardState besorgen

Zitat:

The GetKeyboardState function copies the status of the 256 virtual keys to the specified buffer.

BOOL GetKeyboardState(

PBYTE lpKeyState // address of array to receive status data
);


Parameters

lpKeyState

Points to the 256-byte array that will receive the status data for each virtual key.



Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

An application can call this function to retrieve the current status of all the virtual keys. The status changes as a thread removes keyboard messages from its message queue. The status does not change as keyboard messages are posted to the message queue.
When the function returns, each member of the array pointed to by the lpKeyState parameter contains status data for a virtual key. If the high-order bit is 1, the key is down; otherwise, it is up. If the low-order bit is 1, the key is toggled. A key, such as the CAPS LOCK key, is toggled if it is turned on. The key is off and untoggled if the low-order bit is 0. A toggle key's indicator light (if any) on the keyboard will be on when the key is toggled, and off when the key is untoggled.

To retrieve status information for an individual key, use the GetKeyState function.
An application can use the virtual-key code constants VK_SHIFT, VK_CONTROL and VK_MENU as indices into the array pointed to by lpKeyState. This gives the status of the SHIFT, CTRL, or ALT keys without distinguishing between left and right. An application can also use the following virtual-key code constants as indices to distinguish between the left and right instances of those keys:

VK_LSHIFT VK_RSHIFT
VK_LCONTROL VK_RCONTROL
VK_LMENU VK_RMENU


These left- and right-distinguishing constants are available to an application only through the GetKeyboardState, SetKeyboardState, GetAsyncKeyState, GetKeyState, and MapVirtualKey functions.

Dann kannst Du anzeigen was Du willst.

[Hansa]

Jens hat da vollkommen Recht. Wer benutzt globale Variablen, außer in Ausnahmefällen? Je weniger, um so besser. In Basic gings nicht anders.

[Nonsense]

Das interessiert mich jetzt aber: Was spricht eigentlich gegen globale Variablen!?

[CalganX]

Und mich würde es mal interessieren, wie man mit GetKeyboardState herausfinden soll, ob "Überschreiben" ein- oder ausgeschaltet ist...

Chris