komisches Verhalten von Lazarus

[juelin]

Hallo,
in meinem Program Mail (das lief schon mal)
passiert jetzt foldendes:
Nach dem Start mit F9 wird der Code Compeliert (ohne Fehler)
und dann gestartet.
Das Formular blitzt kurz auf und verschwindet aber wieder.
Das Programm läuft aber weiter, sprich das Icon in der Tastleiste ist da.
Windows 10 Lazarus 3.4 FPC 3.2.2
Projekt Datei:

Code: Alles auswählen

program mail;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, unit1, Eingabe, indylaz
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Application.Run wird ausgeführt.

Unit 1 FormCreate

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
  var heute: string;
  var h1: integer;
  var h3: string;
begin
  Label1.Caption:='©LINSOFT               M A I L                 Datum: '+FormatDateTime('DD.MM.YYYY',now);
  Label2.Caption:='';
  Closestat:=0;
  ............................

Habe Haltepunkt auf Label1.Caption gemacht.
Da kommt das Programm aber nie hin.

Hat jemand eine Ahnung warum?

Gruß
Jürgen

[kralle]

Moin,

wähle unter Ausführen mal das Aufräumen und compiliere danach mal ohne Debugger.
Funktioniert das compilieren dann?
Wenn ja, dann starte die Exe mal von der Kommandozeile - bekommst Du eine Meldung?

Gruß Heiko

[juelin]

Hallo Heiko,
habe Aufräumen und Compelierung ausgeführt. das Ergebnis in der Anlage:

Habe dann das Program von DOS aus aufgerufe.
Das Form wird nicht angezeigt und der Cursor in DOS steht ohne Meldunf wieder auf Eingabe.
Das Programm läuft aber in der Taskleiste.
Und wenn ich es bende wird meine Procedure:

Code: Alles auswählen

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  Label1.Caption:='©LINSOFT               M A I L                 Datum: '+FormatDateTime('DD.MM.YYYY',now);
  if (abbruch) then
  begin
    CanClose:=true;
  end else begin
    Form1.Cursor:=crDefault;
    Form1.Refresh;
    CanClose:=false;
    if (Closestat = 0) then
    begin
      Closestat:=1;
      JaNein:=messagedlg('Programm-Ende ?', mtConfirmation, [mbYes, mbNo], 0);
      Closestat:=0;
      if (JaNein = mrYes) then
      begin
        CanClose:=true;
      end;
    end;
  end;
end;

ausgeführt.

Gruß
Jürgen

[juelin]

Heiko,
mir ist noch was aufgefallen.
Im Lazarus kann man nicht mehr mit F12 zwischen Quelltexteditor und Formular
hin und her schalten.
Gruß
Jürgen

[Mathias]

Habe dann das Program von DOS aus aufgerufe.

Unter DOS ?
Da wird dein Programm kaum laufen.
Oder meinst du etwa die Konsole ?

[juelin]

Hallo Heiko,
mit DOS meine ich das Programm cmd.exe.
Habe noch was rausgefunden.
Nach Programm-Start ist das Window Minimized.
In der Form1.WindowState steht aber wsNormal.
Auch wenn ich F12 betätige wird das Formular auf die Taskleiste runter minimiert.
Gruß
Jürgen

[juelin]

Hallo Heiko,
Problem gelößt.
Die Eigenschaften Heigh, With, Left und Top von Form1 waren verstellt (0).
Frag mich aber nicht wie das passiert ist.
Keine Ahnung.
Gruß
Jürgen