ScreenSaver - Problem mit Vorschau /p

[Mazel]

Hallo,

ich habe ein kleines Problem mit meinem ScreenSaver. Alle Parameter außer /p funktionieren. Ich habe schon ein paar Dinge ausprobiert aber ging nicht. Hier mein aktueller Code:

Delphi-Quellcode:

//  in der .dpr
Application.Initialize;
{$IFDEF Dummy}
 Application.CreateForm(TMain, Main);
{$ENDIF}
If Copy(UpperCase(ParamStr(1)), 1, 2) = '/C' then Application.CreateForm(TInfo, Info)
Else Application.CreateForm(TSaver, Saver);
Application.Run;

// die Saver Unit
procedure TSaver.FormCreate(Sender: TObject);
begin
 LblTime.Caption := 'Testtext';
 If Copy(UpperCase(ParamStr(1)), 1, 2) = '/S' then
  begin
   WindowState := wsMaximized;
   LblTime.Left := Screen.Width - LblTime.Width - 20;
   LblTime.Top := Screen.Height - LblTime.Height - 20;
  end
 Else
  begin
   Application.ShowMainForm := False;
   ParentWindow := StrToInt(ParamStr(2));
  end;
end;

Aber es steht kein Text, hier in dem Fall Testtext, in der Vorschau, und der Hintergrund bleibt Schwarz obwohl ich, um es zu sehen, einen grünen Hintergrund habe.

Kann mir jemand helfen?

Gruß
Mazel

[SirThornberry]

wie jetzt:

Zitat:

Alle Parameter aus /p funktionieren. Ich habe schon ein paar Dinge ausprobiert aber ging nicht.

funktionierts oder gehts nicht?
Könntest du auch den richtigen Quelltext posten? Es dürfte recht schwer sein den Fehler bei etwas zu finden was du uns vorenthältst. Und das dies der richtige Quelltext ist glaub ich nicht denn:

Delphi-Quellcode:

LblTime.Caption := "Testtext";

akzeptiert der Compiler beim besten Willen nicht.

Kleiner Hinweis am Rande falls es irgendwann mal um Geschwindigkeit geht:
Anstelle von

Delphi-Quellcode:

Copy(UpperCase(ParamStr(1)), 1, 2)

schreib lieber

Delphi-Quellcode:

UpperCase(Copy(ParamStr(1), 1, 2))

Denn wenn der "ParamStr(1)" länger als 2 Zeischen ist hat "UpperCase" mehr zu tun als wenn es nur die 2 Zeischen händeln muss die von "Copy" zurück gegeben werden

[Mazel]

Sorry, ich war in Eile:

1. nicht aus /p sondern außer /p
2. der gesamte Code liegt als Anlage bei.
3. "Testtext" -> 'Testtest' (wenn ich in php und Delphi gleichzeitig code, kommt das bei mir vor)

Danke SirThornberry für den Hinweis :)

Gruß
Mazel

[SirThornberry]

Du musst einfach nur "visible" des SaverForms auf True setzen.

[Mazel]

Ich habe Visible := True einfach in FormCreate der SaverForm für den Teil des Parameters /p eingesetzt aber es geht trotzdem nicht.

[SirThornberry]

Ich hab dein Quelltext genommen, im Objectinspektor das Visible auf True gesetzt und hab die Form gesehen (welche viel zu klein für das Label mit der riesen Schriftart war)

[Mazel]

Ich habs jetzt auch so gemacht, aber sehen tue ich nichts. Das einzigste was ich zu sehen bekommen ist ein Eintrag in der Taskleiste.