SetFocus will nicht ...

[jaenicke]

Es ist keine gute Idee so viel im OnActivate zu machen, schon gar nicht Änderungen am Fokus. Denn das OnActivate passiert ja gerade erst beim Anzeigen des Fensters. Du könntest dir z.B. selbst mit PostMessage eine Nachricht an dein Fenster schicken, die dann erst hinterher abgearbeitet wird, und dort diese Aktionen ausführen.

Aber auch ich kann das Problem nicht nachvollziehen. Ohne Beispielprojekt sehe ich nicht, wie ich hier zielgerichtet helfen könnte.

[himitsu]

Zitat von jaenicke:

Denn das OnActivate passiert ja gerade erst beim Anzeigen des Fensters.

Angezeigt ist es schon ... das war OnShow.

OnActivate ist, wenn das Fenster den Fokus bekommen hat,

[TERWI]

OnActivate habe ich gerade deswegen genommen, weil:
- Alle Units/Klassen sind dann initialisiert.
- Die MainForm wird (das erste mal) gestartet.
... so weit ich das alles richtig verstanden habe.

Zitat:

OnActivate ist, wenn das Fenster den Fokus bekommen hat

KORREKT !
... durch was & wen auch immer ...
Beim Programmstart auf jeden Fall.
ABER EBEN NICHT (mehr) wenn die procedure durch ist und es das LOGWIN gibt !
Da kann ich zuweisen/intitalisieren was ich will - geht einfach nicht
Auch das MainHandle an den LOGGER geben und dort SetForeGround o. ä. machen hilft nicht

Damit hab ich mich mal ne Zeit lang selbst vereimert.
Und dass das erneute Ausführen meiner Initialisierung eben nicht noch passiert, gibt es das Flag "FIsInit".
... wenn ich das versehentlich auskommentiert hatte, .... oh weia.
Ich weiß, nicht ganz sauber aber wenn man drauf achtet funzt das 1A !

Was den Focus angeht, hatte ich da vorhin eine Idee...
Bastle grade dran und gebe noch "Bescheid".

[himitsu]

Das sind sie auch so.

OldCreateOrder sollte man aber auf False stellen, falls es das nicht ist. (das wird True, wenn man extrem uralte Units/Forms in der IDE öffnet und kein OldCreateOrder nicht in der DFM stand ... bei neuen Forms ist es False)
OnCreate wurde früher im Create ausgeführt, aber nun erst im AfterCreate.

[TERWI]

Zum besseren Verständnis:

Jede Unit/Klasse die ich verwende hat jeweils eigene Initialisierungen für sich selbst mit:
- OnCreate (Elementares intern)
- OnDestroy (Dito)
für eigenen internen Kram, automatisch beim Programmstart zur elementaren Initialisierung.
Dazu hat jede Klasse die Funktionen
- OnInit mit Parametern, die erst zum Programmstart bekannt werden (z.B. INI-File)
- OnExit zur sicherung zwischenzeitlicher Änderungen intern eigen erzeugter Daten
welche ich in der MainForm eben in Activate/OnDestroy vor der "Zerstörung" allem anderen aufrufe.
Da kann ich sicher sein, das alles Grundlegende sonstwie definitiv passiert ist und ich alles weitere passend einstellen kann.

Da wird nix verbogen, geschachert, manipuliert oder sonstwas - straight wie es das Proggie braucht wird initialisiert und umgekehrt ggf. gesichert und freigegeben.

Wenn alles an der richtigen Stelle richtig gemacht wird, lüppt dat wie anne Schnur getreckt.
Loggo... wenn da nicht manchmal so Kleinigkeiten einem den Spaß vermiesen.

[jaenicke]

Zitat von himitsu:

OnActivate ist, wenn das Fenster den Fokus bekommen hat,

Ich meinte im Prozess des Anzeigens, denn OnActivate wird ansonsten ja auch noch viel öfter beim Fokuswechsel aufgerufen.

Das Problem tritt bei mir auch auf, wenn ich das zweite Fenster direkt im OnActivate anzeige. Das ist aber ja auch logisch, dass man während des Wechsels des Fokus nicht sinnvoll weitere Fokuswechsel in den Griff bekommt...

Wenn ich das Fenster stattdessen wie vorgeschlagen einfach nach der kompletten Anzeige in einer eigenen Message anzeige, klappt es auch mit dem Fokus:

Delphi-Quellcode:

const
  WM_TEST = WM_APP + 100;

type
  TForm235 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  protected
    procedure WmTest(var Msg: TMsg); message WM_TEST;
  public
    { Public-Deklarationen }
  end;

var
  Form235: TForm235;

implementation

{$R *.dfm}

procedure TForm235.FormCreate(Sender: TObject);
begin
  PostMessage(Handle, WM_TEST, 0, 0);
end;

procedure TForm235.WmTest(var Msg: TMsg);
begin
  Form236.Show;
  SetFocus;
end;

[himitsu]

Stimmt, direkt in OnCreate und OnShow geht es nicht, wenn man sich alle Fenster beim Start erstellen lässt,
da die andere Form natürlich erst nach der MainForm erstellt wird.

Auch die zweite Form selber erstellen, hat einen Haken, denn PopupMode funktioniert noch nicht, weil die MainForm erst als MainForm registriert wird, nachdem sie vollständig erstellt wurde. (wobei man das eventuell mal als Bug melden könnte)

Ich mach es mit mit sowas einfach nur noch einfach.

Delphi-Quellcode:

procedure TForm10.FormCreate(Sender: TObject);  // oder besser im OnShow
begin
  ...
  TThread.ForceQueue(nil, procedure  // es war echt schwachsinnig den Bugfix für Queue als ForceQueue zu bennen, anstatt es "richtig" zu machen.
    begin
      //Form11.Show;
      //SetFocus;
      ShowWindow(Form11.Handle, SW_SHOWNOACTIVATE);
      Form11.Visible := True;
    end);
end;