Timer и его движение

[Айдар]

Вообщем такая проблема изм расположение лабел1, каждую сек времени: слева внизу, по центру сверху, справа внизу, тоесть лабел1 ходит как треугольник, только без основы, вообще делал делал, но чето не получается

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Timer1);//вызывает процедуру Timer1Timer с передачей параметров Timer1 после запуска программы
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now)+'PM';//записать системное время в надпись на лэйбелe
if (Label1.Alignment=taLeftJustify) AND (Label1.Layout=tlBottom)
then

[ZvEr_HaCkEr]

А эта тема не пойдет?

[Айдар]

там слишком сложно нельзя сделать через Alignment и Layout?

[Айдар]

вот начирикал, но пока не очень у кого работает?

procedure TForm1.Timer1Timer(Sender: TObject);
var
flag:integer;
begin
Label1.Caption:=TimeToStr(Now)+'PM';//записать системное время в надпись на лэйбелe
flag:= 1;
 if flag = 1 then begin
      Label1.Alignment:= taLeftJustify;
      Label1.Layout:= tlBottom;
      flag:= 2;
      Exit;
    end;
    if flag = 2 then begin
      Label1.Alignment:= taCenter;
      Label1.Layout:= tlTop;
      flag:= 3;
      Exit;
    end;
    if flag = 3 then begin
      Label1.Alignment:= taRightJustify;
      Label1.Layout:= tlBottom;
      flag:= 4;
      Exit;
    end;
    if flag = 4 then begin
      Label1.Alignment:= taCenter;
      Label1.Layout:= tlTop;
      flag:= 1;
      Exit;
    end;
end;

[TwiX]

flag в глобальные переменные и будет работать

Доавблено:
Проверял - всё работает. Флаг изначально должен быть 1. А в таймере убрать flag:=1;

[Айдар]

пробывал не работает(

[maxem72]

Эх, для любопытства сварганил программку на Delphi 7 и Delphi 9 и мой код немного другой, хотя похож на твой:

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1Timer(Timer1);
flag:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Now)+'PM';
 if flag = 1 then begin
      Label1.Alignment:= taLeftJustify;
      Label1.Layout:= tlBottom;
    end;
    if flag = 2 then begin
      Label1.Alignment:= taCenter;
      Label1.Layout:= tlTop;
    end;
    if flag = 3 then begin
      Label1.Alignment:= taRightJustify;
      Label1.Layout:= tlBottom;
    end;
    if flag = 4 then begin
      Label1.Alignment:= taCenter;
      Label1.Layout:= tlTop;
end;
flag:=flag+1;
if flag=5 then flag:=1

 end;
end.

PS: flag засунь в глобальную переменную как и сказали ранее (вверху твоего кода):

var
  Form1: TForm1;
  flag:integer; // это дописываешь себе
implementation

Надеюсь это требовалось или что-то другое?

PS: Да... Не увидел я дату последнего сообщения прежде, чем код написать... оплошал... Но сообщение удалять не буду, авось кому еще такой таймер понадобится...