003
15.09.2002, 20:36 Uhr
tobitobsen100
|
so: hier ist der komplette code:
Du brauchst 2 formen mit jeweils 1 Timer und Für Form1 bool booa
und int farbe, und für form2 int farbe2.
code für Form1->FormCreate:
der code für Form1->Timer1
| C++: |
SetWindowPos(Form1->Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
if (booa == true)
{
Form2->Show();
Timer1->Interval = 10;
RichEdit1->Visible = false;
}
Form1->BorderStyle = bsNone;
Form1->Width =1; //Punktbreite - sollte 1 betragen
Form1->Height =1; //Punkthöhe - sollte 1 betragen
Form1->Top = Screen->Height /2 - ClientHeight /2;//Punkt wir in Bildschirmmitte gesetzt
Form1->Left= Screen->Width /2 - ClientWidth /2 - 2; //Punkt wir in Bildschirmmitte gesetzt
if (farbe == 1)
Form1->Color = clBlack;
if (farbe == 2)
Form1->Color = clMaroon;
if (farbe == 3)
Form1->Color = clGreen;
if (farbe == 4)
Form1->Color = clOlive;
if (farbe == 5)
Form1->Color = clPurple;
if (farbe == 6)
Form1->Color = clTeal;
if (farbe == 7)
Form1->Color = clGray;
if (farbe == 8)
Form1->Color = clSilver;
if (farbe == 9)
Form1->Color = clRed;
if (farbe ==10)
Form1->Color = clLime;
if (farbe ==11)
Form1->Color = clYellow;
if (farbe ==12)
Form1->Color = clBlue;
if (farbe ==13)
Form1->Color = clFuchsia;
if (farbe ==14)
Form1->Color = clWhite;
farbe = farbe + 1;
if (farbe > 14)
farbe = 0;
|
und der code für Form2->Timer1:
| C++: |
SetWindowPos(Form2->Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE|SWP_NOSIZE);
Timer1->Interval = 10;
Form2->BorderStyle = bsNone;
Form2->Width =1; //Punktbreite - sollte 1 betragen
Form2->Height =1; //Punkthöhe - sollte 1 betragen
Form2->Top = Screen->Height /2 - ClientHeight /2;//Punkt wir in Bildschirmmitte gesetzt
Form2->Left= Screen->Width /2 - ClientWidth /2 + 2; //Punkt wir in Bildschirmmitte gesetzt
if (farbe2 == 1)
Form2->Color = clBlack;
if (farbe2 == 2)
Form2->Color = clMaroon;
if (farbe2 == 3)
Form2->Color = clGreen;
if (farbe2 == 4)
Form2->Color = clOlive;
if (farbe2 == 5)
Form2->Color = clPurple;
if (farbe2 == 6)
Form2->Color = clTeal;
if (farbe2 == 7)
Form2->Color = clGray;
if (farbe2 == 8)
Form2->Color = clSilver;
if (farbe2 == 9)
Form2->Color = clRed;
if (farbe2 ==10)
Form2->Color = clLime;
if (farbe2 ==11)
Form2->Color = clYellow;
if (farbe2 ==12)
Form2->Color = clBlue;
if (farbe2 ==13)
Form2->Color = clFuchsia;
if (farbe2 ==14)
Form2->Color = clWhite;
farbe2 = farbe2 + 1;
if (farbe2 > 14)
farbe2 = 0;
|
ich hoffe das hilft dir ,
--
___________________________________
Tobi |
