HI, ich habe ein seltsames Problem (oder ich bin einfach zu blöd dazu
)
ich habe mir eine neue Klasse von Panels erstellt um die auf einem Form untereinander zu haben, dabei sollen beliebig neue Panels hinzugefügt und bei einer Vergrößerung eines Panels alle darunterliegenden iterativ entsprechend verschoben werden, das klappt auch ganz gut. Das Problem ist nur dass wenn ich das 2. oder 3. Panel von oben (also das 2. oder 3. in der Liste) entfernen will dann haut der mir alles um die Ohren. bei den anderen klappt das wunderbar.
Hier die Objekt-Definition:
Delphi-Quellcode:
type myPanel = class(TPanel)
procedure expand(val: integer; Sender: TObject);
procedure move(val: integer; Sender: TObject);
procedure remove_it(Sender: TObject);
private
childP: myPanel;
parentP: myPanel;
public
property childPanel: myPanel read childP write childP;
property parentPanel:myPanel read parentP write parentP;
end;
Ich hab also Vorgänger und Nachfolger jedes Elements, beim Erstellen werden entsprechend die nil´s richtig verteilt wenn es das erste oder letzte Element ist. Bitte nicht über das "Sender: TObject" wundern, damit gebe ich der Methode die Information auf den Weg in welchem Panel gerade ein Button etc. geklickt wurde (ich weiss geht bestimmt auch anders aber so klappts erstmal)
und hier die Methode zum Entfernen:
(in Form1.letztes merke ich mir welches das letzte Element der Panel-Liste ist)
Delphi-Quellcode:
procedure myPanel.remove_it(Sender: TObject);
begin
if Sender is myPanel then begin
//einziges Element ?
if (myPanel(Sender).parentPanel = nil) and (myPanel(Sender).childPanel = nil) then
begin
form1.letztes:=nil;
myPanel(Sender).Destroy;
end
//erstes Element ?
else if myPanel(Sender).parentPanel=nil then
begin
myPanel(Sender).childPanel.parentPanel:=nil;
myPanel(Sender).childPanel.move(myPanel(Sender).Height*(-1)-10,myPanel(Sender).childPanel);
myPanel(Sender).Destroy;
end
//letztes Element ?
else if myPanel(Sender).childPanel=nil then
begin
myPanel(Sender).parentPanel.childPanel:=nil;
form1.letztes:=myPanel(Sender).parentPanel;
myPanel(Sender).move(myPanel(Sender).Height*(-1)-10,myPanel(Sender));
myPanel(Sender).Destroy;
end
//mittel Element ?
else if (myPanel(Sender).childPanel <> nil) and (myPanel(Sender).parentPanel <> nil) then
begin
myPanel(Sender).parentPanel.childPanel:=myPanel(Sender).childPanel;
myPanel(Sender).childPanel.parentPanel:=myPanel(Sender).parentPanel;
myPanel(Sender).childPanel.move(myPanel(Sender).Height*(-1)-10,myPanel(Sender).childPanel);
myPanel(Sender).Destroy;
end;
end; // if is myPanel
end;
wie gesagt es kommt nur eine
AV wenn ich das 2. oder 3. Element löschen will.
->und jetzt wirds verrückt: wenn ich auf dem hauptformular ein label platziere dann kommt der fehler nur noch beim ersten element der liste
was mach ich falsch ? muss ich etwa alles umkrempeln ? seh ich den wald vor lauter bäumen nicht ? wird es morgen regnen ?
-fragen über fragen-
gruß,
der moe
(datei zum testen angehängt)