unit Projekt2_Bedienelemente1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, StdCtrls;
{ Eigene Klasse MyLabel}
type

  TMyLabel =  class(TCustomLabel)
private

  FInMouse: Boolean;
  public

  procedure SetInMouse(InMouse: boolean);
  function GetInMouse: boolean;
     procedure MyMouseEnter(Sender: TObject);
  procedure MyMouseLeave(Sender: TObject);

  end;

implementation
procedure TMyLabel.SetInMouse(InMouse: boolean);
begin
 FInMouse := InMouse;
end;
function TMyLabel.GetInMouse: boolean;
begin
 Result:= FInMouse;
end;

 procedure TMyLabel.MyMouseEnter(Sender: TObject) ;
begin
FInMouse := true;
Caption := 'Auf mir steht die Maus';
end;

 procedure TMyLabel.MyMouseLeave(Sender: TObject);
begin
FInMouse := false;
Caption := 'Die Maus steht nicht auf mir';
end;



end.