Laufschrift von einem formblatt auf ein anderes

[mkinzler]

Einfach so erweitern:

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var i: integer;
begin
  Label1:= TLabel.Create(Panel2); //Form6
  Label1.Parent:= Panel2; // Schrift Auf Panel Anzeigen
  Label1.Top:= (Panel2.Height - Label1.Height) div 2; // Posiziunieren auf dem Panel2
  for i:=0 to ComponentCount-1 do // XP anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:=false; 
  Label1:= TLabel.Create(Form8.Panel2); //Form8
  Label1.Parent:= Panel2; // Schrift Auf Panel Anzeigen
  Label1.Top:= (Panel2.Height - Label1.Height) div 2; // Posiziunieren auf dem Panel2
  for i:=0 to Form8.ComponentCount-1 do // XP anzeige
  if Form8.Components[i] is TPanel then (Form8.Components[i] as TPanel).ParentBackground:=false; 
...