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?"