Repaint beim Form-Resize beschränken

[Bummi]

wir arbeiten grundsätzlich mit Templates, deren überladene Konstruktoren deutlich umfangreicher als das folgende Beispiel sind (unter anderem wird ein Zeiger auf die Variable (kann nil sein) der zugewiesen wird, mit übergeben die im Destruktor wenn gesetzt "genilt" wird)

Delphi-Quellcode:

  Constructor Create(AOwner:TComponent;UseAutoScroll:Boolean=false);Overload;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

constructor TTemplate.Create(AOwner: TComponent; AParent: TwinControl;UseAutoScroll:Boolean=false);
begin
  inherited Create(AOwner);
  if Assigned(Aparent) then
      begin
        borderStyle := bsNone;
        Align := alClient;
        Parent := AParent;
        Show;
        AutoScroll := UseAutoScroll;
      end;
end;

[G-Baumstamm]

Das Problem besteht ja bei mir nicht in der Tatsache, dass ich die Form nicht eingebunden bekomme, sondern darin das ich trotz bsNone die Scrollbars der Form brauche (Autoscroll wird bei bsNone ignoriert).

[stahli]

Mit embedded Forms würde es wohl funktionieren:

Delphi-Quellcode:

    FormXyz.ManualDock(TabSheetXyz, nil, alNone);
    FormXyz.Align := alClient;
    FormXyz.Show;

(Im Beispiel setze ich das Formular übrigens in ein TabSheet und da flackern die Controls auch beim Resizen - ebenso wie GroupBoxen.
Ich nutze hier embedded Forms aus Gründen der Übersichtlichkeit und Projektaufteilung.)


Embedded Forms in TabControls flackern widerum nicht. Allerdings muss man dann dynamisch beim umblättern das passende Form einblenden.
Das habe ich so getan:

Delphi-Quellcode:

procedure TFormPlan.odTabControlTournamentsPlanShowRegister(Sender: TObject);

  procedure ShowForm(F: TForm);

    procedure DoShowForm(SF, F: TForm; FC: TodFormCtrl);
    begin
      if SF = F then
      begin
        if (SF.Parent <> PanelTournamentsPlan) or (not SF.Visible) then
        begin
          SF.ManualDock(PanelTournamentsPlan, nil, alNone);
          SF.Align := alClient;
          SF.Show;
        end;
        FC.od := odTabControlTournamentsPlan.ActiveOd;
        if Assigned(SF.OnShow) then
          SF.OnShow(Self);
      end
      else
      begin
        FC.od := nil;
        SF.Close;
      end;
    end;

  begin
    CourtTournament := odTabControlTournamentsPlan.ActiveOd as TodTournament;
    DoShowForm(FormPlanMelee, F, FormPlanMelee.odFormCtrl);
    DoShowForm(FormPlanSwiss, F, FormPlanSwiss.odFormCtrl);
    DoShowForm(FormPlanGroup, F, FormPlanGroup.odFormCtrl);
    DoShowForm(FormPlanKo, F, FormPlanKo.odFormCtrl);
  end;

begin
  if odTournament = nil then
    ComboBoxTournamentSystem.ItemIndex := -1
  else if odTournament.Data_Is_Melee then
    ComboBoxTournamentSystem.ItemIndex := 0
  else if odTournament.Data_Is_Swiss then
    ComboBoxTournamentSystem.ItemIndex := 1
  else if odTournament.Data_Is_Group then
    ComboBoxTournamentSystem.ItemIndex := 2
  else if odTournament.Data_Is_Ko then
    ComboBoxTournamentSystem.ItemIndex := 3
  else
    ComboBoxTournamentSystem.ItemIndex := -1;
  case ComboBoxTournamentSystem.ItemIndex of
    0:
      ShowForm(FormPlanMelee);
    1:
      ShowForm(FormPlanSwiss);
    2:
      ShowForm(FormPlanGroup);
    3:
      ShowForm(FormPlanKo);
  else
    ShowForm(nil);
  end;
  ComboBoxTournamentSystem.Enabled := ComboBoxTournamentSystem.Text = '';
end;

[Bummi]

sondern darin das ich trotz bsNone die Scrollbars der Form brauche (Autoscroll wird bei bsNone ignoriert). ich habe leider kein D7 zu Testen zur Hand, der Code den ich eingestellt habe funktioniert unter unter D2010 + problemlos ....

[G-Baumstamm]

Vielleicht hab ich das auch einfach nur falsch umgesetzt, aber auch wenn ich die Form nach der beschriebenen Methode andocke bleibt das Problem, das die Form bei bsNone keine Scrollbars erzeugt bestehen ...

Edit: Menschliches Versagen beim Umsetzen von Bummis Code, funktioniert natürlich. Aber: Das Ding macht mich trotzdem fertig ... Wenn ich das genau so mache skinnt er die Scrollbars einfach nicht mit, ändere ich zum testen bsNone zu bsSizeable habe ich stattdessen ne Form mit Header ABER dafür mit geskinnten Scrollbars ...

[Bummi]

wenn Du den Code aus #22 erfolglos getestet hast muss ich Dich auf Montag vertrösten, im Büro habe ich noch ein paar VM's mit D7 ....

[stahli]

Kann natürlich auch sein, dass die AlphaControls (vielleicht auch nur in Verbindung mit D7) da nicht korrekt mitspielen. Ist ja auch ein seltener Sonderfall, solch eine Anwendung.

[G-Baumstamm]

Mhh ... was mir jetzt noch einfallen würde, wäre

1) Über CreateParams (Style) zu sagen, das auch bei bsNone Scrollbars gezeichnet werden sollen, oder

2) Den Header durch irgendeinen Trick trotz bsSizeable nicht anzeigen

3) Entweder mit den Windows-Scrollbars leben, mit dem Formheader in der anderen Form oder geskinnte Scrollbars drüberzeichnen und das Verhalten imitieren.

Wobei ich natürlich glücklicher wäre wenn 1 oder 2 irgendwie machbar sind ... ^^

Edit: Wüsste nicht wie mir LockWindowUpdate helfen sollte, wenn meine Form entweder die falschen oder gakeine Scrollbars malt ...