Hi zusammen
Seit einer geraumen Zeit kaue ich auf einem Problem herum, von dem ich mir absolut keine Vorstellung machen kann, an was es liegen könnte.
Ich habe das Problem auch schon
hier gepostet.
Das einfachste wäre wohl, das Projekt unter Verwendung der bestehenden Codes neu zu beginnen - aber ohne Verwendung von Objektablage oder Komponentenvorlagen - nur denke ich, ich würde damit das eigentliche Problem mehr oder weniger elegant umschiffen und früher oder später wieder mit dem selben Fehler konfrontiert sein.
Der wie icj denke doch recht ausführlichen Beschreibung auf der verlinkten Seite wegen, hier nur eine kurze Zusammenfassung:
Mit einer TCategoryyPanelGruop habe ich eine Sidebar gebaut. Jede der 4 Categorypanels enthält je eine Frameinstanz. Daneben gibt es vier verschiedene Frameinstanzen im 'Hauptbereich' der Anweendung. Die Frames der Categorypanels dienen als Werkzeugbox jeweils eines der Frames im 'Hauptbereich', welche je nach aufgeklapptem Categorypanel sichtbar werden(sollen).
Bei einem dieser 'Hauptbereichsframes ist es so; Wennnn dessen Visible-Property True ist, wird der zugehörigr ToolboxFarme unsichtbar und umgekehrt, obwohl die Anweisung im Code eindeutig ist, das die andern Caregorypanels ihe Frames korrekt anzeigen/verbergen etc. Der Coode, der dieses tut:
Delphi-Quellcode:
procedure TCM_First.ShowCategoryPanel(Sender: TObject);
var i: integer; CP, CPanel: TCategoryPanel;
begin
CPanel := Sender as TCategoryPanel;
For i := 0 to CategoryPanelGroup2.Panels.Count -1 do begin
CP := TCategoryPanel(CategoryPanelGroup2.Panels[i]);
if CP <> CPanel then
CP.Collapsed := true
// else
// CP.Collapsed := False;
end;
//CPanel.Top:= 0;
end;
Gruss
Delbor