Определить, зажат ли Shift при нажатии кнопки TButton

@LexVaha · Регистрация: 02.12.2016

Author24 — интернет-сервис помощи студентам

Добрый день всем.
Как в ButtonClick проверить нажата ли клавиша, а то у меня он ругается на Key, говорит что Error: Identifier not found "Key"

Delphi

procedure TForm1.Button3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Key = #10 then
  begin
    if(Form1.color=clGreen)then
    begin
         Form1.color:=clYellow;
    end
    else
    if(Form1.color=clYellow)then
    begin
         Form1.color:=clRed;
    end
    else
    if(Form1.color=clRed)then
    begin
         Form1.color:=clBlue;
    end
    else
    if(Form1.color=clBlue)then
    begin
         Form1.color:=clBlack;
    end
    else
    begin
         Form1.color:=clGreen;
    end;
  end;
end;

Заранее спасибо за помощь.

@volvo · 17.10.2018, 09:53

Можно как-то поконкретнее задание писать?

@Puporev · 17.10.2018, 09:54

И Вам добрый день. Что хотели? Может опишете проблему в теме, а не в ее названии и более подробно.

@LexVaha · 17.10.2018, 10:01 **[ТС]**

по нажатию кнопки на форме выполняется смена цвета формы по кругу ,при зажатой клавиши по нажатию
на кнопку цвет меняется в другую сторону

@volvo · 17.10.2018, 10:02

Сообщение от LexVaha

при зажатой клавиши по нажатию
на кнопку цвет меняется в другую сторону

При какой именно зажатой клавише? Enter?

@LexVaha · 17.10.2018, 10:03 **[ТС]**

Клавиша Shift

Сообщение от volvo

При какой именно зажатой клавише? Enter?

@volvo · 17.10.2018, 10:10

В OnClick просто проверяй, нажат ли Shift:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ssShift in GetKeyShiftState then ShowMessage('Shift нажат')
  else ShowMessage('Shift не нажат');
end;

@LexVaha · 17.10.2018, 10:13 **[ТС]**

Спасибо,все заработало

@volvo · 17.10.2018, 10:39

А вообще твоя задача вместо того ужасного сборища if-ов решается вот так:

Pascal

const
  ColorSize = 5;
  FrmColors : array[0 .. ColorSize - 1] of TColor =
    (clGreen, clYellow, clRed, clBlue, clBlack);
var
  CurrColor : Integer = 0;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  if ssShift in GetKeyShiftState then
    CurrColor := (CurrColor + ColorSize - 1) mod ColorSize
  else CurrColor := (CurrColor + 1) mod ColorSize;
 
  Self.Color := FrmColors[CurrColor];
end;

При необходимости добавить нужное количество цветов - изменяешь ColorSize, и сам массив FrmColors, больше ничего трогать не нужно.

А теперь представь, что нужно сделать в твоем варианте, чтобы добавить, скажем, 4 цвета, да еще и не подряд, а в произвольные места, скажем, чтобы было так:
clGreen -> clLtGray -> clYellow -> clRed -> clLime -> clBlue -> clBlack -> clOlive -> clFuchsia...

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	17.10.2018, 09:53	2
	Можно как-то поконкретнее задание писать? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.10.2018, 09:54	3
	И Вам добрый день. Что хотели? Может опишете проблему в теме, а не в ее названии и более подробно. 0

@LexVaha 1 / 1 / 0 Регистрация: 02.12.2016 Сообщений: 31
	17.10.2018, 10:01 [ТС]	4
	по нажатию кнопки на форме выполняется смена цвета формы по кругу ,при зажатой клавиши по нажатию на кнопку цвет меняется в другую сторону 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	17.10.2018, 10:02	5
	Сообщение от LexVaha при зажатой клавиши по нажатию на кнопку цвет меняется в другую сторону При какой именно зажатой клавише? Enter? 0

@LexVaha 1 / 1 / 0 Регистрация: 02.12.2016 Сообщений: 31
	17.10.2018, 10:03 [ТС]	6
	Клавиша Shift Сообщение от volvo При какой именно зажатой клавише? Enter? 0

@LexVaha 1 / 1 / 0 Регистрация: 02.12.2016 Сообщений: 31
	17.10.2018, 10:13 [ТС]	8
	Спасибо,все заработало 0

	17.10.2018, 10:39

Определить, зажат ли Shift при нажатии кнопки TButton

Решение