Mausover/Mausdown

[Pseudemys Nelsoni]

hoi,

kann mir mal jemand sagen wie ich die beiden ereignisse in einem TIMage hinbekomme? ich seh da nur "onmouseup" und "onmousedown"...


btw ich suche die ereignisse, wenn man das image mit der maus betritt und wieder verlässt, nicht wenn man darauf klickt

[KoRn117]

mouseover kannst du das nicht mit onmousemove realiseieren?

es ist ein bißchen schlecht weil du nciht beschrieben hast was du damit machen willst.

und onmousedown gibt es doch alles bei timage

ich verstehe dich glkaube nicht richtig.

ciao

korn

[Pseudemys Nelsoni]

das "OnMouseDown" ereigniss tritt nur ein wenn ich das bild anklicke, das "OnMouseUp" tritt ein wenn ich nachm klicken wieder loslasse. Ich brauche aber 2 ereignisse die eintreten bim hovern über das image, also wenn ich mit der maus rüberfahre ohne zu klicken, ebenso wenn ichs wieder verlasse.
das kennst du sicher von html seiten...wenn du mit der maus über ein image gehst ändert sich das bild bzw die farbe, und wenn du es verlässt wird es wieder wie zuvor, aber eben ohne das man klickt

[MikeS]

Wenn Du nur möchtest das der Cursor anders aussieht dann ändere diesen doch
einfach vorher!

Code:

Image1.cursor := crHandPoint;

als Beispiel!

Du prüfst einfach vorher ob deine Ereignisse eingetroffen sind, setzt den Cursor
und wenn der User dann über das Bild fährt ändert der sich entsprechend!

[Pseudemys Nelsoni]

ich möchte ein bild ändern, nich den mauszeiger...

[Jens Schumann]

Hallo,
eigentlich ist das der klassische Fall für das Erstellen eines eigenen TImage Nachfahren, der die Event's OnMouseEnter und OnMouseLeave bereitstellt.

Muss aber nicht sein. Man kann auch zur Laufzeit die Fensterprocedure austauschen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FOldImageWndPorc : TWndMethod;
    procedure DoMouseEnter;
    procedure DoMouseLeave;
    procedure NewWndProc(var Msg : TMessage);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.NewWndProc(var Msg: TMessage);
begin
  If (Msg.Msg=CM_MouseEnter) and (Image1.Enabled) then
    DoMouseEnter;
  If (Msg.Msg=CM_MouseLeave) and (Image1.Enabled) then
    DoMouseLeave;
  FOldImageWndPorc(Msg);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldImageWndPorc:=Image1.WindowProc;
  Image1.WindowProc:=NewWndProc;
end;

procedure TForm1.DoMouseEnter;
begin
  Label1.Caption:=IntToStr(StrToInt(Label1.Caption)+1);
end;

procedure TForm1.DoMouseLeave;
begin
  Label2.Caption:=IntToStr(StrToInt(Label2.Caption)+1);
end;

end.

Die beiden Labels haben im Objektinspektor für Caption eine 0 bekommen

[Pseudemys Nelsoni]

danke :)