Gibt es die Möglichkeit diesen Code zu optimieren...?

[Sharky]

Einfach eine Procedue verwenden:

Delphi-Quellcode:

procedure TForm1.SetPannel (value : TPanel);
begin
  with value do
  begin
    Left:=   Pleft;
    top:=    Ptop;
    Width:=  Pwidth;
    height:= Pheight;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Pleft := 100;
  Ptop := 100;
  Pwidth := 200;
  Pheight := 200;
  SetPannel(Panel1);
  SetPannel(Panel2);
  SetPannel(Panel3);
end;