AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Eingabefenster automatisch anzeigen lassen

Ein Thema von zeras · begonnen am 19. Nov 2021 · letzter Beitrag vom 22. Nov 2021
Antwort Antwort
Seite 1 von 2  1 2      
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.643 Beiträge
 
Delphi 12 Athens
 
#1

Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 17:58
Ich habe ein Progamm. Dabei soll beim Start nach dem Aufbau des Hauptfensters automatisch ein Eingabefenster angezeigt werden.
Dies zeige ich im FormActivate des Haupfensters mittels

if fEntermanu.ShowModal = mrOK then begin an. Das scheint aber nicht der richtige Aufruf zu sein, da möglicherweise das Haupfenster nicht fertig wird.
Jedenfalls habe ich komische Phänomene, das etwa bei Anzeige von weiteren globalen Fenstern, das Hauptfenster immer wieder im Vordergrund bleibt oder automatisch wieder aufpoppt.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#2

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:06
Zitat:
Das scheint aber nicht der richtige Aufruf zu sein, da möglicherweise das Haupfenster nicht fertig wird.
Dann nimm Form_Show und deaktiviere das Hauptfenster solange bis die Eingabe erledigt ist.
Somit kann es sich nicht in den Vordergrund setzen.

Oder erstelle einen Messageloop innerhalb des Eingabe Fenster löse diesen erst auf nachdem die Eingabe abgeschlossen ist.
In dem fall wäre das Hauptfenster automatisch blockiert!

EDIT:
Beispiel

In Show deiner Eingabe form

Delphi-Quellcode:
var
  Msg: TMsg;

begin

  // Windows Messagen verarbeiten
  while GetMessage(Msg, 0, 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(Msg);
  end;

end;
Wird die form geschlossen sende in Destroy, besser noch vorher in deinem Button Ereignis PostQuitMessage(0);

Geändert von venice2 (19. Nov 2021 um 18:26 Uhr)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.643 Beiträge
 
Delphi 12 Athens
 
#3

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:17
Zitat:
Das scheint aber nicht der richtige Aufruf zu sein, da möglicherweise das Haupfenster nicht fertig wird.
Dann nimm Form_Show und deaktiviere das Hauptfenster solange bis die Eingabe erledigt ist.
Somit kann es sich nicht in den Vordergrund setzen.

Oder erstelle einen Messageloop innerhalb des Eingabe Fenster löse diesen erst auf nachdem die Eingabe abgeschlossen ist.
In dem fall wäre das Hauptfenster automatisch blockiert!
Danke für den Hinweis.
Ich habe mich vielleicht nicht genau ausgedrückt.
Das Hauptfenster sollte schon zu sehen sein und wenn das fertig aufgebaut ist, sollte das Eingabefenster aufpoppen. Das scheint ja zu gehen, aber Probleme siehe oben.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#4

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:18
Zitat:
Das scheint aber nicht der richtige Aufruf zu sein, da möglicherweise das Haupfenster nicht fertig wird.
Dann nimm Form_Show und deaktiviere das Hauptfenster solange bis die Eingabe erledigt ist.
Somit kann es sich nicht in den Vordergrund setzen.

Oder erstelle einen Messageloop innerhalb des Eingabe Fenster löse diesen erst auf nachdem die Eingabe abgeschlossen ist.
In dem fall wäre das Hauptfenster automatisch blockiert!
Danke für den Hinweis.
Ich habe mich vielleicht nicht genau ausgedrückt.
Das Hauptfenster sollte schon zu sehen sein und wenn das fertig aufgebaut ist, sollte das Eingabefenster aufpoppen. Das scheint ja zu gehen, aber Probleme siehe oben.
Lese bitte mein Edit!
Versuche es einfach mal sind nur ein paar Zeilen.

EDIT:
Vor allem sorge dafür das deine Eingabe form nicht automatisch erstellt wird.
Du mußt diese dynamisch über create in FormShow deines Hauptfensters erstellen.
Du mußt dann natürlich die Eingabe Form auch wieder freigeben aber ich denke das sollte dir klar sein.

Geändert von venice2 (19. Nov 2021 um 18:48 Uhr)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.643 Beiträge
 
Delphi 12 Athens
 
#5

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:29

Lese bitte mein Edit!
Versuche es einfach mal sind nur ein paar Zeilen.
Danke, das werde ich mal probieren.

Vor allem sorge dafür das deine Eingabe form nicht automatisch erstellt wird.
Du mußt diese dynamisch über create in FormShow deines Hauptfensters erstellen.
Nur kurz zum Verständnis. Warum kann das Eingabefenster nicht automatisch erzeugt werden? Im Moment ist es noch so.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
venice2
(Gast)

n/a Beiträge
 
#6

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:33

Lese bitte mein Edit!
Versuche es einfach mal sind nur ein paar Zeilen.
Danke, das werde ich mal probieren.

Vor allem sorge dafür das deine Eingabe form nicht automatisch erstellt wird.
Du mußt diese dynamisch über create in FormShow deines Hauptfensters erstellen.
Nur kurz zum Verständnis. Warum kann das Eingabefenster nicht automatisch erzeugt werden? Im Moment ist es noch so.
Weil du dann keine Kontrolle darüber hast zu welchen Zeitpunkt diese angezeigt werden soll..
Deshalb ist oder kann deine Hauptform nicht vollständig geladen sein da es automatisiert abläuft.
Siehe Shot!

Geändert von venice2 (25. Nov 2021 um 20:24 Uhr)
  Mit Zitat antworten Zitat
zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.643 Beiträge
 
Delphi 12 Athens
 
#7

AW: Eingabefenster automatisch anzeigen lassen

  Alt 19. Nov 2021, 18:48
Danke für die Erklärung. Dann habe ich etwas fürs Wochenende zum Testen.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#8

AW: Eingabefenster automatisch anzeigen lassen

  Alt 20. Nov 2021, 04:26
Zitat:
Weil du dann keine Kontrolle darüber hast zu welchen Zeitpunkt diese angezeigt werden soll..
Doch, hat man.

Visible im FormDesigner: False = nicht sofort anzeigen
das erste Fenster wird immer die MainForm und die wird auch immer sofort sichtbar, egal wie Visible eingestellt war

und anschließend kann man mit Show+Hide oder ShowModal das Fenster anzeigen.


Wenn man das Fenster aus der Liste entfernt, dann kann muß man später dieses Fenster manuell erstellen und es anzeigen (falls nicht schon Visible=True).
Das "Selbsterstellen" ist aber kein Nachteil, da man so das Fenster erst erstellen kann, wenn man es wirklich braucht.

Für ShowModal darf das Fenster (vorher) nicht sichtbar sein (Visible=False).
$2B or not $2B
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
5.388 Beiträge
 
Delphi 12 Athens
 
#9

AW: Eingabefenster automatisch anzeigen lassen

  Alt 20. Nov 2021, 09:02
Moin...
Zitat:
Das Hauptfenster sollte schon zu sehen sein und wenn das fertig aufgebaut ist, sollte das Eingabefenster aufpoppen.
1. OnActivate ist das gaaanz falsche Event. Lies dir mal die Hilfe dazu durch.
2. OnShow ist fast das richtige Event. Das Problem ist, wenn du das Popup Form hier erzeugst ist das Hauptfenster noch nicht sichtbar weil durch den Dialog das OnShow nicht durchlaufen.

Lösung:
Im OnShow eine Message absetzen und eine "AfterShow" procedure erstellen und aufrufen.
Delphi-Quellcode:
const
  MessageAfterShow = WM_USER + 1;
...
private
procedure AfterShow(Sender: TObject);
procedure AfterShowMessage(var Msg: TMessage); message MessageAfterShow;
...
procedure TMyForm.FormShow(Sender: TObject);
begin
  PostMessage(Self.Handle, MessageAfterShow, 0, 0);
end;
...
procedure TMyForm.AfterShowMessage(var Msg: TMessage);
begin
  AfterShow(Self);
end;
...
procedure TMyForm.AfterShow(Sender: TObject);
begin
  Dialog.Execute; // sinngemäß
end;

Geändert von haentschman (20. Nov 2021 um 09:04 Uhr)
  Mit Zitat antworten Zitat
BerndS

Registriert seit: 8. Mär 2006
Ort: Jüterbog
491 Beiträge
 
Delphi 12 Athens
 
#10

AW: Eingabefenster automatisch anzeigen lassen

  Alt 20. Nov 2021, 10:39
Ich öffne das erste Fenster zur Anmeldung über Applikation.OnIdle und setze es dann Applikation.OnIdle auf Nil,bevor der Dialog dann aufgerufen wird.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz