Yaptığım görsel componentte scroolbar nasıl eklerim ?

[mustafa_90]

Merhaba;
Görsel bir componentte scroolbar nasıl ekleyebilirm ?. Mesela görsel componentin yüksekliğini 500 olarak ayarladım eğer bu yüksekliği aşarsa diğer kısımları scroolbar sayesinde nasıl gösterebilirim ?
Örnek;
type TmyComponent = class(TGraphicControl)
protected
procedure Paint; override;
end;

procedure TmyComponent.Paint;
begin
inherited;
canvas.brush.color:=clBlue;
canvas.rectangle(0,width,height,0);
end;

[Master43]

Kod: Tümünü seç

type TMyComponent = class(TGraphicControl)
protected
  FScrollBarShown: Boolean;
  procedure Paint; override;
  procedure ShowScrollBar(const Visible: Boolean);
end;

procedure TMyComponent.Paint;
begin
  inherited;
  canvas.brush.color:=clBlue;
  canvas.rectangle(0,width,height,0);
end;

procedure TMyComponent.ShowScrollBar(const Visible: Boolean);
begin
  if Visible <> FScrollBarShown then
  begin
    FScrollBarShown := Visible;
    Windows.ShowScrollBar(Handle, SB_VERT, Visible);
  end;
end;

[mustafa_90]

Teşekkürler. Yanlız şöyle bir sorun kaldı mesela ben sınırları nasıl belirteceğim ?. Yani mesela yüksekliği 500 verdiğim eğer bu değeri aşarsa scroolbar ile göstermek istiyorum, bu değerleri nasıl verebilirim ?