Como programar un Scroll bar Vertical

[TKW04]

Quiero saber como progrmaa una scroll bar vertical

[Emilio]

Quiero saber como progrmaa una scroll bar vertical

Con mucho equilibrio.

[TKW04]

PAPA No es un chercha yo quiero aprender a programar no a decir idioteses
como lo que dijiste si usd sabe hable y diga como de lo contrario no opine

[Emilio]

PAPA No es un chercha yo quiero aprender a programar no a decir idioteses
como lo que dijiste si usd sabe hable y diga como de lo contrario no opine

Disculpa, es que soy nuevo y tal vez no entendí bien la pregunta :confused:

[TKW04]

ok no problme

[TKW04]

Hey me puedes decir como programar un scrollbox... es que me gusta la programacion y desconosco de muchas cosas

[Emilio]

Hey me puedes decir como programar un scrollbox... es que me gusta la programacion y desconosco de muchas cosas

Pues creo que tienes que coger una caja o algo parecido, ya sabes en inglés box=caja, lo del scroll ya no lo tengo tan claro y me dejé el diccionario en la universidad, estoy haciéndome ingeniero, ya casi tengo el título, bueno pues como estamos ya pillando buena amistad tal vez sepas como puedo yo programar un jander con esquinas clander, me dijerón que le preguntase a Grijander pero no lo localizo.

[jhonny]

Pues creo que tienes que coger una caja o algo parecido, ya sabes en inglés box=caja, lo del scroll ya no lo tengo tan claro y me dejé el diccionario en la universidad, estoy haciéndome ingeniero, ya casi tengo el título, bueno pues como estamos ya pillando buena amistad tal vez sepas como puedo yo programar un jander con esquinas clander, me dijerón que le preguntase a Grijander pero no lo localizo.

Pues BIENVENIDO¡¡¡ nuevo amigo Emilio, ¿Porque me parece que tu nick ya lo habia visto en alguna parte?, en todo caso, antes de que metas la pata en algún hilo y preguntes cosas sin sentido te sugiero que leas la Guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) ;).

[cHackAll]

:eek::eek::eek:
:confused::confused::confused:

Me perdi de algo?... epa Emilio que es eso? :p

TKW04 le haces click en el botoncito que dice TScrollBar y lo pones en el diseño del GUI de tu Form, luego usas Max, Min y Position

[Julián]

.... tal vez sepas como puedo yo programar un jander con esquinas clander, me dijerón que le preguntase a Grijander pero no lo localizo.

Aquí tienes la solución, en el truco 134 (http://www.clubdelphi.com/trucos/index.php?id=134&scroll=0&scrollb=0), si hubieras mirado antes la sección trucos lo habrías encontrado:



unit TorpedoDeLaPradera;

interface

uses Windows, Messages, SysUtils, Classes;

type

TTipoJander = ( NoPuedor, Comorl, Fistro);
TPropiedadJander = class(TPersistent)
private
FGrijander: String;
FCobarde: Boolean;
FTipoJander: TTipoJander;
FOwner: TPersistent;
protected
function GetOwner: TPersistent; override;
public
constructor Create(AOwner: TPersistent);
published
property Grijander: String read FGrijander write FGrijander;
property Cobarde: Boolean read FCobarde write FCobarde;
property TipoJander: TTipoJander read FTipoJander write FTipoJander default NoPuedor;
end;

TTorpedoDeLaPradera = class(TComponent)
private
FJander: TPropiedadJander;
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Jander: TPropiedadJander read FJander write FJander;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('ClubDelphi', [TTorpedoDeLaPradera]);
end;

//////////// Propiedad Jander //////////////////////////////////////////////////
//
constructor TPropiedadJander.Create(AOwner: TPersistent);
begin
inherited Create;
FGrijander := 'Jaaarl';
FTipoJander := NoPuedor;
FOwner := AOwner;
end;
//
function TPropiedadJander.GetOwner: TPersistent;
begin
Result := FOwner;
end;
//
////////////////////////////////////////////////////////////////////////////////

////////////// TTorpedoDeLaPradera /////////////////////////////////////////////
//
constructor TTorpedoDeLaPradera.Create(AOwner: TComponent);
begin
inherited;
FJander:= TPropiedadJander.Create(Self);
end;
//
destructor TTorpedoDeLaPradera.Destroy;
begin
if Assigned(FJander) then FJander.Free;
inherited;
end;
//
////////////////////////////////////////////////////////////////////////////////

end.


Probablemente se pudiera dotar de scrollbar este componente de un scrollbar duodenal. No sé, no puedorl.

[Emilio]

Aquí tienes la solución, en el truco 134 (http://www.clubdelphi.com/trucos/index.php?id=134&scroll=0&scrollb=0), si hubieras mirado antes la sección trucos lo habrías encontrado:

Jorl, justo lo que andaba buscando Ing. Julián, con icono de mi ídolo y todo :eek:

Ing. Julián, tu que pareces un tío con matrícula de honor en la carrera de ingeniero agrogrijander, seguro tienes solución para el problema del colega Ing. TKW04 ¿me equivoco?

[cHackAll]

Señores ingenieros, les escribo para comunicarle que hay un BUG que persiste desde ya casi un mes y asecha el portal, me pueden decir si el nombre del mismo es agrogrijander?

[Emilio]

Señores ingenieros, les escribo para comunicarle que hay un BUG que persiste desde ya casi un mes y asecha el portal, me pueden decir si el nombre del mismo es agrogrijander?

Estimado Ingeniero cHackAll, debo comunicarte que agrogrijander es una carrera de ingeniería aquí en España, es muy difícil y complicada sacarse el título, debes cursar durante 8 años, dos meses y tres días para poder acabarla en caso de ser muy aplicado.

Espero haber resuelto la duda.

[Julián]

Ing. Julián, tu que pareces un tío con matrícula de honor en la carrera de ingeniero agrogrijander, seguro tienes solución para el problema del colega Ing. TKW04 ¿me equivoco?

Pues verá usted, ing. Emilio, eso es facilisimo, con esta función que adjunto:


procedure NoPuedor;
begin
writeln('a güan, a peich, a jander, a gromenagüer, a peticaor, a jare naor, aweni peich');
end;


Un saludo ing.