FormShow method |
Applies to
TForm3
Declaration
procedure FormShow(Sender: TObject);Implementation
procedure TForm3.FormShow(Sender: TObject); begin try if tag=1 then timer1.Enabled := true else if tag=2 then timer2.Enabled := true else if tag=5 then timer3.Enabled := true; except end;End; |
|