Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Como programar un Scroll bar Vertical (https://www.clubdelphi.com/foros/showthread.php?t=46922)

TKW04 13-08-2007 21:49:52

Como programar un Scroll bar Vertical
 
Quiero saber como progrmaa una scroll bar vertical

Emilio 13-08-2007 21:54:35

Cita:

Empezado por TKW04 (Mensaje 222702)
Quiero saber como progrmaa una scroll bar vertical

Con mucho equilibrio.

TKW04 13-08-2007 21:56:00

....
 
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 13-08-2007 22:15:11

Cita:

Empezado por TKW04 (Mensaje 222707)
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 13-08-2007 22:25:30

ok no problme
 
ok no problme

TKW04 13-08-2007 22:27:09

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

Emilio 13-08-2007 22:34:41

Cita:

Empezado por TKW04 (Mensaje 222723)
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 14-08-2007 01:34:31

Cita:

Empezado por Emilio (Mensaje 222728)
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 ;).

cHackAll 14-08-2007 02:00:49

: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 14-08-2007 02:16:06

Cita:

Empezado por Emilio (Mensaje 222728)
.... 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, si hubieras mirado antes la sección trucos lo habrías encontrado:


Código Delphi [-]
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 15-08-2007 00:07:12

Cita:

Empezado por Julián (Mensaje 222786)
Aquí tienes la solución, en el truco 134, 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 15-08-2007 02:39:16

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 15-08-2007 08:19:04

Cita:

Empezado por cHackAll (Mensaje 223132)
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 15-08-2007 16:37:38

Cita:

Empezado por Emilio (Mensaje 223084)
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:

Código Delphi [-]
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.


La franja horaria es GMT +2. Ahora son las 08:03:01.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi