Invalid message parameter list

[Viburn]

При покидании курсора некоторого прямоугольника должен изменяться параметр его рамки.

procedure CMMouseLeave(var msg: TMessage; Sender: TObject); message CM_MOUSELEAVE;
...
procedure TForm1.CMMouseLeave(var msg: TMessage; Sender: TObject);
begin
inherited;
(Sender as TShape).Pen.Width:=1;
(Sender as TShape).Pen.Color:=clRed;
end;

при компиляции еррор Invalid message parameter list.

[ReportCube]

А Вы посмотрите в исходниках правильное количество параметров в методе обработчика CM_MOUSELEAVE - там нет Sender: TObject и никогда не было.

[Viburn]

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

А Вы посмотрите в исходниках правильное количество параметров в методе обработчика CM_MOUSELEAVE - там нет Sender: TObject и никогда не было.

Хорошо. Но неужели мне придётся писать к каждому из 25 шейпов процедуру покидания курсора отдельно?

[ReportCube]

У каждого из компонентов TShape есть событие OnMouseLeave, для которого назначаете один общий обработчик. Вот там имеется Sender: TObject, к которому и следует обращаться

[Viburn]

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

У каждого из компонентов TShape есть событие OnMouseLeave, для которого назначаете один общий обработчик. Вот там имеется Sender: TObject, к которому и следует обращаться

У меня D7 и там нету

[Stilet]

procedure CMMouseLeave(var msg: TMessage; Sender: TObject); message CM_MOUSELEAVE;

Убери второй параметр. В обработчиках такого типа должен быть только один параметр: http://www.programmersforum.ru/showthread.php?t=92777

[northener]

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

Хорошо. Но неужели мне придётся писать к каждому из 25 шейпов процедуру покидания курсора отдельно?

Проще перейти на более старшую версию Дельфи.

P.S. Хотя вопрос обработки сообщений CM_MOUSEENTER/CM_MMOUSELEAVE в Д7 до сих пор открыт. Вроде и есть средне-неплохое решение, только проверять его некому.

[ZuBy]

как это обычно и делается, дописать самому в аналогично-измененный компонент, допустим TShapeEx

  protected
    procedure MouseExit(var Msg: TMessage); message CM_MOUSELEAVE;
    procedure MouseEnter(var Msg: TMessage); message CM_MOUSEENTER;

...

property OnExit: TNotifyEvent read FOnExit write FOnExit;
    property OnEnter: TNotifyEvent read FOnEnter write FOnEnter;

...

procedure TPaintEx.MouseEnter(var Msg: TMessage);
begin
  inherited;
  if Assigned(FOnEnter) then FOnEnter(Self);
end;

procedure TPaintEx.MouseExit(var Msg: TMessage);
begin
  inherited;
  if Assigned(FOnExit) then FOnExit(Self);
end;

[ReportCube]

Тогда уж проще использовать "шаманский метод Geo", сам постоянно пользуюсь

[Аватар]

Для Image на днях этот пресловутый geo показывал, для shape можно аналогично
http://www.programmersforum.ru/showp...3&postcount=23