nav_keyTimer method |
Applies to
TForm1
Declaration
procedure nav_keyTimer(Sender: TObject);Implementation
procedure TForm1.nav_keyTimer(Sender: TObject); begin try nav_key.Enabled :=false; if nav_key.tag>-1 then form2.Notebook1.PageIndex :=nav_key.Tag; form2.FlatComboBox1.Text :=form1.nav_url.Caption; if trim(form1.nav_url.Caption)<>'' then form2.oxGraphicButton1Click(Sender); except end;End; |
|