|
|
 |
 |
|
Paypal | |
|
FTP | |
|
CCD | |
|
Buscar | |
|
Trucos | |
|
Trabajo | |
|
Foros | |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#3
30-12-2005
|
||||
|
||||
|
Ejemplo, espero te sirva.
const ALTO=480; ANCHO=696;procedure TForm1.FormCreate(Sender: TObject);begin Height:= ALTO; Width:= ANCHO;end;procedure TForm1.TrackBar1Change(Sender: TObject);begin Height:= ALTO+TrackBar1.Position; Width:= ANCHO+TrackBar1.Position;end;
|
|
|
 |
|
Modo Hilado