AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Klassen Ableiten... Aber wie

Ein Thema von Real_Thunder · begonnen am 18. Mär 2007 · letzter Beitrag vom 18. Mär 2007
Antwort Antwort
Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#1

Klassen Ableiten... Aber wie

  Alt 18. Mär 2007, 02:48
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;
  Mit Zitat antworten Zitat
Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Klassen Ableiten... Aber wie

  Alt 18. Mär 2007, 02:54
Moin Real Thunder,

warum gibst Du Deinem Constructor Sender:TObject?
Bei einem StringGrid wäre üblich AOwner:TComponent.
Du kannst den Konstruktor zwar so gestalten, wie Du willst bzw. es brauchst, aber eine Komponente sollte schon den Owner mit übergeben bekommen, da dieser, wenn er angegeben wird, für die Freigabe zuständig ist.

Ausserdem fehlt in Deinem Konstructor noch der Aufruf

Delphi-Quellcode:
begin
  inherited;
  //...
end;
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat
Real_Thunder

Registriert seit: 25. Apr 2006
197 Beiträge
 
#3

Re: Klassen Ableiten... Aber wie

  Alt 18. Mär 2007, 03:09
vielen dank,
nun bekmme ich keine exeption mehr und er erstellt mir auch das Stringgrid...

nn muß ich nurnoch irgendwie herausbekommen, wie dies hier gemeint ist:

Zitat:
und im OnDrawCell des Forms

Die Zeile
iOrderId=ProjectList.iOrderId

ist True, wenn die aktuell anzuzeigende
Spalte (ACol) die Sortierspalte ist.

ProjectList.bOrderAsc benutze ich zum Umkehrung der Sortierung
Delphi-Quellcode:
  if (ARow=0) then
  begin
    iOrderId:= GridColIndex2OrderId(ACol);

    Inc(Rect.Left,2);

    if iOrderId=ProjectList.iOrderId then
    begin
      Rect.Right:= Rect.Right-16;
    end;

    DrawText(c.Handle, PChar(theGrid.Cells[ACol,ARow]),
      Length(theGrid.Cells[ACol,ARow]), Rect,
      DT_END_ELLIPSIS or DT_CENTER);

    if iOrderId=ProjectList.iOrderId then
    begin
      Rect.Right:= Rect.Right+16;
    end;

    if iOrderId=ProjectList.iOrderId then
    begin
      if ProjectList.bOrderAsc then
      begin
        c.Draw(Rect.Right-15,((Rect.Bottom-Rect.Top) div 2)-6,Grid.PicUp);
      end
      else
      begin
        c.Draw(Rect.Right-15,((Rect.Bottom-Rect.Top) div 2)-6,Grid.PicDown);
      end;
    end;
ich merke schon.. muß mich mal wieder mit den Delphi "Basics" befassen
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:11 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz