Wie bekomme ich meine laufschrift auf ein anderes Formblatt

**SaFu**

hallo erstmal habe schon länger ein Problem und hoffe mir kann hier jemand helfen

Wie bekomme ich meine laufschrift zur laufzeit auf ein anderes Formblatt.

Schreibe gerade eine Software für eine AnzeigeTafel. Die enthält eine Funktion einer laufschrift auf der Form6. Diese Soll aber gleichzeitig auf der Form8 ausgegeben werden (zur laufzeit) das heist wenn ich die laufschrift änder oder ein- und ausschalte auf der Form6 soll sie das gleiche auch auf der Form8 tun

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm6.FormCreate(Sender: TObject);

var i: integer;

begin

  Label1:= TLabel.Create(Panel2);

  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;

end;

{Text auf den Labels ausgeben}

procedure TForm6.Edit1Change(Sender: TObject);

begin

  Label1.Caption:='' + Edit1.Text; // Label1

  Label2.Caption:='' + Edit1.Text; //Label2

end;

{Text bearbeiten}

procedure TForm6.Button1Click(Sender: TObject);

begin

  Label1.Visible:= False;

  Edit1.Visible:= True;

  Edit1.SetFocus;

end;

{Laufschrift einschalten}

procedure TForm6.Button2Click(Sender: TObject);

begin

  Label1.Visible:= True;

end;

{laufschrift ausschalten}

procedure TForm6.Button3Click(Sender: TObject);

begin

  Label1.Visible:= False;

end;

{ Laufschrift Timer}

procedure TForm6.Timer1Timer(Sender: TObject);

begin

  if

    Label1.Left = -Label1.Width then

    Label1.Left:= Panel2.Width

  else

    Label1.Left:= Label1.Left -1;

end;

kann mir jemand helfen wie ich diese Laufschrift auf die Anzeigetafel bekomme bzw(Form8)

Wie bekomme ich meine laufschrift auf ein anderes Formblatt

Wie bekomme ich meine laufschrift auf ein anderes Formblatt

Forumregeln