Выполнить действие один раз.

[IVANSour]

Кто мне подскажет как выполнить действие один раз.
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
например открыть форму.

[KORN]

нафига создавать 2 темы7

используй кнопку, либо Flag: boolean;

if not flag then
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
flag:=true;
end;

[IVANSour]

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

нафига создавать 2 темы7

используй кнопку, либо Flag: boolean;

if not flag then
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
flag:=true;
end;

Мне было просто необходимо открыть форму
без кнопки.
А теперь мне надо чтоб действие не повторялось
begin
Form3.ShowModal;
ShowModal:=true;

[KORN]

я ж написал тебе пример, он как раз работает из под таймера... и ShowModal:=true; писать не обязательно

З.Ы. нафиг ты создал 3 темы то7

[maladoy]

З.Ы. нафиг ты создал 3 темы то7

тоже видимо зациклило!!!

[KORN]

видимо бан захотелось, либо мозгов не хватает и думает что так ему будет больше народу отвечать

[IVANSour]

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

я ж написал тебе пример, он как раз работает из под таймера... и ShowModal:=true; писать не обязательно

З.Ы. нафиг ты создал 3 темы то7

2 темы я создал нечайно.

[KORN]

нифига себе нечайно... это дело не одного клика... хватит на форуме гадить... и так хватает...

[IVANSour]

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;

end;
end;
end.

вот мой код он рабочий но мне необходимо чтобы действие происходило один раз . Как это остановить что действие постоянно повторяется.
Мне этот код подходит как не какой другой но найти я чтото не могу
по поводу одного раза может кто подскажет если сталкивались.

[KORN]

ты что издеваешься7 я ж тебе писал уже....

var
  flag: boolean; // глобальная переменная

procedure TForm1.Timer3Timer(Sender: TObject);
begin
if not flag then
begin
  if Edit1.Text>='01.02.2009'then
  begin
  Form3.ShowModal;
  flag:=true;
  end;
end;