Hallo Programmiergemeinde
habe folgendes Problem:
auf einem server kann man sich bilder anschauen, wenn man in diesem ordner ist, wird das nächste bild erst geladen, wenn man das momentane bild anklickt, hätte gern n programm geschrieben, was mir die klickerei abnimmt und die ganze sache zur diashow wird, aber leider klappt es nicht -.-
könnt ihr bitte mal schaun, was ich falsch gemacht hab?? vielen danke im voraus
Delphi-Quellcode:
procedure TDiashow.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var x: integer;
begin
x:=0;
if (key = $21) then {bild hoch}
SetCursorPos(600,500);
while x>0 do
Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
x:= x+1;
Sleep(Millisekunden);
if (key = $22) then Close; {bild runter}
end;
end.
liebe grüße