Application Processmessages zum bewegen von Charakteren

[Niko]

Zitat von Flogo:

Wenn ich nach dem Klick warten will bis die Figur an einer bestimmten Stelle ist, dann muss ich doch das Programm anhalten.

Nein, warum das nicht geht hast du ja selbst geschrieben .

Ich würde folgendes Prinzip nehmen:
Bei Mausklick:

Delphi-Quellcode:

Bewegen := true;
NeuePosition := Mausposition;

In Timer-Ereignis:

Delphi-Quellcode:

if Bewegen = true then
  if NeuePosition <> AktuellePosition then
    AktuellePosition := VerschiebeFigur;
  else
  begin
    Bewegen := false;
    MachWasWennFigurAngekommen;
  end;

wobei VerschiebeFigur die Position zurückgibt, an die die Figur verschoben wurde.

Natürlich lässt sich der Code für das Timer-Ereignis genausogut auch in einen Thread packen. Solange er aber keine umfangreichen Berechnungen anstellt, halte ich das nicht für nötig.

[EDIT=Niko]Wechselstaben verbuchtelt[/EDIT]