Nicht-visuelle Komponenten dauerhaft ausblenden?

[PeterPanino]

Zitat von himitsu:

ScrollBox ist leider nicht möglich, da ich die nichtvisuellen Komponenten noch nicht umpositionieren kann und da diese sowieso immer auf der Form und nicht in meiner Komponente liegen würden.

Ist also nur ein "billiger" Workaround, welcher als "Panel" einen Bereich unten und/oder rechts belegt, wo du deine Dinger drüberlegen kannst
und der dann automatisch aus der Form entfernt wird, wenn das Programm läuft.
(vor XE2 sollte man die Namespaces von den Units entfernen)

Ist sehr nett und wäre evtl. eine brauchbare Lösung. Der NonVisual-Bereich sollte aber UNTER dem Formular eingefügt werden und nicht IM Formular. Und derzeit sieht man den Bereich noch, wenn das Programm läuft.

[stahli]

So meinte ich das. Ein andockbarer und ausblendbarer Bereich unter dem Form-Designer. Im Grunde so ähnlich wie der VisualDataBinding-Designer.

[himitsu]

Ein Variante war noch eine TDataModul-Komponente, welche selber eine Unit erstellt und bei Änderung Dieser diese Unit sofort kompilieren lässt. (also via OTA und so)
Wenn das DataModul direkt in der Form liegt und die Erstellungsreihenfolge dieses Containers etsprechend angepaßt wurde (so als wäre es nur eine Komponente und kein eigenständiges Modul), dann wäre es halbwegs nutzbar, ohne die genannten Probleme.

Das Problem ist ja, daß hierfür die Komponenten darin ja physisch mit der Form verknupplt sein müssen, damit sie mit den Eingabecontrols via OI verknüpft werden können.
Oder weiß jemand, wie man eine Form erstellt, welche sich "zur Laufzeit" so editieren läßt, wie in der IDE?

@PeterPanino:
Ups, vergessen zu speichern vom zippen.
Ich glaub das war alles.

Delphi-Quellcode:

procedure TNonVisualArea.Loaded;
begin
  ...
  if Visible and not (csDesigning in ComponentState) then begin  // <<<<<<<
    Visible := False;

[PeterPanino]

Die Panel-Lösung ist zwar nicht sehr elegant, würde aber ihre Funktion erfüllen. Sie würde aber an Eleganz gewinnen, wenn:

1. TNonVisualArea beim Einfügen der Komponente selbständig automatisch die Form vergrößern würde

2. Bei jeder Änderung von NonVisualArea.Height im Inspektor die Höhe der Form (und auch die vertikale Position der nichtvisuellen Komponenten) angepasst würde, damit die "nutzbare" Höhe der Form gleich bleibt.

3. Beim Entfernen der TNonVisualArea-Komponente die Höhe der Form (und auch die vertikale Position der nichtvisuellen Komponenten) automatisch so angepasst würde, dass die "nutzbare" Höhe der Form gleichbleibt.

TNonVisualArea sollte also für den Benutzer vollkommen transparent funktionieren, ohne dass er (außer dem Einfügen der TNonVisualArea-Komponente) selbst Hand anlegen muss.

[himitsu]

Sowas hätte ich beinah eingabaut, aber dann erstmal gelassen.

Denn ich müßte da noch prüfen, ob eventuell die obere oder linke Seite grade gezogen wird, bei der Größenänderung, denn dann darf die Form nicht verändert werden, sonst gibt es ein Chaos.
Und beim hinzufügen kommt es drauf an, ob die Komponente grade mit der Form geladen oder nachträglich erstellt wird, aber ich glaub das ließ sich erkennen.

[PeterPanino]

Der Open Source CnPack Wizard enthält ein Tool "Arrangiere nicht sichtbare Komponenten". Hier könnte man sich also abschauen, wie man "nicht sichtbare Komponenten" unterscheidet sowie verschiebt.

[PeterPanino]

Ich habe folgende Verbesserungen in TNonVisualArea eingefügt:

1. Damit der "nutzbare" Bereich der Form gleichbleibt, habe ich folgenden Code im constructor eingefügt:

Delphi-Quellcode:

if Owner is TForm then
  TForm(Owner).Height := TForm(Owner).Height + Height;

Damit wird die Höhe der Form automatisch angepasst, wenn die TNonVisualArea-Komponente eingefügt wird.

2. Sollte sich der Nutzer entschließen, die TNonVisualArea-Komponente wieder zu entfernen (nicht empfohlen), wird die Höhe der Form automatisch zurückgesetzt:

Delphi-Quellcode:

destructor TNonVisualArea.Destroy;
begin
  if csDesigning in ComponentState then
  begin
    if Assigned(Parent) then
    begin
      if FRight then
        Self.Parent.Width := Self.Parent.Width - Self.Width
      else
        Self.Parent.Height := Self.Parent.Height - Self.Height;
    end;
  end;

  inherited;
end;

Bitte um konstruktive Kritik!