BitBtn Button effekt

[Phoenix]

Vielleicht muss man das Neuzeichnen noch anstossen?
Ein Invalidate oder ein Repaint könnten da helfen.

[Delphiturbo]

Zitat:

Zitat von Phoenix

Vielleicht muss man das Neuzeichnen noch anstossen?
Ein Invalidate oder ein Repaint könnten da helfen.

Nein. Es stimmt was mit meinem Code nicht
ich so getestet

Delphi-Quellcode:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
  //BitBtn1.Glyph := nil;
  //ImageList1.GetBitmap(0, BitBtn1.Glyph);
  Form2.Show; // es erscheint Form2 auch nicht !
end;

[Die Muhkuh]

Das Ereignis ist dem BitBtn schon zugewiesen oder?

[Phoenix]

Dann setz doch mal nen Breakpoint und debugge was das Programm macht. Himmel..

Das ist kein 'Testen' was Du machst, das ist 'Try & Error', und diese Vorgehensweise ist a) Unpofessionell und b) führt sie zu nichts.

Nimm Dir endlich mal zu Herzen was die Leute hier schreiben und lerne die absoluten Grundlagen wie z.B. Debuggen.

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:

[Delphiturbo]

Zitat:

Zitat von Die Muhkuh

Das Ereignis ist dem BitBtn schon zugewiesen oder?

Das Button hat kein Event OnMouseleave und OnmouseEnter
sondern onMove, ...
Das habe ich vorher bereit getestet und funktioniert
Es Fehlt OnMouseleave

[Die Muhkuh]

Und dann wunderst Du Dich, dass es nicht funktioniert, wenn der BitBtn diese Events nicht hat? Gib mal im Profil Deine Delphi-Version an, das wäre sehr hilfreich. Weil hier in Turbo Delphi hat der die Events. Du kannst aber die Messages selbst abfangen (CM_MOUSEENTER und CM_MOUSELEAVE)

[Delphiturbo]

Delphi-Quellcode:

  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(0, BitBtn1.Glyph);
end;

procedure TForm1.CMMouseLeave(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
  if  WindowFromPoint(ptWork) = BitBtn1.Handle then
    BitBtn1.Glyph := nil;
    ImageList1.GetBitmap(1, BitBtn1.Glyph);
end;



end.

Das Button bekommt ein Bild wenn der Cursor auf Form kommt und nicht wenn der Cursor auf Button
Das Bild bleibt für immer das selbe, auch wenn ich den Cursor entferne !

[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?

[turboPASCAL]

Mit ein wenig Geschick und der Hilfe der Delphipraxis eigenen Suchfunktion kann Man([n] / und oder Frau) durchaus fertige komponenten, fasst nach Wunsch finden.

Im Anhang ist solch eine Kompo. Diese nutzt 3 Bilder, Mouseover, Mousedown und Mouseup.

[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.