OnKeyDown und shift = ssShift geht nicht

**roboter202**

hi,

ich hab das:

Delphi-Quellcode:

			procedure TForm1.ChatBoxKeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if (Key = VK_RETURN) and (Shift = ssShift) then

  begin [...]

aber der Gerät sagt bei (Shift = ssShift inkompatible Typen dabei hab ich sogar in die Delphi Hilfe geschaut.

Was mach ich falsch?

Gruß roboter202

**Uwe Raabe**

Entweder (Shift = [ssShift]) oder (ssShift in Shift) je nachdem, was du erreichen willst.

**DeddyH**

if (Key = VK_RETURN) and (ssShift in Shift) then oder
if (Key = VK_RETURN) and (Shift = [ssShift]) then TShiftState ist eine Menge

[edit] *Gnarf* wo war der rote Kasten? [/edit]

**roboter202**

achso stimmt es könnten ja mehrer Werte drin sein danke!

OnKeyDown und shift = ssShift geht nicht

OnKeyDown und shift = ssShift geht nicht

AW: OnKeyDown und shift = ssShift geht nicht

AW: OnKeyDown und shift = ssShift geht nicht

AW: OnKeyDown und shift = ssShift geht nicht

Forumregeln

Uwe Raabe Registriert seit: 20. Jan 2006 Ort: Lübbecke 11.453 Beiträge Delphi 12 Athens	#2 AW: OnKeyDown und shift = ssShift geht nicht 25. Apr 2012, 19:50 Entweder (Shift = [ssShift]) oder (ssShift in Shift) je nachdem, was du erreichen willst. Uwe Raabe Certified Delphi Master Developer Embarcadero MVP Blog: The Art of Delphi Programming
	Zitat

roboter202 Registriert seit: 6. Mär 2011 98 Beiträge Delphi 6 Professional	#4 AW: OnKeyDown und shift = ssShift geht nicht 25. Apr 2012, 19:51 achso stimmt es könnten ja mehrer Werte drin sein danke! Christian i := 0 ; While i = 0 do beep ;
	Zitat