Hallo,

ich habe folgenden Code, und dieser ruft automatisch das OnShow Ereignis des Forms auf. Ist das normal so? Für mich ist das aber voll ungünstig, kann ich das irgendwie umgehen, oder ist das eine schlechte Idee? Lässt sich vielleicht das Form anders kleiner machen, nicht so wie bei mir?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.MinimizeMIClick(Sender: TObject);
begin
  // MainForm minimieren
  if MainForm.WindowState = wsMaximized then
  begin
    MainForm.BorderStyle := bsSizeable;
    MainForm.WindowState := wsNormal;
    MainForm.Width := 800;
    MainForm.Height := 600;
  end else
  begin
    MainForm.BorderStyle := bsNone;
    MainForm.WindowState := wsMaximized;
  end;
end;

Danke!

Muss es wohl zwangsweise, damit die neuen Eigenschaften wirksam werden. Warum ist es ungünstig für dich?

Zitat von Luckie:

Muss es wohl zwangsweise, damit die neuen Eigenschaften wirksam werden. Warum ist es ungünstig für dich?

Weil ich da Dinge mache, die beim erneutem Laden meine Anwendung durcheinander bringen. Da muss ich wohl diese mit ner if-Abfrage schützen. Wie kann man prüfen, ob der Sender die procedure TMainForm.MinimizeMIClick(Sender: TObject); ist?

Es gibt noch andere Möglichkeiten die Titelleiste zu entfernen als bsNone.

Zitat von Popov:

Es gibt noch andere Möglichkeiten die Titelleiste zu entfernen als bsNone.

Wie?

Dann mach sie doch erst, wenn du sie neu lädst. Was meinst du eigentlich genau mit "neu laden"?

Zitat von Luckie:

Dann mach sie doch erst, wenn du sie neu lädst. Was meinst du eigentlich genau mit "neu laden"?

Bei erneutem Anzeigen (Show) meinte ich. ))

Zitat von AlexII:

Weil ich da Dinge mache, die beim erneutem Laden meine Anwendung durcheinander bringen. Da muss ich wohl diese mit ner if-Abfrage schützen. Wie kann man prüfen, ob der Sender die procedure TMainForm.MinimizeMIClick(Sender: TObject); ist?

Ähnliche Probleme hatte ich früher auch schonmal. Inzwischen mach ich das so:

Im Oncreate werden alle benötigten Objekte erzeugt. Ebenfalls wird dort ein privater Boolean StartModus (Private-Abschnitt) auf True gesetzt.
In OnShow und in OnActivate frage ich diesen Boolean ab:

markieren

Delphi-Quellcode:

procedure TFormMain.Show(Sender: TObject);
begin
  if not StartModus then exit;

  MachSonstWas;
  DiesUndDas;
  ...
end;

Dasselbe in OnActivate. Dort wird dann, nachdem dort alles erledigt wurde, was zu erledigen ist, z.B. Verbindung mit der Datenbank herstellen usw., StartModus auf False gesetzt:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormMain.Activate(Sender: TObject);
begin
  if not StartModus then exit;

  if not DatMod.VerbindenDatenbank Then
  begin
    ShowMessage('Verbindung mit der Datenbank fehlgeschlagen. Programm wird beendet.');
    Close;
  end;

  if not DatMod.VerbindenQueries Then
  begin
    ShowMessage('Verbindung mit der Queries fehlgeschlagen. Programm wird beendet.');
    Close;
  end;

  BenutzerLogin;

  EinstellungenLaden; // dort wird u.a. auch WindowState gesetzt, die Werte für die Einstellungen kommen aus der DB
  ...
  StartModus := False;
end;

Somit mußt du nichts prüfen außer dem Boolean StartModus, der sonst nirgendwo verwendet wird.

Wow... super Lösung, danke!