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 :pale:

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)

[Klaus01]

Warum fängst denn Du zum gleichen Thema einen neuen Thread an?
Sollte doch hier weitergehen -> http://www.delphipraxis.net/internal...ht=laufschrift

Grüße
Klaus

[SaFu]

da kam nichts mehr deshalb habe ich es jetzt einwenig umgeschrieben

und hoffe das mir jetzt jemand helfen kann :cry:

[mkinzler]

Du könntest einfach die Tipps mal umsetzen

[SaFu]

hab ich schon alles versucht bekomme aber nur Fehler oderes geht auch teilweise nicht da ich in der software zuerst eine anmelde formular habe mit einer benutzername und Passwort abfrage habe (Form1) Danach kommt das auswahlmenü (Form2) von da aus kann man sich Form6 mit der laufschrift aufrufen.

Deshalb ist das einwenig schwirig und die Tipps waren teilweise gut bis zu einem gewissen punkt

sorry wenn ich damit nerve

[SaFu]

Danke an mkinzler

hat mir sehr geholfen :thumb: :gruebel: :gruebel:

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, fuknersascha.

Ich habe deinen Ansatz hergenommen und eine Komponente TMarqueePanel von TPanel abgeleitet. In der angehängten Demo kannst du sehen, wie du zwei oder mehr Laufschriften synchron laufen lassen kannst. Vielleicht kannst du etwas daraus machen.

Freundliche Grüße vom marabu