Klassen Ableiten... Aber wie

[Real_Thunder]

Irgendiwe stehe ich gerade auf den Schlauch was das Ableiten von Klassen Betrifft....

ich habe es so versucht:

Delphi-Quellcode:

type
  THaAuswahlRec = Record
    FeldAus: TCheckBox;
    SpaltenBrei: Integer;
    SpaltenBez:String;
    BoxChecked:Boolean;
   end;

   TSGrid = class(TStringGrid)

    public
    constructor Create(Sender: TObject); // Eigenen Constcutor setzten

    end;

  TStartForm = class(TForm)
    Hauptmenu: TMainMenu;
    Patenschaften1: TMenuItem;
    Sterntaler1: TMenuItem;
    ...
    ...
  end;


...
...
...

constructor TSGrid.Create(Sender: TObject);

begin
constructor TSGrid.Create(Sender: TObject);

begin

  PicUp:= TBitmap.Create;
  PicUp.LoadFromResourceName(HInstance, 'ARROWUP');
  PicUp.Transparent:= True;
  PicDown:= TBitmap.Create;
  PicDown.LoadFromResourceName(HInstance, 'ARROWDOWN');
  PicDown.Transparent:= True;

end;

Das Ganze hat den Hintergrund das ich versuhe dieses in mein Programm einzubinden
Delphi-PRAXiS :: TStringGrid, Sortier-Pfeil anzeigen

end;