[Norw]

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

[san-46]

Код:

//в начале процедуры
if GetAsyncKeyState(VK_SHIFT) = 0 then Exit;

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

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

[Norw]

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

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

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

[san-46]

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

[Norw]

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

Код:

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;

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

Код:

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

 end;

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