TForm als Object

[EWeiss]

Zitat:

parsen die Objekteigenschaften wärend des Aufrufs.

befinden sich in der object Collection.

Zitat:

Obj := TForm.Create; // oder Obj := TfrmMain.Create;

Jo das mache ich ja quasi
f[IntI] := TfrmMain.Create(nil); Daher wundert es mich das alles sooo langsam ist.

Die Eigenschaften der frmmain werden ja verwendet also PNg's und so weiter angezeigt.
irgendwas ist im argen.. muss halt nochmal schaun

Es kann allerdings sein das frmMain in Delphi gar nicht berücksichtigt wird
sondern nur f[IntI]..

VB!

Code:

MakeTrans App.Path & "\Herzen\" & x & ".png", Me

Me wäre dann "frm as Object"
Hier wird auch die Hauptform mit berücksichtig.

Das wäre unterumständen mein problem
Ich erbe zwar alle eigenschaften der FrmMain in f[x] aber die mainform wird nicht angezeigt.
In Vb aber...

Danke!

gruss

[WM_CLOSE]

So wie ich das sehe ist das Problem der sleep Aufruf:
Dein Programm macht random(10) * 10 + 20)= 20..120 ms gar nichts!
Deswegen ruckelt das Programm ziemlich.
Besser wäre z.B. Der Aufruf in einem TTimer,
in Verbindung mit GetTickCount (oder einem High-Resolution-Timer).
Damit kannst du die Bewegung auch berechnen. (Der TTimer arbeitet im kleinen Bereich sehr ungenau,
deshalb Verlass dich nicht auf den Interval).

Außerdem solltest du dich um die EInvalidPointer beim Beenden kümmern.
Hast dui vielleicht das MainForm irgendwo freigegeben?
Der Fehler tritt normalerweise dann auf, wenn ein Objekt (oder Formular, ...)
Freigegeben wird, obwohl es nicht mehr existiert (schon freigegeben ist).

Exception EInvalidPointer in Modul MouseTrail2.exe bei 00003BC9.
Ungültige Zeigeroperation.

[EWeiss]

Zitat:

Dein Programm macht random(10) * 10 + 20)= 20..120 ms gar nichts!

Hä?
Was macht es nicht..
Wie du sehen kannst wird hier Sleep in einem bereich von 20-120 Millisekunden aufgerufen
und hält für die jeweilige zeit die bewegung der aktiven Form an.
Somit erhalte ich den Effekt eines Federbandes wobei noch jede Form geprüft wird ob sie
rechts links oder unten gegen den Desktop prallt.

Zitat:

Der Fehler tritt normalerweise dann auf, wenn ein Objekt (oder Formular, ...)
Freigegeben wird, obwohl es nicht mehr existiert (schon freigegeben ist).

Nö der tritt auf weil ich bei Until bClose auf False geprüft habe.

Daher hat die schleife nicht korrekt beendet.

EDIT:

Zitat:

Deswegen ruckelt das Programm ziemlich.

Nein
Weil bei der Berechnung der Federkraft mein ergebnis von Feder.x und Feder.y immer 0 war.

Alt!

Delphi-Quellcode:

  If Leni > iSegLen Then
  begin
    FederF := iFederK * Leni - iSegLen;
    Feder.x := Feder.x + (Dx div Leni) * FederF;
    Feder.y := Feder.y + (Dy div Leni) * FederF;
  end;

Neu!

Delphi-Quellcode:

  If Leni > iSegLen Then
  begin
    FederF := iFederK * round(Leni - iSegLen);
    Feder.x := Feder.x + round(Dx / Leni) * FederF;
    Feder.y := Feder.y + round(Dy / Leni) * FederF;
  end;

gruss