sende et musetast??? :)

kunne gøres sådan:

var pt:tpoint;
begin
pt.y := 100;
pt.x := 240;
setcursorpos(pt);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

end;

den flytter godt nok musen visualt. Det kunne måske løses med noget alla:


var
pt, oldpt:tpoint;
begin
getcursorpos(oldpt);
pt.y := 100;
pt.x := 240;
setcursorpos(pt);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
setcursorpos(oldpt);

end;

hvad så hvis jeg har lommeregnerens handle og bare vil sende et klik til dens vindue på et bestemt kordinat (f.eks. på knappen "plus") ??? :)

//Poulseye

nedenstående sender et "musetryk" på plusknappen i windows lommeregner.


procedure TForm1.Button1Click(Sender: TObject);
var
  MainWindow, Knap : THandle;
  pt : TPoint;
begin
  pt.X := 180;
  pt.Y := 180;
  MainWindow := findwindow(nil,'lommeregner');
  Knap := childwindowFromPoint(MainWindow,pt);
  postmessage (Knap,wm_lbuttondown,1,0);
  postmessage (knap,wm_lbuttonup,1,0);
end;

Hvis du skal "trykke" på en anden knap skal du ændre pt.X og pt.Y

Takker :)

kan det bruges? Ellers har jeg lige lavet noget kode som kan finde positionen af en knap ved at trække et sigtekorn hen på knappen (f.eks "+") og så fortælle koordinaterne i forhold til parent vinduet..
Læg en mail, så kan jeg sende projektet til dig :)

diz>

må jeg evt. se/få projectet ?

sh@tradestone.dk

Stoney

pol_jens@hotmail.com