bewegender punkt
-
Hi!
Ich muss sehr dringend einen sich mit einer bestimmten Geschwindigkeit bewegenden Punkt einer bestimmten Größe(Geschw. per edit-box einstellbar) erzeugen. Wenn er durchgelaufen ist, soll er einfach von vorne wieder auftauchen und erneut von links nach rechts durch den Bildschirm "fliegen".Projekt = Anwendung
Bin leider im Moment (da umgestiegen auf Borland) ein Newbie, also habt Gnade...
Danke
-
Dann zeig doch mal deine ersten Ansätze.
-
Mal so ein paar Stichpunkte wie ich es anfangen würde:
- Neues Projekt
- Form1
- Da hinein ein Image - Schau dir dazu die Hilfe an da stehen solche tips drin:void __fastcall TForm1::Button1Click(TObject *Sender)
{
TCanvas *pCanvas = Image1->Canvas;
pCanvas->Brush->Color = clRed;
pCanvas->Brush->Style = bsDiagCross;
pCanvas->Ellipse(0, 0, Image1->Width, Image1->Height);
}tja und dann bischen rumspielen
-
Zur Laufzwit ein TImage erstellen, einen Kreis draufmalen und bei einem Timer-OnTimer Event jedesmal die "Left" property ändern, je nachdem wie schnell der Punkt bewegt werden soll. Dabei natürlich "Left+Width" abchecken, ob es beim nächsten verschieben über den Rand hinausgehen würde und dann gff. ganz nach links packen.
So, das musste dir jetzt selber zusammenbasteln.