Ich hab mal wieder ein Problem...
Bei folgenden Code
ExPanel:=(Parent as TPanel).FindComponent(ExPanels.Strings[i]);
kommt beim kompilieren die Meldung
Zitat:
Inkompatible Typen: 'TPanel' und 'TComponent'
Hier die komplette Funktion:
Delphi-Quellcode:
function RemoveAllExPanels(Parent: TPanel):Boolean;
var
ExPanel: TPanel;
i: integer;
begin
//Überprüfen ob ExPanels vorhanden sind
if ExPanels.Count>-1 then
begin
//ggf. vorhandene Markierungen aufheben
if (MarkedExPanel is TPanel) then
begin
MarkExPanel(MarkedExPanel);
FreeAndNil(MarkedExPanel);
end;
//jedes ExPanel nacheinander löschen
for i:=0 to ExPanels.Count-1 do
begin
ExPanel:=(Parent as TPanel).FindComponent(ExPanels.Strings[i]);
FreeAndNil(ExPanel);
end;
ExPanels.Clear;
Result:=true;
end
else
begin
Result:=false;
end;
end;
Ich verstehe einfach nicht was an dieser Zeile falsch sein soll... Könnt ihr mir helfen?