Laufschrift von einem formblatt auf ein anderes

[SaFu]

[/delphi]Hallo erstmal

Hab al ne Frage wie übergebe ich meine Laufschrift von einem Formblatt auf auf das andere

So siet meine laufschrift aus

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.Show;
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;

Danke schonmal

[mkinzler]

Zitat:

Hab al ne Frage wie übergebe ich meine Laufschrift von einem Formblatt auf auf das andere

Erkläre dein Vorhaben mal genauer.

[SaFu]

Ich habe eine Laufschrift auf einem Formblatt (Form6) die dort erzeugt wird und die dort ihren Text bekommt.

Diesen Text der auf dieser Form6 Läuft würde ich gerne 1 zu 1 auf einem anderen Formblatt (Form8) anzeigen lassen am unteren Rand.

Und mit der Form6 soll die Laufschrift auf Form8 auch gesteuert werden bzw ein und ausgeschaltet werden.

weis aber leider nicht wie ich das hinbekomme hab jetzt schon länger versucht

[mkinzler]

Einfach Statt Label1 Form8.Label1 verwenden.

[SaFu]

Du meinst unter FormCreat

[mkinzler]

Neim im Timer

[SaFu]

Die laufschrift sollte aber auf beiden formenLaufen den Die Form6 ist die Bediener Software und Die Form8 ein reines anzeige Formular fur eine Vertretungsplantafel das heist alles was ich an der Laufschrift änder auf Form6 sollte zu Laufzeit auf Form8 zu sehen sein (Text oder Farbe, eein oder Ausschalten)

sorry wenn ich damit nerve versuchs aber schon länger

Danke

[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; 
...

[SaFu]

Funktioniert leider nicht

Label1:= TLabel.Create(Form8.Panel2); bekommme hier einen Fehler

Exception der Klasse EAccessViolation