Toolwindow aufrufen und zurück zur aufrufenden Form

[Captnemo]

Hi,

mal wieder in Problem.
Ich will für verschiedene Formatierungen eine Toolwindow einblenden. Dieses soll nur erscheinen, wenn der Focus auf eine entsprechende Control gesetzt wird.
Soweit, so gut.

Als Toolwindow nehmen ich eine ganz normale Form mit .FormStyle=fsStayOnTop.
Zusätzlich habe ich ihr im OnShow

Delphi-Quellcode:

   SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

verpasst.
Funktioniert auch.

Im OnEnter des Controls positioniere ich das Toolwindows und mache es mittels

Delphi-Quellcode:

  
  frm_toolwnd.show;
  edt_richtext.SetFocus;    
  frm_toolwnd.SetButtons(edt_richtext.SelAttributes);

sichtbar. Auch das kein Problem.

Jetzt ist aber leider so, dass der Focus nicht an mein edt_richtext zurückgelangt. Ich kann das edt_richtext, aus dessen OnEnter-Ereignis das Toolwindow aufgerufen wird, nicht anlicken, es erhält keinen Cursor. Jedes andere Control (Edit, Combobox, ...) aber schon.
Ich muß erst irdendwas auf dem Toolwindow anklicken, so dass dieses den Focus erhält. Z.B. die Titelleiste. Danach kann ich das edt_richtext auf der Form2 anklicken, ich habe dann auch der Cursor und kann auch was reinschreiben.
Bevor nicht das Toolwindows kurz den Focus hat, kann ich dem edt_richtext nichts schreiben.

edt_richtext ist ein JvRichEdit. Ich habe das aber auch mal mit einem TEdit probiert, gleiches Verhalten.

Wie gesagt, alle anderen Controls auf Form2 verhalten sich aber ganz normal.

Hat einer eine Idee?

[baumina]

Ich kann mich nicht mehr genau erinnern warum ich das so gemacht habe, aber einen Versuch ist es sicherlich wert. Mein Fenster bleibt immer sichtbar, egal ob ich in der Anwendung bin oder nicht, bleibt aber immer in der gerade aktiven Anwendung mit dem Fokus stehen, zudem schließt es sich selbstständig nach einer gewissen Zeit.

Ich kopiere einfach mal den relevanten Teil hier rein:

Delphi-Quellcode:

procedure TfmShowAnrufer.FormHide(Sender: TObject);
begin
  Timer2.Enabled := False;
  Timer1.Enabled := False;
  ShowWindow(handle, SW_HIDE);
end;

procedure TfmShowAnrufer.FormShow(Sender: TObject);
begin
  Left := Screen.WorkAreaLeft + Screen.WorkAreaWidth - Width;
  Top := Screen.WorkAreaTop + Screen.WorkAreaHeight - Height;
  Timer2.Enabled := True;
  Timer1.Enabled := True;
  Timer2Timer(Nil); // das müssen wir machen, damit das Fenster keinen Fokus bekommt
end;

procedure TfmShowAnrufer.Timer1Timer(Sender: TObject);
var
  Merk : TWindowState;

begin // Fenster schließt sich nach einer gewissen Zeit automatisch
  Timer2.Enabled := False;
  If not Application.Active then
  begin
    // diesen Workaround müssen wir machen, weil sonst nach ToggleDesktop das Fenster
    // sichtbar bleibt und sich auch nicht manuell schlie0en läßt
    Merk := Application.MainForm.WindowState;
    Application.Minimize;
    Application.Restore;
    Close;
    Application.MainForm.WindowState := Merk;
  end else
  begin
    Close;
  end;
end;

procedure TfmShowAnrufer.Timer2Timer(Sender: TObject);
begin
  // den Aufstand müssen wir machen, da das Fenster sonst beim Minimieren, Deaktivieren
  // oder ToggleDesktop verschwinden würde
  Application.RestoreTopMosts;
  ShowWindow(handle, SW_SHOWNOACTIVATE);
end;

[Captnemo]

Danke, aber ich weiß leider nicht, was mir das helfen soll.
Ich will ja das Toolwindows nicht nach einer gewissen Zeit schließen oder so, sondern ich habe das Problem, dass des Control aus dessen OnEnter das Toolwindow aufgerufen wird, solange keinen Cursor hat, bis ich wenigstens einmal das Toolwindow angeklickt haben.

Was wohl geht (hab ich grad herausgefunden), dass das Control Maus- und Tastureingaben annimmt und umsetzt. Sprich ich kann den Cursor setzen und auch Texteingeben. Ich kann aber leider nichts markieren und der Cursor wird nicht angezeigt.

[baumina]

OK, dachte du kannst das "einfach" für deine Bedürfnisse umschreiben und nutzen. Aber dann hab ich das mal eben für dich gemacht.

1. Im OnEnter des Editfeldes:

Delphi-Quellcode:

procedure TForm15.Edit1Enter(Sender: TObject);
begin
  ToolWin.Visible := True; // Formular anzeigen ACHTUNG hier kein .Show verwenden
end;

2. Im ToolWindow:

Delphi-Quellcode:

procedure TToolWin.FormHide(Sender: TObject);
begin
  ShowWindow(handle, SW_HIDE); 
end;

procedure TToolWin.FormShow(Sender: TObject);
begin
  Left := Screen.WorkAreaLeft + Screen.WorkAreaWidth - Width;
  Top := Screen.WorkAreaTop + Screen.WorkAreaHeight - Height;
  ShowWindow(handle, SW_SHOWNOACTIVATE); // das müssen wir machen, damit das Fenster keinen Fokus bekommt
end;

3. Zur Sicherheit noch die DFM des Toolwindows:

Delphi-Quellcode:

object ToolWin: TToolWin
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'eingehender Anruf'
  ClientHeight = 220
  ClientWidth = 458
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -24
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDefaultSizeOnly
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 29
end

[himitsu]

Das Fokushandling der VCL, zwischen den Fenstern und vorallem bei MDI, ist halt einfach nur total verbuggter Schrott.

Zitat:

Zitat von Captnemo (Beitrag 1272025)

Delphi-Quellcode:

   SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

Wird OnShow nicht nach dem Anzeigen ausgeführt?
Wenn ja, dann ist dein Befehl natürlich zu spät dran.

[Captnemo]

Zitat:

Zitat von baumina (Beitrag 1272050)

OK, dachte du kannst das "einfach" für deine Bedürfnisse umschreiben und nutzen. Aber dann hab ich das mal eben für dich gemacht.

Ich hab das schon verstanden.

Nur ist das nicht mein Problem. Mein Toolwindow positioniert sich ja richtig und ist auch nach dem Erscheinen auch nicht Aktiv bzw. hat nicht den Focus.
Das Control aus dessen OnEnter ich das Toolwindow sichtbar mache hat auch den Focus, denn wenn ich reinklicke und einfach drauflos schreibe, schreibt mein Anwendung auch den Text in das Control.
Nur sehe ich keine blinkenden Cursor im Control und ich kann auch mit der Maus nichts markieren. Das geht erst, wenn ich mit der Maus das Toolwindow kurz aktiv mache, und dann wieder in das Control klicke.

Ich habe aber deinen Code mal so umgesetzt. Leider erhalte ich das gleiche Ergebnis wie vorher.

[Captnemo]

Zitat:

Zitat von himitsu (Beitrag 1272063)

Das Fokushandling der VCL, zwischen den Fenstern und vorallem bei MDI, ist halt einfach nur total verbuggter Schrott.

Ist kein MDI. Ganz "normale" TForm. Ich will nur die ganzen Formatierungstools nicht ständig auf der Bearbeitungsform haben. Deswegen erschien mir ein Toolwindow als nützlich.

[Aviator]

Das selbe Problem taucht auch auf, wenn man von einem Editfeld (Edit1) in ein anderes (Edit2) wechselt und im OnExit von Edit1 noch eine MessageBox anzeigt. Auch dann ist das (oder der?) Caret nicht sichtbar, Eingaben werden aber trotzdem problemlos akzeptiert. Eine Lösung dafür habe ich leider auch nicht.

[Captnemo]

Dann werd ich mal weiter probieren. Das muß doch gehen.
Wenn einer noch Ideen hat, immer her damit.

@baumina: ich werd mich aber nochmal mit deiner Lösung beschäftigen. Vielleicht mach ich mal ein neues Projekt, was leer ist, um Beeinflussung anderer Komponenten und meines eigenen Code auszuschließen.

[baumina]

Ich geb dir mal mein Testprogramm. Extra mit exe, evtl. macht dein XE4 ja was anderes als mein XE. Auf meinem Windows 7 habe ich damit das Verhalten bei dem ich der Meinung bin, dass du das suchst.