Button

[Furmy]

Hallo,

ich habe einen Button gebaut. Einen normal und einen mit einem Kreis.
Und meine Frage ist wie kann ich diesen Button zum kreis bringen
wenn ich mit der Maus drüber fahre. Mann muss etwas mit Mousklick
machen oder??

Bitte helft mir :roll:

[DeddyH]

Hast Du mal nen Screenshot? Ich kann mir das gerade nicht so richtig vorstellen.

[STS301]

in OnEnter sagen, dass er einen Kreis zeichen soll, bzw. den einen Button verstecken und den anderen zeigen

[DeddyH]

Wohl eher OnMouseEnter, oder?

[STS301]

achso ja, natürlich

[Matze]

Zitat:

Zitat von Furmy

[...] wenn ich mit der Maus drüber fahre.

Dann müsste es das OnMouseMove-Ereignis sein. Evtl. auch OnMouseEnter in Verbindung mit OnMouseLeave.

Edit: Wo kommen denn nun die Beiträge her ...

[Furmy]

Also ich zeigs euch mal.

[stevejobs]

Hallo Furmy,

Du must das bild mit dem rand bei Height auf 0 setzten. Nimm nun das normale Bild, gehe nun auf ereignisse und wähle MouseMove.
gib in die prozedur ein

Delphi-Quellcode:

procedure TForm1.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image3.Height :=**; //** = Grösse des Bildes NORMAL!
end;

end.

Nun gehe auf den Hintergrund und wähle dort nochmals MouseMove
und gib ein

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image**.Height :=0;
end;

end.

Fertig!


Gruss


Stefan

[Furmy]

Danke Stefan! :P

[Matze]

Wenn das OnMouseMove-Ereignis des Hintergrunds den Button zurücksetzt, dann finde ich das keine schöne Lösung.

Setze den Button doch wie angesprochen im OnMouseEnter (erste Berührung des Buttons) und setze ihn zurück im OnMouseLeave (den Button verlassen).

Edit: Ach der Button scheint keiner zu sein, sondern nur ein Image!