Mausclick "simulieren"

UWER · Beiträge: 79 SUSE 8.1, XP Home D7 Prof. , Kylix 3

Hallo Leute,

wie kriege ich es hin einen Moseclick auf eine visuelle Komponente (z.B. TMemo) zu simulieren

_________________
Gruß
UWER

Taladan · Beiträge: 88 Delphi 2005 Personal

memo1click(self);

patrick · Beiträge: 1481 WIN2k, WIN XP D6 Personal, D2005 PE

wenn du einen "realistschen" mausklick haben willst machst du es so:

Sven Schneider hat folgendes geschrieben:

Die folgende Procedure simuliert einen Linksclick an den angegebenen Koordinaten (X=100, Y=200). Es werden damit dann auch das entsprechende "OnClick"-Ereignis der Komponente ausgeführt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Timer1Timer(Sender: TObject);
var 
  x,y: integer;
begin
  x:=100;
  y:=200;
  mouse_event(MOUSEEVENTF_leftDOWN,x,y,0,0);
  mouse_event(MOUSEEVENTF_leftUP,x,y,0,0);
end;

Für die rechte Maustaste gilt entsprechend:
MOUSEEVENTF_RIGHTDOWN
MOUSEEVENTF_RIGHTUP

Und das gleiche gibt es auch noch für die mittlere Maustaste:
MOUSEEVENTF_MIDDLEDOWN
MOUSEEVENTF_MIDDLEUP

quelle:Name: Sven Schneider
E-Mail: y2j-rules@gmx.de

Moderiert von Tino: Quote-Tags hinzugefügt.

_________________
Patrick
im zweifelsfall immer das richtige tun!!!

UWER · Beiträge: 79 SUSE 8.1, XP Home D7 Prof. , Kylix 3

DANKE!!

_________________
Gruß
UWER

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme