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

Delphi-Quellcode:

Label1

Delphi-Quellcode:

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

[DP-Maintenance]

Dieses Thema wurde von "sakura" von "Freeware" nach "VCL / WinForms / Controls" verschoben.
Wofür ist wohl die Freewaresparte gedacht... :roll:

[SaFu]

Funktioniert leider nicht

Delphi-Quellcode:

Label1:= TLabel.Create(Form8.Panel2);

bekommme hier einen Fehler

Delphi-Quellcode:

Exception der Klasse EAccessViolation

[mkinzler]

Form8 muß natürlich schon erstellt worden sein.

[SaFu]

Mach ich da am besten im onShow ereignis oder Creat

Sorry für die Dummen Fragen Programmier noch nicht solange

[mkinzler]

Du mußt dafür sorgen das, Form8 vor Form6 erzeugt wird (Projekt)

[SaFu]

Ich habe noch ein Anmelde Formular dort könnte ich es erzeugen aber wenn ich es in der Form6 mit onShow erzeuge wird es doch vor Creat erzeugt oder Liege ich da falsch :gruebel:

[SaFu]

:?: :?: :?: :?:

[kaiser1401]

Bitte nicht nach 8 minuten schon pushen...

Also das OnShow des Form6 ist auf jedenfall später als das Create des Form6 ...

[mkinzler]

Nein einfach in den Projektoptionen die Erstellungsreihenfolge der Formulare ändern

[SaFu]

Meine Formulare werden alle erst nach betätigen eines Button erzeugt

Delphi-Quellcode:

{Vertetungspläne bearbeiten}
procedure TForm2.Button1Click(Sender: TObject);
begin
  Form7.Show;
  Form2.Visible:= False;
end;

{Bilder bearbeiten}
procedure TForm2.Button2Click(Sender: TObject);
begin
  Form4.Show;
  Form2.Visible:= False;
end;

{Dokumente bearbeiten}
procedure TForm2.Button3Click(Sender: TObject);
begin
  Form5.Show;
  Form2.Visible:= False;
end;

{Laufschrift bearbeiten}
procedure TForm2.Button4Click(Sender: TObject);
begin
  Form6.Show;
  Form2.Visible:= False;
end;


//nur zu test zwecken
procedure TForm2.Button6Click(Sender: TObject);
begin
 Form8.Show;
 Form2.Visible:= False;
end;

[kaiser1401]

Zitat:

Zitat von fuknersascha

Meine Formulare werden alle erst nach betätigen eines Button erzeugt

Das ist so nciht ganz richtig.

Erzeugt werden deine Formulare alle vorher. lediglich die Anzeige (Form.show) erfolgt auf den Tastendruck.

[SaFu]

Ja richtig

Hast du vielleicht eine Lösung für mein Problem :zwinker:

[mkinzler]

http://www.delphipraxis.net/internal...=664139#664139