Hallo Leute,
ich versuche mich gerade an einem Wiedereinstieg in die Materie der Pascal-Programmierung (unter Lazarus/fpc), bin aber offenbar mittlerweile komplett vernagelt/verkalkt. Ich moechte 5 nebeneinanderliegende ScrollBars ueber eine Array derselben erzeugen. Wie schreibe ich jetzt den
Eventhandler for den OnChange Event ? Als Procedure TForm1.ScrollBarChange und wie weise ich korrekt zu ? In der Change Procedure soll mit den Min- und Max-Werte des Scrollbars gerechnet werden...
Vielen Dank im voraus fuer die Hilfestellung.
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
{ TForm1 }
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
public
end;
var
Form1: TForm1;
scrbr:
Array of TScrollBar;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
begin
SetLength(scrbr,5);
for i:=0
to 4
do begin
scrbr[i]:=TScrollBar.Create(self);
scrbr[i].Parent:=self;
scrbr[i].Top:=90;
scrbr[i].Width:=250;
scrbr[i].Height:=30;
scrbr[i].Left:=i*40;
scrbr[i].Kind:=sbVertical;
scrbr[i].Min:=0;
scrbr[i].Max:=100;
scrbr[i].OnChange:=ScrollBarChange;
// <- da hake ich
end;
end;
end.