Delphi

Вопрос

Какое событие надо описать, чтобы при наведении на какую-нибудь кнопку на ней менялся рисунок? Или лучше сделать это для Image?

Ответ

В Delphi5 — OnMouseMove // Меняет надпись на кнопке при наведении мышиного курсора на кнопку
procedure Tf_inp.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
TBitbtn(sender).caption:='***';
end;

******

Лучше унаследоваться и определить процедуры, реагирующие на сообщения CM_MOUSEENTER и CM_MOUSELEAVE,
Например:
procedure CMMouseEnter(var Message: TMessage);
message CM_MOUSEENTER;
подробности — см. в исходниках VCL

shurik