Type
TMyImage = class(TImage)
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
end;
procedure TMyImage.CMMouseLeave(var msg: TMessage);
begin
inherited;
{ действия на покидание мышью области компонента }
end;
type
T = procedure;
TMyImage = class(TImage)
procedure CMMouseLeave(var msg: TMessage); message CM_MOUSELEAVE;
private
p: T;
end;
// ...
procedure p_1;
begin
ShowMessage('first:: out');
end;
procedure p_2;
begin
ShowMessage('second:: out');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Image1.p := p_1;
Image2.p := p_2;
end;