OT: Delphi problem

[Zdenek]

Mate pravdu. Tohle funguje, ale puvodne jste nepsal nic o timeru, takze 
jsem zkousel:

procedure attiny26.FormActivate(Sender: TObject);
begin
   attiny26.ModalResult:=mrCancel;
end;

... coz neslo.

Dik. Zdenek

iko napsal(a):
> 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
>>
>>
>>
>>
>>
> 
> 
>