Einzelnen Beitrag anzeigen

Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#1

Wie bekomme ich meine laufschrift auf ein anderes Formblatt

  Alt 13. Jan 2007, 19:36
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

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 gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat