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
tarea escolar con track bar
Comenzado por
albertolortiz
, sep 16 2011 06:54
4 respuestas en este tema
#1
Escrito 16 septiembre 2011 - 06:54
#2
Escrito 16 septiembre 2011 - 07:56
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
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
#3
Escrito 16 septiembre 2011 - 08:31
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...
#4
Escrito 16 septiembre 2011 - 08:51
me preocupa mas lo de mostrar los componentes con la posicion del track bar
#5
Escrito 17 septiembre 2011 - 10:08
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
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