Problem mit CreateParams und WS_EX_APPWINDOW

[iphi]

Das Problem ist der aufpoppende Hint, der, warum auch immer, das Hauptfenster wieder in den Vordergrund holt, ohne dem Hauptfenster den Fokus zu geben.

Ein nicht sehr eleganter Work-around könnte so aussehen:

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
begin
SetCursorPos(Left+Label1.Left-1,Top+Label1.Top+Height-Clientheight);
Form2.Visible:=true;
Form2.BringToFront;
end;

Die Maus wird soweit verschoben, dass kein Hint mehr kommt. Wenn der Nutzer aber die Maus zurück bewegt, passiert es wieder.

Eleganter wäre es, den Hint auszuschalten, wenn Form1 den Fokus verliert, und wieder einzuschalten, wenn es den Fokus wieder erlangt. Mein Problem ist, dass ich auf meinem Form1 sehr viele Objekte mit aktivierten Hints habe, und auch viele ohne.

Gibt es eine effiziente Methode, alle Hints einer Form global zu deaktivieren bzw. zu reaktivieren?

[iphi]

Zitat:

Kann es sein, dass deine Maus prellt? Versuch es mal mit einer anderen Maus.

Nein, das hat damit nichts zu tun. Es passiert ja auch, wenn ich den Mauszeiger einfach über das Label bewege.

[iphi]

Eine gute Lösung könnte also in etwa so aussehen, aber eben programmatisch für alle Elemente mit Hints:

Delphi-Quellcode:

procedure TForm1.FormDeactivate(Sender: TObject);
begin
label1.showhint:=false;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
label1.ShowHint:=true;
end;

[iphi]

Zitat:

Ich sehe gerade, bei meinem Delphi 2007 habe ich 2014 die Controls.pas modifiziert. ...

Danke für den Tipp, probiere ich nachher mal aus. Muss jetzt kochen

[samso]

Spätestens bei Delphi 2010 wurde der Fehler möglicherweise von Seiten Embarcadero beseitigt. Die eigentliche Fehlerursache scheint darin zu liegen, dass das ParentWindow für das HintWindow nicht rechtzeitig gesetzt wurde.

Delphi-Quellcode:

procedure THintWindow.ActivateHint(Rect: TRect; const AHint: string);
type
  TAnimationStyle = (atSlideNeg, atSlidePos, atBlend);
const
  AnimationStyle: array[TAnimationStyle] of Integer = (AW_VER_NEGATIVE,
    AW_VER_POSITIVE, AW_BLEND);
var
  Animate: BOOL;
  Style: TAnimationStyle;
  Monitor: TMonitor;
begin
  FActivating := True;
  try
    Caption := AHint;
    Inc(Rect.Bottom, 4);
    UpdateBoundsRect(Rect);
    Monitor := Screen.MonitorFromPoint(Point(Rect.Left, Rect.Top));
    if Width > Monitor.Width then
      Width := Monitor.Width;
    if Height > Monitor.Height then
      Height := Monitor.Height;
    if Rect.Top + Height > Monitor.Top + Monitor.Height then
      Rect.Top := (Monitor.Top + Monitor.Height) - Height;
    if Rect.Left + Width > Monitor.Left + Monitor.Width then
      Rect.Left := (Monitor.Left + Monitor.Width) - Width;
    if Rect.Left < Monitor.Left then Rect.Left := Monitor.Left;
    if Rect.Bottom < Monitor.Top then Rect.Top := Monitor.Top;

    ParentWindow := Application.Handle; // <<<<<<<<<<<<<<
    SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height,
      SWP_NOACTIVATE);
    if (GetTickCount - FLastActive > 250) and (Length(AHint) < 100) and
       Assigned(AnimateWindowProc) then
    begin
      SystemParametersInfo(SPI_GETTOOLTIPANIMATION, 0, {$IFNDEF CLR}@{$ENDIF}Animate, 0);
      if Animate then
      begin
        SystemParametersInfo(SPI_GETTOOLTIPFADE, 0, {$IFNDEF CLR}@{$ENDIF}Animate, 0);
        if Animate then
          Style := atBlend
        else
          if Mouse.GetCursorPos.Y > Rect.Top then
            Style := atSlideNeg
          else
            Style := atSlidePos;
        AnimateWindowProc(Handle, 100, AnimationStyle[Style] or AW_SLIDE);
      end;
    end;
    ShowWindow(Handle, SW_SHOWNOACTIVATE);
    Invalidate;
  finally
    FLastActive := GetTickCount;
    FActivating := False;
  end;
end;

Man beachte die geänderte Position der Zuweisung "ParentWindow := Application.Handle" (im Vergleich zu der Version von Delphi 2007)

[iphi]

Zitat:

Delphi-Quellcode:

SetWindowPos(Handle, HWND_TOPMOST, Rect.Left, Rect.Top, Width, Height,
      SWP_NOACTIVATE or SWP_NOOWNERZORDER); //15.3.2014 SWP_NOOWNERZORDER hinzugefügt **

Super, danke Samso, das wars. Der Fix funktioniert auch unter Delphi7!

Frohes Fest an alle!