Hallo liebe Community,
ich hatte mir aus eurer Beispiel Thread mal folgendes Programm ausgeschrieben, und wollte es zum laufen bringen.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 =
class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
vx, vy: integer;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
vx := -10 + Random(20);
vy := -10 + Random(20);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left := Image1.Left + vx;
Image1.Top := Image1.Top + vy;
if (Image1.Left > ClientWidth - Image1.Width - 1)
or (Image1.Left < 1)
then
vx := vx * -1;
if (Image1.Top > ClientHeight - Image1.Height - 1)
or (Image1.Top < 1)
then
vy := vy * -1;
end;
end.
Leider bekomme ich immer folgende Fehlermeldung:
Die Methode FormCreate initialisiert das Dialogfeld beim ersten Erstellen.
procedure FormCreate(Sender: TObject);
Beschreibung
In Anwendungen sollte FormCreate nicht aufgerufen werden. FormCreate initialisiert das Detailfenster, damit die Schaltfläche Details korrekt arbeitet.
Weiss einer von euch was ich da falsch mache?
Liebe Grüsse Willi
P.S. ich benutze Delphi 4 Professional, unter Windoes XP
[edit=Luckie]Delphi-Tags gesetzt. Beim nächsten mal bitte selber machen. Mfg, Luckie[/edit]