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;