кассы в delphi

[Terrance!]

Я уже наверное в печёнках сижу у всего форума со своими вопросами по классам, но всё же, не бросайте! Я уже почти разобрался в них!

Написал класс Tunit с работающим конструктором

unit Unit1;

interface

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

type
  Tunit = class

  private
  i:Tbitmap;
  x,y,o,n:integer;
  t:Ttimer;
  public
  constructor create;
  end;
  TForm1 = class(TForm)
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Timer1Timer(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  z:integer;
implementation

{$R *.dfm}
constructor Tunit.create ;
begin

n:=1;
o:=1;
x:=100;
y:=100;
i:=tbitmap.Create;
i.Transparent:=true;
i.LoadFromFile(inttostr(n)+'/'+inttostr(o)+'/'+ inttostr(unit1.z)+'.bmp');
form1.PaintBox1.Canvas.Draw(x,y,i);
end;
end;



procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then Tunit.create;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 z:=z+1;
 if z>2 then z:=1;

end;

end.

Мучает вопрос!
Как назначить кусок конструктора

i.LoadFromFile(inttostr(n)+'/'+inttostr(o)+'/'+ inttostr(unit1.z)+'.bmp');
form1.PaintBox1.Canvas.Draw(x,y,i);

в таймер?
p. s.
пробовал так:

for unit1.Form1.Timer1
begin ...

- не получилось.

[Пепел Феникса]

никак. это же одна процедура, она работает целиком, напишите метод в котором вызывайте этот код.

[Stilet]

form1.PaintBox1.Canvas.Draw(x,y,i);

А вот это вот я бы лучше упихнул в OnPaint Паинтбокса

[Terrance!]

Можете пример показать?Я уже 2 дня на этот класс убил, всё яндексил, а ничего такого, про таймер не нашёл.

[Stilet]

Ок. Но ты четко опиши задачу. Иначе получишь только примеры как с событиями работать

[Terrance!]

unit1.Form1.Timer1.OnTimer
begin

end;

вот что можно вставить в конструктор,
но компилятор кричит на эту строку:
[Error] Unit1.pas(50): Not enough actual parameters

Опсь, сначала не заметил нового ответа . мне нужно вшить таймер в конструктор, чтобы, когда я создавал класс, какое-то действие происходило постоянно.

Вот например создаю я Tunit.create, и , как я понял, всё что я написал в конструктор выполнится.
И я вот подумал, как же мне сделать так, чтобы например картинка, или какая нибудь переменная менялась в зависимости от условий, а проверка на наличие какого-то условия происходила постоянно.

[Stilet]

Ок. Вот класс-компонент со встроенным таймером, который пишет время в заголовок окна

unit Unit1;

interface

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

type
 Tunit=class(TComponent)
  private
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
  public
   constructor Create(AOwner: TComponent);
 end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
   u:Tunit;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 u:=Tunit.Create(self);
end;


{ Tunit }

constructor Tunit.Create;
begin
 Timer1:=TTimer.Create(self);
 Timer1.OnTimer:=Timer1Timer;
 Timer1.Interval:=1000;
 Timer1.Enabled:=true;
end;


procedure Tunit.Timer1Timer(Sender: TObject);
begin
 form1.Caption:=TimeToStr(now);
end;

end.

Смысл понятен?

[Terrance!]

Да! Спасибо!

И ещё вопросик: Можно ли таким образом написать код для таймера внутри конструктора? Просто если я что-то пишу в поле конструктора, то могу пользоваться всеми переменными, включая все переменные этого класса.
А если в процедуре таймера, вне конструктора то переменные класса недоступны.

[Stilet]

А если в в процедуре таймера, вне конструктора то переменные класса недоступны.

Делай эти переменные полями класса или вообще глобальными переменными в модуле.