[Scraer-82]

Скажите пожалуйста, можно как-нибудь реализовать, чтобы если зажаты клавиши контрол и альт (или шифт, без разницы) при нажатии на кнопку выполнялась бы какая-либо операция... пусть хоть showmessage...?

[Nyctos Kasignete]

По событию OnMouseUp на кнопке проверяйте содержимое параметра Shift.

Код:

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssCtrl in Shift) and (ssAlt in Shift) then
    ShowMessage('AAAAAAAAA!!!!'); 
end;

[Scraer-82]

Спасибо огромное!!!