@jfheins
vielen Dank für Deinen Hinweis!
Habe das mit der
API noch nicht probiert und ich kenne das auch noch nicht. Aber irgendwann muss man das auch lernen.
@NamenLozer
ebenfalls vielen Dank für Deinen Code
sieht ja echt cool aus. Habe den Code mal in einem Buttonereignis eingegeben um es zu testen, leider kommt eine Meldung, das inkompatible Tpyen "TPoint und dynamic array" da sind.
Wie muss ich die beiden Variablen deklarieren ?
Wenn ich die beiden als array mit integer deklariere bekomme ich "inkompatible Typen "Array und TPoint"
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
down: array of TPoints;
move: array of TPoints;
begin
down := point(random(image1.width), random(image1.height));
move := point(random(image1.width), random(image1.height));
ImageMouseDown(self, mbLeft, ssLeft, down.x, down.y);
ImageMouseMove(self, ssLeft, move.x, move.y);
ImageMouseUp(self, mbLeft, ssLeft, move.x, move.y);
end;
Besten Dank nochmals!
Lingneu