Bilderfolge mit mausklick

[Frankfurter_Bub]

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

[DP-Maintenance]

Dieses Thema wurde von "r_kerber" von "Programmieren allgemein" nach "VCL / WinForms / Controls" verschoben.
Delphi-Thema

[Frankfurter_Bub]

Hilfe :cry:

[Chris P]

Hi,

beachte die evtl. fehlende begin..end; Anweisung bei der while-Schleife und bei den if-Abfragen.

Was soll denn die Abbruchbedingung für die while-Schleife sein?
Da du x immer um 1 erhöhst wird die Schleife nie abbrechen.

[thkerkmann]

Hallo,

manchmal hilft Einrücken, dann sieht man den Fehler:

Delphi-Quellcode:

procedure TDiashow.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x: integer;
begin
  x:=0;
  if (key = $21) then      {bild hoch}
  begin // <<< fehlte
    SetCursorPos(600,500);
    while x>0 do
    begin // <<< fehlte
      Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
      Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
      x:= x+1;
      Sleep(Millisekunden);
    end; // <<< fehlte
  end // <<< fehlte
  else // <<< fehlte
  if (key = $22) then 
    Close; {bild runter}
end;

Erstens: wie man jetzt sehen kann, wird die while schleife nicht gestartet, weil x=0 ist.

Zweitens: desweiteren kann die while Schleife, sollte sie nach Korrektur doch gestartet werden nicht verlassen werden, bis x sehr weit hochgezählt wurde, nämlich ca 21 Milliarden irgenwas.

Gruss

[Frankfurter_Bub]

oh, danke sehr, aber ich dachte das mit der while schleife von der anderen bedingung (bild runter) beendet wird und es halt kein programmiertes ende finden soll..

das problem nun ist, das die schleife nicht mehr abläuft, sondern nur per bild hoch ein klick emuliert wird -.-
& andere frage, wie bekomm ich es hin, das der klick auf das bild im browser geschieht und nicht nur wenn die Form im vordergrund ist?

viel dank erstmal :)