выполнить действие.

[IVANSour]

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Edit1.Text>='19.01.2009'then
begin
Form1.Butun1Click:= Close;
end;

end;

end.

Подскажите что здесь не так.

[Arigato]

Т.е. Вы хотите что бы после того, как выполнено условие, нажатие на кнопку вызывало закрытие формы, так? Тогда можно сделать что-то такое:

var Flag: Boolean = False;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Flag then Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Flag := (Edit1.Text >= '19.01.2009');
end;

Только учтите, что указанное условие будет выполнено, когда строка в поле Edit1 больше '19.01.2009', а не когда введённая дата больше, т.е. '20.01.2008' > '19.01.2009'.

[r9m]

Или вот так:

procedure TForm1.CloseForm(Sender: TObject);
begin
Form1.Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Edit1.Text>='19.01.2009' then Button1.OnClick:=CloseForm;
end;

[Квэнди]

Edit1.Text>='19.01.2009'

вы уверены что вам нужно именно побайтовое сравнение строк ?

[IVANSour]

Я хотел просто открыть форму по выполнению этого действия я это сделал.
if Edit1.Text>='01.02.2009'then
begin
Form3.ShowModal;
А кто может подсказать как это сделать один раз?

[KORN]

я ж уже написал1 нафига стока тем создавать блин7

[Квэнди]

Автору топика предупреждение.
темы закрыты