Checkbox

[Hawkeye219]

Zitat von Flocke:

Ganz kleiner Dämpfer: nicht, wenn sie von TComponent abgeleitet sind und einen Owner haben

Auch wenn sie keinen Owner besitzen, kann es Probleme geben. Die CheckBoxen liegen ja normalerweise auf einem TWinControl, und diese Controls entsorgen bei ihrer Freigabe alle enthaltenen Controls. Abhilfe schafft die Verwendung einer TComponentList. Diese Liste wird über die Freigabe von Controls informiert und entfernt dann die betroffenen Referenzen.

Gruß Hawkeye

[CodeX]

Zitat von DGL-luke:

Jo. is wohl sinnvoller:

Delphi-Quellcode:

function MakeCheckBoxes(Container: TWinControl; Captions: TStrings; CBOnClick: TNotifyEvent = nil): TObjectList;
var i: Integer;
    Size: TSize;
    buf: string;
begin
  Result := TObjectList.Create;
  for i := 0 to Captions.Count-1 do
  with Result[Result.Add(TCheckBox.Create(Container))] as TCheckBox do //sorry dafür. aber da mach ich jetzt kein extra faß variablen für auf.
  begin
    Parent := Container;
    Top := i * 16; //reicht 16?
    Left := 3;
    Height := 16;
    buf := Captions[i];
    GetTextExtentPoint32(Canvas.Handle, @buf[1], Length(buf),Size);
    Width := Size.cx + 16; //16 extra für die Box
    Tag := i;
    Caption := buf;
    OnClick := CBOnClick;
  end;
end;

Kannst Du bitte ein Anwendungsbeispiel dafür geben? Ich bekomme das nämlich nicht zum Laufen.
Konkret möchte ich in die dritte und vierte Spalte eine Checkbox ohne Beschriftung setzen.

Woran es hapert:
1. Canvas wird als undeklariert angezeigt. Ich habe deshalb "Canvas : TCanvas;" bei var von MakeCheckBoxes aufgenommen. Ist das so korrekt oder soll das wo anders herkommen?
2. Ich komme mit den Parametern nicht ganz zurecht. Als Container muss ich ja die entsprechende ListView angeben, oder? Ich welcher Weise werden aber die Captions benötigt/verwendet?

Bei meinen Versuchen wurde bestenfalls eine External Exception ausgegeben und dann eine Checkbox im ersten Column Header angezeigt ...

Ich wäre für Hilfe sehr dankbar.

[DGL-luke]

Hallo,

sorry, das sollte natürlich Container.Canvas heißen.

Und wenn du eh mit einer Listview arbeitest... die hat doch Checkboxes schon eingebaut?! Einfach die Eigenschaft CheckBoxes aktivieren...

[CodeX]

Zitat von DGL-luke:

sorry, das sollte natürlich Container.Canvas heißen.

das hatte ich probiert und gerade wider. das hilft nicht.

Zitat von DGL-luke:

Und wenn du eh mit einer Listview arbeitest... die hat doch Checkboxes schon eingebaut?! Einfach die Eigenschaft CheckBoxes aktivieren...

dann hab ich die aber genau in der ersten spalte und nur da. ich brauche die aber wie gesagt in zwei anderen spalten.

[DGL-luke]

ok. bei mir hat die listview einen Canvas. aber wenn du eh keinen text brauchst, kann man viel einfach weglassen:

Delphi-Quellcode:

function MakeBlankCheckBoxes(Container: TWinControl; Number: Cardinal; CBOnClick: TNotifyEvent = nil): TObjectList;
var i: Integer;
begin
  Result := TObjectList.Create;
  for i := 0 to number-1 do
  with Result[Result.Add(TCheckBox.Create(Container))] as TCheckBox do //sorry dafür. aber da mach ich jetzt kein extra faß variablen für auf.
  begin
    Parent := Container;
    Top := i * 16; //reicht 16?
    Left := 3; //das anpassen
    Height := 16;   
    Width := 16; //16 extra für die Box
    Tag := i;
    Caption := '';
    OnClick := CBOnClick;
  end;
end;

Du wirst aber vermutlich das Problem haben, dass die CheckBoxes nicht von alleine mitscrollen.

[CodeX]

Zitat von DGL-luke:

Du wirst aber vermutlich das Problem haben, dass die CheckBoxes nicht von alleine mitscrollen.

richtig
kann man diese nicht statt an listview an ein listviewitem anhängen? die position des listview ändert sich beim scrollen nicht, aber ja vielleicht die des listview items.

tut mir leid fürs nachfragen. ich kann das problem leider nicht alleine lösen, weil mir hierfür das spezialwissen fehlt.