112
else
begin
edit20.Visible := false;
edit3.Visible := true;
end;
end;
procedure TForm1.ComboBox4Change(Sender: TObject);
begin
if combobox4.ItemIndex = 0 then
begin
edit6.Enabled := false;
edit11.Enabled := false;
edit12.Enabled := false;
edit14.Enabled := false;
edit15.Enabled := false;
edit16.Enabled := false;
edit17.Enabled := false;
end
else
begin
edit6.Enabled := true;
edit11.Enabled := true;
edit12.Enabled := true;
edit14.Enabled := true;
edit15.Enabled := true;
edit16.Enabled := true;
edit17.Enabled := true;
end;
end;
procedure TForm1.Connected2Click(Sender: TObject);
begin
if not IdTelnet1.Connected then
Komentáře k této Příručce