Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 16.01.2014, 19:55   #1
Kseniya111
 
Регистрация: 12.01.2013
Сообщений: 4
Подмигивание создание компонента, который с течением времени двигается, меняет цвет и размер

Создаю компонент, меняющий цвет, размер и местоположение с течением времени. После создания, когда я его уже использую на этапе разработки приложения, то он выполняет эти функции (смена цвета, местоположения и размера). Но при запуске приложения, все это останавливается.
Код:
unit LabelCh;

interface

uses
 Windows, Messages,  Variants, Graphics,  Forms, Dialogs, SysUtils,
 Classes, Controls, ExtCtrls, StdCtrls;

type
  TLabelChange = class(TCustomPanel)
  private
    { Private declarations }
    kLabel:TLabel;
    kTimer:TTimer;
    procedure kTimerTimer(Sender: TObject);
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner:TComponent); override;

  published
    { Published declarations }
     property Label1: TLabel read kLabel write kLabel;
     property Timer1: TTimer read kTimer write kTimer;
  end;

procedure Register;

var flag: boolean;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TLabelChange]);
end;

constructor TLabelChange.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  kLabel:=TLabel.Create(Self);
  kLabel.Parent:=Self;
  kLabel.Color:=0;
  kLabel.Font.Size:=8;
  kLabel.Caption:='NewComponent';
  kLabel.Visible:=true;
  kLabel.SetSubComponent(true);

  kTimer:=TTimer.Create(Self);
  kTimer.SetSubComponent(true);
  kTimer.OnTimer:=kTimerTimer;
  kTimer.Enabled:=true;
end;

procedure TLabelChange.kTimerTimer;
begin
invalidate;
  kLabel.Left:=kLabel.Left+3;
  kLabel.Font.Color:=kLabel.Font.Color+2;
  kLabel.Font.Size:=kLabel.Font.Size+1;
end;

end.
Kseniya111 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
StringGrid не меняет цвет фона. ZBEP Компоненты Delphi 17 21.01.2015 08:57
задача с прямым течением времени, где ошибка? eaita Помощь студентам 4 24.11.2012 14:20
при печати текст меняет цвет - баг CSS? Hail HTML и CSS 1 13.11.2009 10:50
макрос который во время вычислений меняет курсор мыши. Екатерина__ Microsoft Office Excel 2 06.08.2009 22:49
SetBkColor не меняет цвет фона EdNovice Win Api 3 18.02.2008 23:59


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя