Aussehen von SpeedButtons anpassen

[Andreas L.]

Hi,
ich habe auf meinen Form 2 SpeedButtons mit Flat:=True; Wenn jetzt die Maus über den einen SpeedButton drüber ist soll der 2te SpeedButton genauso aussehen wie der bei den die Maus drüber ist. Wie könnte das gehen? Ich brauche wahrscheinlich das OnMouseMove-Ereignis des SpeedButtons. Aber wie ermögliche ich das, das Aussehen verändert wird?

Schonmal Danke

[Chrissi91]

Na, wenn ich das jetzt richtig verstehe, so:

OnMouseMove des 1.Speedbuttons:

If SpeedButton1.Flat = True then SpeedButton2.Flat := True else SpeedButton2.Flat := False.

Wenn du das mit allen Eigenschaften machen möchtest, suche lieber nach einer geeigneten vorgefertigten Procedure. ^^

[Andreas L.]

Zitat:

Zitat von Chrissi91

Na, wenn ich das jetzt richtig verstehe, so:

OnMouseMove des 1.Speedbuttons:

If SpeedButton1.Flat = True then SpeedButton2.Flat := True else SpeedButton2.Flat := False.

Wenn du das mit allen Eigenschaften machen möchtest, suche lieber nach einer geeigneten vorgefertigten Procedure. ^^

Das ist nicht das was ich Suche. Wenn du mit der Maus über den SpeedButton bist sieht er nicht aus wie FLAT:=false; Zwar ähnlich aber nicht genau so. gibt es nicht eine Möglichkeit den SpeedButton ein MouseOver vorzutäuschen?

[Mackhack]

Kannst du doch auch eine eigene MouseOver-Methode schreiben!

[Andreas L.]

Zitat:

Zitat von Mackhack

Kannst du doch auch eine eigene MouseOver-Methode schreiben!

Wie soll das gehen?

[Mackhack]

Hi,

such mal nach diesem:

Delphi-Quellcode:

procedure WMMouseEnter(var Msg: TWMMouse); message CM_MOUSEENTER; 
procedure WMMouseLeave(var Msg: TWMMouse); message CM_MOUSELEAVE;

[Chrissi91]

Ach jetzt verstehe ich erst den Sinn. ^^

[Mackhack]

Zitat:

Zitat von Chrissi91

Ach jetzt verstehe ich erst den Sinn. ^^

Besser spaet als nie ^^

[Andreas L.]

Zitat:

Zitat von Mackhack

Hi,

such mal nach diesem:

Delphi-Quellcode:

procedure WMMouseEnter(var Msg: TWMMouse); message CM_MOUSEENTER; 
procedure WMMouseLeave(var Msg: TWMMouse); message CM_MOUSELEAVE;

Wo soll ich das suchen? Hier mit der Suche oder in einer Unit? Achja, hab ne Delphi PE, ich glaube da sind die Sourcen der UNits nicht dabei, oder?

[faux]

Zitat:

Zitat von onlinehome

Wo soll ich das suchen? Hier mit der Suche oder in einer Unit? Achja, hab ne Delphi PE, ich glaube da sind die Sourcen der UNits nicht dabei, oder?

Nein. In der PE sind keine Sourcen dabei. Ich denke mal, er meint dass du nach message suchen sollst, kann ich leider aber gerade nicht kontrollieren, da mein Delphi nicht will.

Grüße
Faux