mouseover auch in delphi bei labels?

[aerotech]

hallo, wie bekomm ich ein mouseover über bestimmte labels meiner anwendung?

[KLS]

Das Ereignis "onMouseEnter" und "onMouseLeave" dürfte deinen Anforderungen entsprechen.

Weil das vor kurzem schon mal jemand in einem anderen Forum gefragt hat, hab ich noch meine Screenshoots auf meine HP.

Edit

hier der code.

Code:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  label1.Color := clred;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  label1.Color := cllime;
end;

/Edit

HP

[aerotech]

Zitat:

Zitat von KLS

Das Ereignis "onMouseEnter" und "onMouseLeave" dürfte deinen Anforderungen entsprechen.

Weil das vor kurzem schon mal jemand in einem anderen Forum gefragt hat, hab ich noch meine Screenshoots auf meine HP.

HP

cool, danke...fast die lösung....nur würde ich gerne, das nur die fontfarbe sich ändert, nicht die ganze tranzparenz des buttons!? :gruebel:
und welche cl benutz ich um wieder die tranzparenz zu erstellen!? soll nur beim mouseover farbe ändern, beim verlassen wieder transp. aber clNone funzt nicht :wall:

[Sharky]

Zitat:

Zitat von KLS

... hab ich noch meine Screenshoots auf meine HP....

Findest Du es nicht "etwas übertrieben" für solch eine Sache einen Link zu diesem riesen Bild zu posten? :roll:
Die 5 Zeilen Code kann/sollte man auch hier im Forum zeigen.

[aerotech]

egal..müsste nur wissen, wie ich die fontfarbe ändere und nicht gleich den ganzen hintergrund des labels :(

[KLS]

ja sicher ist das übertrieben... aber der user für dem das war, hatte diesbezüglich keine ahnung, wo er was machen musste.
zudem beachte man das Datum unten rechts :)

Werde den code aber ergänzen.

[Wuaegner]

Hiermit:

Code:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 Label1.Font.Color:= clred;
end;

[aerotech]

axo, habs raus... :-D

Delphi-Quellcode:

procedure TForm1.Label5MouseEnter(Sender: TObject);
begin
Label5.Font.Color := clred;
end;

procedure TForm1.Label5MouseLeave(Sender: TObject);
begin
   Label5.Font.Color:= clblack;
end;

[Sharky]

Hai aerotesch,

hier mal noch eine allgemeinere Schreibweise. Damit bist Du unabhängig vom Namen des Labels und kann dadruch z.B. die Methoden für mehrere Labels verwenden.

Delphi-Quellcode:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  (Sender As TLabel).Font.Color := clred;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  (Sender As TLabel).Font.Color := clBlack;
end;

[KLS]

Sharky (oder auch andere), wo wir schon beim Thema sind, gibt es einen unterschied zwischen "(Sender as TLabel)" oder TLabel(Sender)" ?