Label-Position auswerten

[Christian Seehase]

Moin Hansa,

Zitat von Hansa:

Befindet sich die Maus über einem Label, dann soll das anders aussehen, als wie normal.

das kannst Du einfacher haben:

interface

Delphi-Quellcode:

type
  TMyLabel = class(TLabel)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;

implemenation

procedure TMyLabel.CMMouseEnter(var Message: TMessage);
begin
  self.Font.Color := clRed;
end;

procedure TMyLabel.CMMouseLeave(var Message: TMessage);
begin
  self.Font.Color := clBlack;
end;

procedure TForm1.FormCreate(Sender: TObject);

var
  mlbl : TMyLabel;

begin
  mlbl         := TMyLabel.Create(self);
  mlbl.Parent  := self;
  mlbl.Caption := 'TESTLABEL';
  mlbl.Left    := 10;
  mlbl.Top     := 10;
end;