Timer einmalig sofort auslösen.

[jfheins]

Hallo erstmal

Zitat von xDIMAx:

P.S. Für zukünftige Threads: Kann man den Titel des Threads noch verändern? Wenn ich ihn mir jetzt nochmal durchlese, kommt er mir ein bisschen komisch vor.

Ja. Klicke auf bearbeiten und dann auf erweiterter Editor.

Zu deinem Problem: Ich würde das wie folgt lösen:

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
begin
   H:=1; //Zufällige Variable, um dem Timer anzuzeigen, ob die Form angeklickt wurde.
   Timer1Timer(Sender);
end; 

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
begin
   G:=0; //Zufällige Variable, um dem Timer anzuzeigen, ob der Shape angeklickt wurde.
   Timer1Timer(Sender);
end; 

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   if (G=0) and (H=0) then
   begin //Soll passieren, wenn der Shape innerhalb des Intervalls angeklickt wurde.
      G:=1; //G:=1; Sorgt dafür, dass man den Shape anklicken muss, um den Then-Befehl auszuführen.
      H:=0; 
      Shape1.Left:=trunc(random*(Form1.Width-64))+16;
      Shape1.Top:=trunc(random*(Form1.Height-64))+64;
   end
   else
   begin
      Button1Click(Self); //Soll passieren, wenn entweder die Form oder gar nichts innerhalb des Intervalls angeklickt wurde.
   end;
end;

Du hast ja schon am Ende der Timer1Timer Methode die Button1Click Methode aufgerufen. Auf die gleiche Weise lässt sich die Timer1Timer Methode aufrufen ohne dass der Timer tatsächlich ausgelöst hat.

Ach, und tu dir selbst einen Gefallen und benenne deine Variablen richtig. D.h. insbesondere keine globalen Variablen mit einem Buchstaben.