BitBtn Button effekt

[Die Muhkuh]

Zitat:

Zitat von Matze

Zitat:

Zitat von Delphiturbo

Das Button hat kein Event OnMouseleave und OnmouseEnter

Also mein TBitBtn hat diese Events. Den Code habe ich in TurboDelphi erstellt und dort funktioniert er einwandfrei.

Delphiturbo nutzt Delphi 7. Dort gibt es diese Events noch nicht. Aber da er ja seine Version nicht im Profil angegeben hat, können wir es auch nicht wissen :roll:

[Delphiturbo]

Zitat:

Zitat von mkinzler

Warum zeigst du immer nur ein derart kleinen Auschnitt deines Codes? Den kannst du dann auch gleich weglassen. Regierst du auch auf den Event der richtigen Komponente?

BitBtn1 habe ich einfach mit vorhandere Delphi7 Event (OnMove und OnExit) verwendet
BitBtn2 mit Function OnMouseEnter und OnMouseLeave

Keiner funktioniert gut !

[Phoenix]

Oh man.. wenn Du schon Dateien anhängst, dann bitte in einem Standard-Format. .rar kann so gut wie keiner aufmachen. .zip schon. Also das nächste mal bitten Zippen und ned raren. Viele werden ganz sicher ned nur wegen Dir ein Programm installieren nur um die Archive aufzumachen :roll:

Edit Nachtrag: Und Manuel hat es schon zweimal gesagt: Geb endlich Deine Delphi-Version im Profil an.

[Matze]

Ja, die Angabe der Delphi-Version wäre wirklich sinnvoll.

Schau die den Artikel auf delphi3000.com einmal an. Dort wird beschrieben, wie man eine Komponente ableiten und die beiden Events hinzufügen kann. Bei mir funktioniert dies auch mit dem TBitBtn.

[Garfield]

Zitat:

Zitat von Phoenix

Ich würde jede Wette eingehen, der Button ist mit dem Eventcode gar nicht verdrahtet.. Du hast unter Garantie wieder nur den Code kopiert und nicht im Objektinspektor die Events verdrahtet :wall:

Sehr gut möglich, denn die Deklarationen erfolgen als Private:

Zitat:

Zitat von Delphiturbo

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    ImageList1: TImageList;
  private
  procedure BitBtn1MouseEnter(Sender: TObject);
  procedure BitBtn1MouseLeave(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

Normal sieht es so aus:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1MouseEnter(Sender: TObject);
    procedure BitBtn1MouseLeave(Sender: TObject);
  private

[Die Muhkuh]

Das ist egal. Solange es eine Methode ist ;)

[Apollonius]

Eine Klassenmethode darf es nicht sein.

[Jelly]

Zitat:

Zitat von Die Muhkuh

Das ist egal. Solange es eine Methode ist ;)

Die Methoden müssen aber auch dem Event zugeordnet sein, und nicht einfach nur deklariert/implementiert sein. Das macht Delphi automatisch, sofern man über den OI geht. Definiert wird es dann letztenendes automatisch in der .dfm Datei der Form.

[Die Muhkuh]

Das ist klar. Ich bezog mich nur auf Garfield, der die Methoden verschoben hat.

[Garfield]

Zitat:

Zitat von Matze

Ja, die Angabe der Delphi-Version wäre wirklich sinnvoll.

Vielleicht reicht das Lesen des ganzes Beitrages?

Zitat:

Zitat von Delphiturbo

BitBtn1 habe ich einfach mit vorhandere Delphi7 Event (OnMove und OnExit) verwendet

Zitat:

Zitat von Delphiturbo

BitBtn2 mit Function OnMouseEnter und OnMouseLeave

:gruebel: Im Source ist davon nichts zu finden:

Delphi-Quellcode:

    procedure BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure BitBtn2Exit(Sender: TObject);

Bei D7 gibt es kein OnMouseLeave. OnMouseMove und OnExit funktionieren. Das OnExit eben nur auftritt, wenn der BitBtn den Eingabefokus verliert.
___

Nachtrag:

Zitat:

Zitat von Die Muhkuh

Das ist klar. Ich bezog mich nur auf Garfield, der die Methoden verschoben hat.

Ich habe nichts verschoben, nur Delphi 7 PE zitiert.