4 respuestas en este tema

[albertolortiz]

Estoy trabajando en un proyecto escolar:
  El programa debe incluir hilos, trackbar y unos componentes que creamos en clase (circulo, lineas, poligonos) pretendemos usar un trackbar que al moverlo, muestre los componentes que creamos (circulo, lineas, poligonos), ya tengo el trackbar mostrando letras con un case, pero no se como harle para mostrar las practicas, alguna idea
lei algo de ImageList pero no se como implementarlo

[Caral]

Hola
Creaste componentes, estos deben tener procedimientos.
Me imagino que tendras que crearlos en tiempo de ejecucion al corre el trackbar.
Seria bueno que nos mostraras el codigo que tienes, nos daria una mejor perspectiva de lo que quieres hacer.
Saludos

[albertolortiz]

delphi

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, ULabel3D;
 
type
  TForm4 = class(TForm)
    TrackBar1: TTrackBar;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    Label3D1: TLabel3D;
    procedure FormPaint(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  contar: Integer=1;
 
implementation
 
uses Unit3;
 
var
hilo:TContador;
 
{$R *.dfm}
 
function mes(nume:integer):string;
 
begin
case nume  of
1: result:='Enero';
2: result:='Febrero';
3: result:='Marzo';
4: result:='Abril';
5: result:='Mayo';
6: result:='Junio';
7: result:='Julio';
8: result:='Agosto';
9: result:='Septiembre';
10: result:='Octubre';
11: result:='Noviembre';
12: result:='Diciembre';
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
    hilo:=TContador.create(false);
    hilo.FreeOnTerminate:=True;
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
hilo.Terminate;
end;
 
procedure TForm4.FormPaint(Sender: TObject);
begin
canvas.TextOut(200,150,mes(trackbar1.position));
end;
 
procedure TForm4.TrackBar1Change(Sender: TObject);
begin
refresh;
end;
 
end.

esto es lo que tenemos:
tiene un hilo con un timmer
  1.- queremos que el timer controle el trackbar
  2.- y que el tracbar muestre nuestro componentes, que si tienen procedimientos...

[albertolortiz]

me preocupa mas lo de mostrar los componentes con la posicion del track bar

[egostar]

Hola albertolortiz, bienvenido a DelphiAccess.

Que se supone que debe mostrarse, porque así como tienes el programa te muestra el mes dependiendo de la posición del trackbar, no se sabe que es el componente TContador.

Salud OS