---

//*******************************************************************************
//* Komponent er bestået af én TImage og én TLabel, begge har OnMouseEnter og OnMouseLeave event. *
//*******************************************************************************

unit VCImage;

interface

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

type
TVCImage = class(TImage)
private
fONMouseEnter :tNotifyEvent;
fONMouseLeave :tNotifyEvent;
procedure CMMouseEnter(var msg : TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg : TMessage); message CM_MOUSELEAVE;
protected

public

published
property OnMouseEnter : TNotifyEvent read fONMouseEnter write fONMouseEnter;
property OnMouseLeave : TNotifyEvent read fONMouseLeave write fONMouseLeave;
end;

TVCLabel = class(TLabel)
private
fOnMouseEnter : tNotifyEvent;
fOnMouseLeave : tNotifyEvent;
fHighlight : Boolean;

procedure doHighLight(HL : Boolean);
procedure CMMouseEnter(var msg : TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var msg : TMessage); message CM_MOUSELEAVE;
public
published
property Highlight : Boolean read fHighLight write doHighLight;
property OnMouseEnter : TNotifyEvent read fONMouseEnter write fONMouseEnter;
property OnMouseLeave : TNotifyEvent read fONMouseLeave write fONMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('TVC', [TVCImage, TVCLabel]);
end;


procedure TVCImage.CMMouseEnter(var msg : TMessage);
begin
if Assigned(fOnMouseEnter) then fOnMouseEnter(self);
end;

procedure TVCImage.CMMouseLeave(var msg : TMessage);
begin
if Assigned(fOnMouseLeave) then fOnMouseLeave(self);
end;

//-******* TVCLABEL *********************//
procedure TVCLabel.CMMouseEnter(var msg : TMessage);
begin
if Assigned(fOnMouseEnter) then fOnMouseEnter(self);
if HighLight then
begin
Font.Color := clBlue
end
end;

procedure TVCLabel.CMMouseLeave(var msg : TMessage);
begin
if Assigned(fOnMouseLeave) then fOnMouseLeave(self);
Font.Color := clWindowText;
end;


procedure TVCLabel.doHighLight(HL: Boolean);
begin
if HL <> fHighLight then
fHighLight := HL;
end;

end.

---

---

---

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.