Zur Laufzeit erstellte Objekte übergeben.

[Chistian]

Hi,

ich hatte eine Form mit seiner Scrollbox auf der ich verschiedenste dinge machte.

Um flexibler zu sein, sollen zur Laufzeit mehrere Scrollboxen erstellt werden können.

Delphi-Quellcode:

  with TcbFlowScrollBox.Create(self) do
   begin
    Name := GlobalAktivFlow;
    Parent := NewTabSheet;
    Align := alClient;
    PopupMenu := MainForm.FlowsPopupMenu;
    OnMouseDown := MainForm.scrollboxMousedown;
    OnMouseUp := MainForm.ScrollBoxMouseup;
    OnMouseMove := MainForm.ScrollBoxMouseMove;
   end;

Wenn ich jetzt :

Delphi-Quellcode:

        with TcbBitmapShape.Create(self) do
        begin
          Caption := TcbTextShape.Create(self);
          Caption.Text := MainForm.tempcaption;
          Caption.OnDblClick := CaptionDblClick;
          Caption.OnClick := CaptionClick;
          caption.Cursor := crHandPoint;
          Caption.Hint := 'Doppelklicken um zu ändern';
          Images := MainForm.verzimagelist;
          ImageIndex := 3;
          MainForm.tempiconindex := 3;
          Typ := MainForm.temptyp;
          Top := Y;
          Left := X
          OnClick := ShapeClick;
          Cursor := crHandPoint;
          Parent := TcbFlowScrollBox(GlobalAktivFlow);  <-- Problem hier
          AlignCaption(taCenter);
          MainForm.Objekteinlesen(cbShape.GetshapeCount);
          with TFldrControl.Create(self) do
            begin
              Name := 'notify'+ DataModul.objektdata.FieldByName('name').AsString ;
              Folder := MainForm.temppath;
              OnGetResult := DirNotifyonChange;
              Parent := TcbFlowScrollBox(GlobalAktivFlow); <-- Problem hier
              Active := False;
            end;

        end;

Wir nichts eingetragen beim Parent.

Kann ich die abgeleitete TScrollbox so nicht ansprechen?

Auch funtioniert: DragAcceptFiles(TcbFlowScrollBox(GlobalAktivFlow).Handle, true); nicht.

Gruß
Christian