Einblenden von "Seiten" innerhalb eines Forms

[guidok]

Hallo,

ich möchte folgendes machen:

Auf einem Hauptformular mit diversen Steuerelementen sollen, abhängig von einer Benutzeranwahl, in einem festgelegtem Bereich innerhalb dieses Hauptformulars unterschiedliche "Seiten" mit weiteren Steuerelementen erscheinen. Im Prinzip also ein TTabControl. Leider kann ich bei dem den Rand nicht an meine Bedürfnisse anpassen und desweiteren hätte ich gerne ein sanftes Einblenden, wie es beim TForm mit Alphablending möglich wäre (da kann ich auch den Rahmen ausschalten).

Wie krieg ich das jetzt am beste hin?

Ich habe grade mal versucht das Hauptformular zum MDI-Fenster zu machen und das 2. zum MDI-Child, aber dann funktioniert das Einblenden und Ausblenden nicht mehr.

Guido

[mkinzler]

-TPageControl (mit augeblendeten Tabs)
-Frames

[guidok]

TPagecontrol fällt aus, weil ich da keinen Borderstyle einstellen kann und ich will keinen Rand haben.

Mit Frames habe ich noch nichts gemacht, werde ich mir mal anschauen. Wie könnte sich ein Fading realisieren lassen?

[kalmi01]

Hi,

ein Form für jedes Formular mit fsStaOnTop.

Das aktive, sichtbare Form im Application.OnIdle in die von Dir gewünschte Stelle
hinein positionieren/resizen.

Klingt kompliziert, sind aber nur ein paar Zeilen Code

Delphi-Quellcode:

procedure TMain.FormCreate(Sender: TObject);
begin
  Application.OnIdle := ApplIdle;
end;

procedure TMain.ApplIdle(Sender : TObject; var Done : boolean);
var
  i : integer;
begin
  for i := 0 to Owner.ComponentCount - 1
  do begin
       if (Pos('Form_', Owner.Components[i].Name) > 0)
       then begin
              (Owner.Components[i] as TForm).Left   := Main.FormPanel.ClientOrigin.X;
              (Owner.Components[i] as TForm).Top    := Main.FormPanel.ClientOrigin.Y;
              (Owner.Components[i] as TForm).Width  := Main.FormPanel.Width;
              (Owner.Components[i] as TForm).Height := Main.FormPanel.Height;
            end;
     end;
end;

Jedes Formular, dessen Name mit 'Form_' beginnt wird in die Panel-Fläche von "FormPanel"
eingepasst.

[shmia]

Zitat von guidok:

...und desweiteren hätte ich gerne ein sanftes Einblenden, wie es beim TForm mit Alphablending möglich wäre

Das kann aber bei Fernwartung über VNC oder Terminalserver ganz schön nerven, wenn Internetbandbreite mit solchen Gimmicks belastet wird.
=> ich würde zuerst mal um die Grundfunktionalität kümmern und erst ganz zum Schluss die Show einbauen.

Man kann übrigens auch Formulare in andere Formulare einklinken.
Man braucht dazu nur den Parent des "Unterformulars" auf ein Panel oder Groupbox des Hauptforms umbiegen.

[guidok]

@shmia:

Ich glaube in diesem Fall muss ich mir um Fernwartung und dergleichen keine Sorgen machen.

Ich probiere gerade an Kalmis Lösung herum und versuch es dann mal mit einem Panel. Danke.

Vielleicht lasse ich es dann ja auch bleiben. Es sähe schon schick aus (zumindest in meinen Vorstellungen).

[kalmi01]

Zitat:

Es sähe schon schick aus (zumindest in meinen Vorstellungen).

Ja, vor allem sieht geil aus, wenn Formulare einfach an der Stelle liegen bleiben, wo sie erzeugt wurden.
Sich also vom Hauptprog lösen.
Oder andere damit fest verbunden bleiben.

Naja und noch so einiges, was mit Frames und Co. nicht geht.