OT: Delphi problem

[iko]

Podla mna to funguje, hned po vasej sprave som to skusil:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
  Form2.ShowModal;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Form2.ModalResult:=mrYes;
end;

Timer1 ma interval 5000ms. Po kliknuti na gombil Button1 mi vyskoci
Form2 a potom po 5 sekundach mi zmizne.

Funguje. Chyba bude zrejme niekde inde.

Zdenek wrote:
> Tohle bylo prvni, co jsem zkusil. Bez uspechu.
> 
> Zdenek
> 
> 
> iko napsal(a):
>> form.ModalResult:=mrNo;
>>
>> Use ModalResult to close the form when it is displayed modally.
>>
>> Zdenek wrote:
> _______________________________________________
> HW-list mailing list  -  sponsored by www.HW.cz
> Hw-list@list.hw.cz
> http://list.hw.cz/mailman/listinfo/hw-list
> 
> 
> 
> 
> 


-- 
Odchadzajuca sprava obsahuje 163 virusov.
The outgoing message contain 163 unwanted surprises
Skontrolovane Antivirusovým systemom KFC.
Verzia: 7.2.130 / Vírusová databáza: 562.2.5