36 פיט - יפלד
ישאר דומע | םיפיטה דומע רנק ודיע תאמ

?היצקילפאה ךותב Windows לש תועדוהב םישמתשמ ךיא
.
.
.
Tform1 = class (Tform)
         // All the components on your form
         Button1. : Tbutton;
         .
         .
         .
         Private
         procedure CMMouseEnter(var Message : Tmessage); 
                   message CM_MOUSEENTER;
         procedure CMMouseLeave(var Message : TMessage); 
                   message CM_MOUSELEAVE;
         procedure WMActive(var Message : TWMActivate); 
                   message WM_ACTIVE;
         .
         .
         .
         end;
.
.
.

Var
  From1 : Tform1;
implementation
...

procedure Tform1.CMMouseEnter (var Message : TMessage);
...
begin
  ....
end;

procedure Tform1.CMMouseLeave; {(var Message : Tmessage); 
                                You do not have to write it again
                                after your first declaration. }
...
begin
  ....
end;

procedure Tform1.WMActive(var Message : TWMActive);
...
begin
end;

...

end.