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.