mouseout....

Извинявайте, как да прихвана кога курсора на мишката ми Напуска рамката на бутона, или какъвто и да е друг контрол? Например напуска TLabel за да спре да е underlined.

Съобщенията са CM_MOUSEENTER и CM_MOUSELEAVE.

smeni si go na LABEL i nezabraviaj pocherpkata ......

unit ImageEx;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TImageEx = class (TImage)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var msg: TMessage);
message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage);
message CM_MOUSELEAVE;
protected
{ Protected declarations }
procedure DoMouseEnter; dynamic;
procedure DoMouseLeave; dynamic;
public
{ Public declarations }
published
{ Published declarations }
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

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

{ TImageEx }

procedure TImageEx.CMMouseEnter(var msg: TMessage);
begin
DoMouseEnter;
end;

procedure TImageEx.CMMouseLeave(var msg: TMessage);
begin
DoMouseLeave;
end;

procedure TImageEx.DoMouseEnter;
begin
if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TImageEx.DoMouseLeave;
begin
if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

end.

Delphi 6, 7 mislq che go imat za nqkoi componenti (ex TLabel)

Ne znam dali si napravil vsichko za edin TLabel, no vij tova:
MouseEnter: + [fsUnderline]
MouseExit: - [fsUnderline]
Cursor: crHand
Font.Color: clBlue

by Waz Gaa
[email protected]