ارسال Event

[مهدی فهمیده غلامی]

چطور می شه برای یه کنترل مثلا image رویداد های onmousemoveوonmouseleave را تولید کرد
من با این event ها میخوام دکمه ای ایجاد کنم که با ورود م.س روش یه تصویر و با خروج موس تصویر دیگری نمایش یابد

[hr110]

سلام
ممکن است این مشکلت رو حل کنه :

<span dir=ltr>unit HighlightImage;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
THighlightImage = class(TImage)
private
FOnMouseEnter: TNotifyEvent;
FOnMouseLeave: TNotifyEvent;
public
procedure MouseEnter(var msg : TMessage); message CM_MOUSEENTER;
procedure MouseLeave(var msg : TMessage); message CM_MOUSELEAVE;
published
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

{ THighlightImage }

procedure THighlightImage.MouseEnter(var msg: TMessage);
begin
if Assigned(FOnMouseEnter) then FOnMouseEnter(self);
end;

procedure THighlightImage.MouseLeave(var msg: TMessage);
begin
if Assigned(FOnMouseLeave) then FOnMouseLeave(self);
end;

procedure Register;
begin
RegisterComponents('Samples', [THighlightImage]);
end;

end.</span>