MouseEnter

[taktaky]

Hallo

der Funktioniert bei Panel wollte stattdessen Image verwenden, geht es leider nicht !

Delphi-Quellcode:

  private
  procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;


procedure TForm1.CMMouseEnter(var Message: TMessage);
var
  ptWork : TPoint;
begin
  GetCursorPos(ptWork);
//if WindowFromPoint(ptWork) = Image1.handle then // error !!!
  if WindowFromPoint(ptWork) = Panel1.Handle then // ok
  begin
       Showmessage('hello');;
  end;
end;

Warum funktioniert bei Image1 nicht aber bei Panel1 ja ?

[Flocke]

Nur Nachfahren von TWinControl besitzen ein eigenes Fensterhandle, ansonsten verwaltet die VCL das Element selbst - TPanel stammt von TWinControl ab, TImage nur von TControl.

Du kannst deinen Code so abwandeln:

Delphi-Quellcode:

if Form1.ControlAtPos(Form1.ScreenToClient(ptWork), False, True, True) = Image1 then

[bitsetter]

Hallo,

ab Delphi 10 gibt es auch bei einem TImage das Ereignis onMouseEnter, ansonsten könnte man es auch selber machen. Das wäre imho die bessere Variante als es über das onMouseEnter des Formulars zu machen.

[taktaky]

Hallo zusammen

der Code von @Flocke

Delphi-Quellcode:

if Form1.ControlAtPos(Form1.ScreenToClient(ptWork), False, True) = Image1 then ...

und auch der Code in Demo von Dir @bitsetter funktionieren sehr gut und genau was ich gerne wollte.

Besten Dank!

[Muetze1]

Ich würde empfehlen das "Form1." in der IF Abfrage noch wegzulassen.

[taktaky]

Zitat:

Zitat von Muetze1

Ich würde empfehlen das "Form1." in der IF Abfrage noch wegzulassen.

Das stimmt, "Form1" ist nicht nötig und es funktioniert ohne :thumb: :

Delphi-Quellcode:

if {Form1.}ControlAtPos(Form1.ScreenToClient(ptWork), False, True) = Image1 then ...

[taktaky]

Nun habe ich ein kleines Problem

ich möchte den Cursor mit sleep() deactivieren solang er drauf bewegt

Ich möchte aber keine Zeit eingeben.

Ist das möglich ?

Delphi-Quellcode:

procedure TForm1.CMMouseEnter(var Message: TMessage);

var
  ptWork : TPoint;

begin
  GetCursorPos(ptWork);
  if ControlAtPos(Form1.ScreenToClient(ptWork), False, True) = Image1 then

  begin

    sleep(); // hier möchte ich keine Zeit eingeben
  end;
end;

Hat jemand eine Idee?

[Konse]

hi

Zitat:

Zitat von taktaky

Nun habe ich ein kleines Problem

ich möchte den Cursor mit sleep() deactivieren solang er drauf bewegt

Ich möchte aber keine Zeit eingeben.

Ist das möglich ?
Hat jemand eine Idee?

nein das ist nicht möglich, damit legst du den ganzen thread schlafen.
Wenn der cursor nichts klicken soll musst du die mouseevents abfangen in diesem bereich,
sowas wie onmousemove oder onclick.
Wenn du lieber anstatt den cursor ne eieruhr haben möchtest, dann solltest du dort den cursor wechseln.


Gruß Konse

[taktaky]

mouseevents schaft sowas nicht.
Ich habe fast alles erledigt, wieso ändere ich alles!

[Blackheart]

Zitat:

Zitat von taktaky

Hallo zusammen

der Code von @Flocke

Delphi-Quellcode:

if Form1.ControlAtPos(Form1.ScreenToClient(ptWork), False, True) = Image1 then ...

und auch der Code in Demo von Dir @bitsetter funktionieren sehr gut und genau was ich gerne wollte.

Besten Dank!

Man beachte den Schluss vom Satz, funktionierender Code ist schon was feines :wink:
Ich konnts mir einfach nicht verkneifen - Sorry