102
else panel_login.Visible := true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label56.Visible then label56.Visible := false
else label56.Visible := true;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
label50.Caption := inttostr(trackbar1.Position);
if (trackbar1.Position = 180)and(checkbox2.Checked) then
begin
label56.Visible := true;
timer1.Enabled := true;
end
else
begin
label56.Visible := false;
timer1.Enabled := false;
end;
end;
procedure TForm1.TrackBar2Change(Sender: TObject);
begin
label51.Caption := inttostr(trackbar2.Position);
end;
procedure TForm1.TrackBar3Change(Sender: TObject);
begin
label52.Caption := inttostr(trackbar3.Position);
end;
Comentarios a estos manuales