[Norw]

Необходимо, чтоб процедура выполнялась только при нажатой клавише Shift. Как это реализовать?

[san-46]

Код:

1 2 3 4 5 6 7

//в начале процедуры if GetAsyncKeyState(VK_SHIFT) = 0 then Exit;   //или обратное условие if GetAsyncKeyState(VK_SHIFT) = -32767 then begin   ... //операторы, выполняющиеся при нажатой кл. Shift end;

Можно так же посмотреть в сторону функции GetKeyState

[Norw]

Пасибо. только теперь возникает следующая проблема... у меня по нажатию мыши должны выполняться несколько однотипных процедур, а выполняеться только первая из них. как сделать чтоб они выполнялись все?

[Страдалецъ]

Код обработчика нажатия мыши выложите.

[san-46]

Чтобы какая-либо процедура выполнилась, необходимо ее вызвать.

[Norw]

вот процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure nazg(Sender: TObject);  var   APanel : TPanel; begin    if GetAsyncKeyState(VK_SHIFT) = -32767 then   If Sender Is TPanel Then     Begin       APanel := Sender As TPanel;      if APanel.Color=clBtnFace  then APanel.Color := clYellow else APanel.Color :=clBtnFace;    if APanel.Bevelouter =bvRaised then APanel.Bevelouter:=bvLowered else APanel.Bevelouter:=bvRaised;       End; end;

вот обработчик клика по кнопке:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm3.Panel1Click(Sender: TObject); begin  nazg(Panel1);  nazg(Panel93);  nazg(Panel95);  nazg(Panel99);  nazg(Panel98);  nazg(Panel92);  nazg(Panel77);    end;

по идее нажатие кнопки должно включать еще ряд других.... кнопки на основе компонента TPanel.

[Страдалецъ]

А если так?:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure nazg(Sender: TObject);  var   APanel : TPanel; begin   If Sender Is TPanel   Then Begin          APanel := Sender As TPanel;          if APanel.Color=clBtnFace           then APanel.Color := clYellow else APanel.Color :=clBtnFace;          if APanel.Bevelouter =bvRaised          then APanel.Bevelouter:=bvLowered          else APanel.Bevelouter:=bvRaised;          End; end;   procedure TForm3.Panel1Click(Sender: TObject); begin  if GetAsyncKeyState(VK_SHIFT) = -32767  then begin         nazg(Panel1);         nazg(Panel93);         nazg(Panel95);         nazg(Panel99);         nazg(Panel98);         nazg(Panel92);         nazg(Panel77);         end;  end;

[Norw]

там порядка 100 кнопок-панелей, и под них процедуры обработки уже написаны, так что придеться код для каждой кнопки добавлять... проще через процедуру, но все равно спасибо за вариант

[Rat]

там порядка 100 кнопок-панелей

Учитесь пользоваться Find-Replace.

[Norw]

в будущем, с превиликим удовольствием.... но пока чо я хотел бы решить описанную в теме задачу...