Como programar un Scroll bar Vertical

[Julián]

Empezado por Emilio

.... 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.