Я искренне верю, что праздник Новый год присутствует в нашей жизни не только с 31 декабря по 1 января. И только убеждаюсь в своей искренней вере, когда вижу задания на мигающие элементы лицевой панели. Вообще говоря, рядовой пользователь какой-либо программы вряд ли обрадуется постоянному миганию кнопок и эдитов, но почему-то задания такие есть и будут в различных пособиях и учебниках по программированию.
Итак все же давайте рассмотрим решение следующей задачи: написать программу, выполняющую мерцание любого элемента лицевой панели. Алгоритм решения будет несколько похож на приведенный в этой статье. Мигать у нас будет TEdit с красного на желтый, а флагом характеризующим цвет на данный момент выберем булевую переменную colorRed (которую обозначим в private для удобства). Про TTimer можно прочитать здесь.
Исходники Delphi:
procedure TForm1.FormCreate(Sender: TObject);
begin
eMigaet.Color:=clRed;
colorRed:=true
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if colorRed=true then
begin
eMigaet.Color:=clYellow;
colorRed:=false
end
else begin
eMigaet.Color:=clRed;
colorRed:=true
end
end;
Можете поэкспериментировать и изобразить целую гирлянду мигающих Edit'ов. Пусть пока без елочки, но Новый год проснется в душе, уверяю:)
Или можете поручить мне выполнить программу на заказ (контакты).
| 