Mehrere Listboxen

[EWeiss]

Zitat von DeddyH:

Außerdem gehören nur die Properties in den public-Abschnitt, die dazugehörigen Getter und Setter dagegen nach private.

Kann ich noch ändern .. Danke.
Ändert aber nichts an meinem Problem.

gruss

[DeddyH]

Ich verstehe aber immer noch nicht, wieso Du die Eigenschaften nicht in der Klasse deklarierst, sondern stattdessen noch mit einem externen Record herumhantierst.

[EWeiss]

Zitat von DeddyH:

Ich verstehe aber immer noch nicht, wieso Du die Eigenschaften nicht in der Klasse deklarierst, sondern stattdessen noch mit einem externen Record herumhantierst.

Gut ich werde's mal umbauen da ich mit meinem Record wohl etwas daneben liege.
Das habe ich berichtigt.

Delphi-Quellcode:

  public
    property Handle: HWND Read FHandle;
    property Top: Integer read GetTop;
    property DrawStyle: Integer read GetDrawStyle;
    constructor Create(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
      ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF);
    destructor Destroy; override;

Der Rest ist jetzt in Privat

gruss

[DeddyH]

Das sieht schon schlüssiger aus

[EWeiss]

Zitat von DeddyH:

Das sieht schon schlüssiger aus

Jup Danke dir werde mich in zukunft dran halten

gruss

[EWeiss]

Soooo...
Jetzt werden meine Properties gehalten.
Keine Ahnung was mich da geritten hat mit dem Record.

Delphi-Quellcode:

  public
    property Handle: HWND read GetHandle write FHandle;
    property AktForecolor: COLORREF read GetAktForecolor write FAktForecolor;
    property InAktForecolor: COLORREF read GetInAktForecolor write FInAktForecolor;
    property Backcolor: COLORREF read GetBackcolor write FBackcolor;
    property ShadowColor: COLORREF read GetShadowColor write FShadowColor;
    property ForeColorSelected: COLORREF read GetForeColorSelected write FForeColorSelected;
    property BackColorSelected: COLORREF read GetBackColorSelected write FBackColorSelected;
    property ShadowOffset: Integer read GetShadowOffset write FShadowOffset;
    property PointSize: Integer read GetPointSize write FPointSize;
    property DrawStyle: Integer read GetDrawStyle write FDrawStyle;
    property BorderStyle: Integer read GetBorderStyle write FBorderStyle;
    property Left: Integer read GetLeft write FLeft;
    property Top: Integer read GetTop write FTop;
    property Width: Integer read GetWidth write FWidth;
    property Height: Integer read GetHeight write FHeight;
    property Shadow: Boolean read GetShadow write FShadow;
    property ListItemHeight: Integer read GetListItemHeight write FListItemHeight;
    property ListFont: HFONT read GetListFont write FListFont;
    property Icon: string read GetIcon write FIcon;
    constructor Create(hOwner: HWND; FullpathImageName: string; x, y, xW, yH,
      ListID: integer; Visible: Boolean; ItemHeight: Integer; BackColor: COLORREF);
    destructor Destroy; override;

Danke euch..
Und wieder ein Problem weniger.

PS:
Durch die änderung habe ich auch das problem mit dem Beenden der Anwendung bereinigt.
to many error
Die Listboxen konnten nicht beendet werden weil sie alle ein Falsches Handle hatten.

gruss

[Sir Rufo]

tststs, aber erst rumzicken wie die Jungfrau vor dem ersten Mal