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

[Mackhack]

Hier im Forum oder in google.com

Ja entweder nur nach Message oder im gesamten nach den 2 Zeilen :-)

[DGL-luke]

Macht es ihm doch nicht so schwierig :roll:

Du solltest die Windowprocs der beiden Speedbuttons überschreiben (wie das geht, solltest du mehrmals in der DP finden; [dp]Windowproc überschreiben[/dp]) und darin auf WM_MOUSEENTER und WM_MOUSELEAVE reagieren.

Du kannst dann dem jeweils anderen Speedbutton die selbe Nachricht zukommen lassen(TSpeedbutton.Dispatch sollte das sein).

PS: @mackhack: ich würde hier nicht die gesamte Klasse redefinieren...

EDIT: mit dem Suchlink kommst du unter anderem zu diesem Topic von mir: http://www.delphipraxis.net/internal...FCberschreiben

EDIT: Könnte auch CM_MOUSEENTER sein?!

[Mackhack]

@DGL-Luke:

Was denn daran falsch was ich ihm sagte?

[DGL-luke]

Naja... ich weiss nicht, was ihm die paar zeilen, die du ihm hingeschmissen hast, bringen sollen.


Und dieses

Delphi-Quellcode:

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

Zeugs sollte ja normalerweise in einer Klassendeklaration stehen... aber wie bereits gesagt, ich würde da nicht die komplette TSpeedbutton-Klasse redefinieren.

Natürlich geht es so - is aber imho umständlicher.

[Mackhack]

Eine Hilfestellung. Er kann doch damit sicherlich mehr erfahren wenn er damit die Suche fuettert.

Du hat schon recht dass das in eine eigene Klasse gehoeren koennte, muss es aber nicht. Und wenn er es nur zum testen verwendet.