position abfragen kannste du sie sie mit
Delphi-Quellcode:
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Caption := IntToStr(X)+' : '+IntToStr(Y);
end;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage('linken button gedrückt');
//if Button = mbLeft then
//if Button = mbRight then
end;
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
showmessage('linken button losgelassen');
end;
bitte schön....
ah das setzten, ich vergass:
Delphi-Quellcode:
SetCursorPos(LEFT, TOP);
links drücken
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //drücken
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // loslassen
//recht drücken
mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0);//drücken
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);// loslassen
und wegen der tastatur... nimm das hier, das ist nicht so starker
api-tobak wie das von den schweiterzn.
http://www.delphipraxis.net/internal...ct.php?t=52266