[Nikilay_88]

Здравствуйте, помогите пожалуйста!!!!
Вообщем нужно чтоб объект заменял 2 цвета, при чем время задержки цвета вбивается вручную..... Например лампочка включилась(жёлтый цвет)
на десять секунд.... и выключилась(черный цвет) на 1 секунду... потом меняешь значение ... включилась на 1 секунду выключалась на 3 сек.... и т.д это нужно делать по нажатии кнопки на форме...

[Aristarh Dark]

TTimer спасет гиганта мысли.

[Nikilay_88]

я и так с таймером делаю... есть два поля edit 1 и edit2 первому даешь значение сколько будет показываться желтый второму черный.... и по заданным значениям объект должен мигать.... как это написать то?

[ined]

Значит задал вопрос не правильно 1ый раз. Точнее выражайся.!!
Так что тебе конкретно то надо? Опиши проблему подробнее.

[Nikilay_88]

короче.... два поля edit1,и edit2.... нужно чтобы объект -panel1 меняла два цвета с периодом который задаешь в полях( при клике на кнопку).. Менять цвет должна без остановки, (как лампочка которая мигает беспрерывно, тока интервал между ВКЛ и ВЫКЛ задаешь самостоятельно) Так понятно надеюсь? Помогите пожалуйста !!!!

[ined]

Тебе нужно что то вроде :

Код:

type

  TLamp = record
    cvet: integer;
    tik: integer;
  end;

  TMLamp = array[boolean] of TLamp; 

Надеюсь дальше сам до думаешь

[ined]

Я те помогу.
Попробуй использовать sleep и StrToInt.

Надеюсь ты разберёшься куда чего вставить?

TTimer спасет гиганта мысли.

Это по лучше будет.

[ined]

Да и ещё. Тут получается, что 3 цвета. Жёлтый,чёрный и нейтральны.
ТЕ Жёлтый вкл на 10 сек => Чёрный на 1 сек => Нейтральный.

[Nikilay_88]

у меня объект это panel1.... по умолчанию цвет черный, когда выставляешь значение в edit2 , например 5000, то через 5 сек становиться желтым... и стоит так))

[ined]

Сообщение от Nikilay_88

у меня объект это panel1.... по умолчанию цвет черный, когда выставляешь значение в edit2 , например 5000, то через 5 сек становиться желтым... и стоит так))

Угу понятно. Тут всё просто. Нужно только слегка подумать. И добавить немного логических операторов типа IF.