Komponente existiert?

[ecHo89]

Okay, ist vollstreck

Delphi-Quellcode:

procedure TFormMain.TBXItem34Click(Sender: TObject);    // Andere Apps
begin
  if TBXItem34.Checked then
  begin
   TBXDockablePanel4.hide;
   TBXItem34.Checked := false;
  end
  else
  begin
   if Assigned(TBXDockablePanel4) = false then
  // if FindComponent('TBXDockablePanel4') = nil then
   begin
    createDockablePanel(4);
    TBXItem34.Checked := true;
   end
   else
   begin
    TBXDockablePanel4.Show;
    TBXItem34.Checked := true;
   end;
  end;
end;

Kann man eig. solche Prozeduren auch zusammenfassen und irgendwie die Zahl 4 mit einer anderen Ersetzen, obwohl es sich um Komponenten handelt?

Will jetzt mein neues Projekt vernünftig angehen und gerne neues lernen.