Bildschirmschoner programmieren

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
Toastbrot
Beiträge: 3
Registriert: Di 13. Sep 2011, 17:10

Bildschirmschoner programmieren

Beitrag von Toastbrot »

Hallo,
Ich wollte mit Lazarus meinen 1. Bildschirmschoner programmieren.
Ich hab mir dafür auch schon ein paar Anleitungen angeguckt, aber nur für Delphi.

auf jeden fall, muss man ja .exe in .scr ändern.
Hat wer 'ne Ahnung wo man Das in Lazarus macht? Ich hab schon überall nachgeguckt..

Viel Grüße und Danke im Vorraus :)

carli
Beiträge: 657
Registriert: Sa 9. Jan 2010, 17:32
OS, Lazarus, FPC: Linux 2.6.x, SVN-Lazarus, FPC 2.4.0-2
CPU-Target: 64Bit

Re: Bildschirmschoner programmieren

Beitrag von carli »

Projekt->Projekteinstellungen->Compilereinstellungen->Pfade->Ausgabe-Dateiname (-o)

Toastbrot
Beiträge: 3
Registriert: Di 13. Sep 2011, 17:10

Re: Bildschirmschoner programmieren

Beitrag von Toastbrot »

danke ;)

Toastbrot
Beiträge: 3
Registriert: Di 13. Sep 2011, 17:10

Re: Bildschirmschoner programmieren

Beitrag von Toastbrot »

Hallo, ich hab noch ne Frage bezüglich meines Bildschirmschoner :)

Also ich hab da die Prozedur FormCreate und da soll eine eigene Prozedur von mir aufgerufen werden, aber i-wie klappt das nicht...
Hier mal der Quelltext:

Code: Alles auswählen

{ TForm1 }
  TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure Hauptprogramm();
 
  private
{ private declarations }
  public
{ public declarations }
  end;
 
implementation
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Hauptprogramm();
end;
 
procedure TForm1.Hauptprogramm();
begin   
    ...
end;
Viele Grüße :)

Benutzeravatar
theo
Beiträge: 10877
Registriert: Mo 11. Sep 2006, 19:01

Re: Bildschirmschoner programmieren

Beitrag von theo »

Wo hast du denn Form1 deklariert? Du rufst Form1 auf (Wahrscheinlich eine Instanz von TForm1).
Das ist auf jeden Fall nicht so gut.
Auch nicht gut sind Fehler-reports wie: "irgendwie klappt's nicht".

Ich nehme mal an, dass es so klappt:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
  Hauptprogramm;
end;

Antworten