Изменение цвета на динамически созданных объектах

[Stilet]

Как и обещал выношу идею панели-мигалки:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  { TPanel }

  TPanel=class (ExtCtrls.TPanel) {Опишем панель-мигалку}
    private
      t:TTimer;    // У нее будет для этого встроенный таймер
      procedure Timer(Sender: TObject);
    public
      property Color; // У мну колор приватный, поэтому переописываю его.
      //В твоем делфи может быть это не потребуется
      constructor Create (TheOwner: TComponent); override;
      destructor Destroy; override;
  end;

  TForm1 = class(TForm)
    // Панели кидаются на форму как обычно или создаютс динамически
    Panel1: TPanel;
    Panel2: TPanel;
    Timer1: TTimer;
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }


{$R *.lfm}

{ TPanel }

procedure TPanel.Timer(Sender: TObject);
begin
 // По срабатыванию таймера мигаем
 if color=clRed then color:=clGray else color:=clRed;
end;

constructor TPanel.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  // При создании панели создаем и активируем таймер
  t:=TTimer.Create(self);
  // В примере интервал - случайное число
  t.Interval:=random(1000);
  t.OnTimer:=@Timer;
  t.Enabled:=true;
end;

destructor TPanel.Destroy;
begin
 //При освобождении панели освобождаем и таймер
  t.Enabled:=false;
  t.Free;
  t:=nil;
  inherited Destroy;
end;

end.

Только прошу не копипастить.

[loom12]

Сообщение от min@y™

А чем мой вариант-то не угодил?

Туго у меня с созданием своих классов, подхожу я к ним постепенно. Не понял как создание своего класса мне поможет. Мыслю я пока пошагово когда-то с микропроцессорами возился. Каждый шаг выполнял определенное действие, светодиод зажечь и т.п. Вот если б кто обьяснил на конкретной задаче, как мне что я придумал в класс запихнуть и потом использовать. Ну а так время покажет может дойдет когда нибуть. А задачу надо решать сейчас вот и приходится делать как могу. Всем спасибо!

[min@y™]

Туго у меня с созданием своих классов, подхожу я к ним постепенно. Не понял как создание своего класса мне поможет.

А!...
Ну ладно, чо...
Бывает...

[loom12]

Только прошу не копипастить.


Так зачем же копировать не разобравшись. Буду разбираться. Теперь начинаю понимать смысол. Классы удобная вещь, только надо понять принцип. В книге читаешь вроде понятно, проходит время если долго не занимался забывается. Спасибо!

[Stilet]

Так зачем же копировать не разобравшись.

Ну это хорошо что ты понимаешь )
Так ведь попадается "быстрый" котингент, которому пофик на моск.

проходит время если долго не занимался забывается

Верю.

P.S. О! Кста! Рекомендую насчет классов почитать Тексейру и Пачеко. Я часто а них ссылаюсь, ибо книга у них вышла воистину библиотическия про Делфи.

[min@y™]

Рекомендую насчет классов почитать Тексейру и Пачеко. Я часто а них ссылаюсь, ибо книга у них вышла воистину библиотическия про Делфи.

У меня есть. Кому спиратить копию?!

[loom12]

Сообщение от min@y™

У меня есть. Кому спиратить копию?!

А как можно файлик забрать?

[min@y™]

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

А как можно файлик забрать?

БОЛЬШАЯ ССЫЛКА В СИБИРЬ

[loom12]

Сообщение от min@y™

БОЛЬШАЯ ССЫЛКА В СИБИРЬ

Спасибо ! ! !