|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2010, 22:01 | #1 |
Пользователь
Регистрация: 26.05.2010
Сообщений: 34
|
Секундомер
Народ нужна помощь.заранее спасибо
Задача такая: при нажатие на кнопку форма разворачиваеться на весь экран,окрашиваеться в черный цвет,и в разных местах экрана каждый такт таймера появляеться и исчезает круг случайного цвета и случайного размер. Код HTML:
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ t++;
if (t==3) t=1;
switch (t) {
case 1: Shape1->Visible=false;
break;
case 2: Shape1->Visible=true;
}
int a=rand();
Shape1->Brush->Color=a;
Shape1->Left = rand()%(Form1->ClientWidth-Shape1->Width+1);
Shape1->Top = rand()%(Form1->ClientHeight-Shape1->Height+1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
t=0;
Form1->Color=bsSolid;
SetWindowPos(
Form1->Handle,
HWND_TOPMOST,
0,
0,
Screen->Width,
Screen->Height,
0);
Timer1->Enabled=true;
Button1->Visible=false;
}
|
26.05.2010, 22:10 | #2 | ||
Новичок
Джуниор
Регистрация: 26.05.2010
Сообщений: 8
|
измени
Цитата:
Цитата:
|
||
26.05.2010, 22:10 | #3 | ||
Новичок
Джуниор
Регистрация: 26.05.2010
Сообщений: 8
|
измени
Цитата:
Цитата:
|
||
26.05.2010, 22:14 | #4 |
Пользователь
Регистрация: 26.05.2010
Сообщений: 34
|
XaMeJIeoH
спасибо.все работает. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Секундомер | girkoff | Общие вопросы C/C++ | 3 | 26.12.2009 12:30 |
Секундомер | aesoem | Общие вопросы Delphi | 10 | 28.01.2008 19:25 |
секундомер | itisiam | Общие вопросы Delphi | 6 | 31.05.2007 16:55 |