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

Delphi-Quellcode:

(Shift = ssShift

inkompatible Typen dabei hab ich sogar in die Delphi Hilfe geschaut.


Was mach ich falsch?

Gruß roboter202

[Uwe Raabe]

Entweder

Delphi-Quellcode:

(Shift = [ssShift])

oder

Delphi-Quellcode:

(ssShift in Shift)

je nachdem, was du erreichen willst.

[DeddyH]

Delphi-Quellcode:

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

oder

Delphi-Quellcode:

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!