Popup-Window wie Code Complete

[tyb]

Hallo

Ich möchte ein Fenster-Control schreiben, welches von der MainForm losgelöst ist, beim Aktivieren jedoch den Fokus der Form nicht wegnimmt.

Dieses Verhalten sieht man beim Auto Complete Fenster in Delphi: Wenn man Ctrl-Leertaste drückt, sieht man ein Control, welches über den Fensterrand ragen kann. Diese Liste kann mit einem Klick aktiviert werden, man kann scrollen, Einträge auswählen, etc., dabei bleibt das dahinterliegende Fenster (Quelltexteditor) aber immer aktiv.

Wie erzeuge ich so ein schwebendes Fenster, welches den Fokus nicht stiehlt?

Ich habe bisher schon versucht, CreateParams zu überschreiben und dort WndParent auf den DesktopWindow zu setzen:

Delphi-Quellcode:

procedure TMyPopupWindow.CreateParams(var params: TCreateParams);
begin
  inherited;
  Params.WndParent := GetDesktopWindow;
end;

So schwebt mein Control zwar, jedoch akzeptiert es keine Klicks mehr.

Danke für jeden Tip!

[SirThornberry]

Sowas kann man mit Forms und dem entsprechenden Style (noActivate oder so ähnlich) erreichen. Die Lösung wurde mal im Zusammenhang mit einer Bildschirmtastatur erwähnt welche ja auch nicht den Focus von der anderen Anwendung nehmen soll.

[tyb]

NoActivate (WS_EX_NOACTIVATE) habe ich versucht. Leider ändert es nichts an der Sache.

[SirThornberry]

wie? gar kein Unterschied? dann scheinst du etwas falsch zu machen. Denn es sollte dann nicht mehr aktiviert sein.

[tyb]

Okay, bei einer Form geht's mit dem Code hier (im Forum gefunden)

Delphi-Quellcode:

  SetWindowLong(handle, GWL_EXSTYLE,GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_NOACTIVATE); 
  SetWindowPos(Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);

versuche mal den Unterschied zu meinem Control zu finden ;)

Danke schon mal.

[jfheins]

Der Unterschied liegt bei dem Control, siehe msdn:

Zitat:

Windows 2000/XP: A top-level window created with this style does not become the foreground window when the user clicks it.

[shmia]

Versuch's mal mit THintWindow:
http://www.delphipraxis.net/internal...t.php?t=117444

[SirThornberry]

Ein HintWindow kann man aber nicht klicken was jedoch beim Codevervollständigungsfenster etc. geht. Grund ist das dort der Style so ist das klicks etc. an das Fenster des gleichen Prozesses welches dahinter liegt durchgereicht werden.

[tyb]

Ich habe momentan folgendes:

Delphi-Quellcode:

type
  TPanelEx = class(TPanel)
  public
    constructor Create(AOwner: TComponent); override;
    procedure CreateParams(var Params: TCreateParams); override;
  end;

{ TPanelEx }

constructor TPanelEx.Create(AOwner: TComponent);
begin
  inherited;
  SetWindowLong(handle, GWL_EXSTYLE,GetWindowLong(handle, GWL_EXSTYLE) or WS_EX_NOACTIVATE);
  SetWindowPos(Handle, HWND_NOTOPMOST + WORD(true), 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;

procedure TPanelEx.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    Style := WS_POPUP or WS_BORDER;
    WindowClass.Style := WindowClass.Style or CS_SAVEBITS;
    if NewStyleControls then
      ExStyle := WS_EX_TOOLWINDOW;
    if NewStyleControls then ExStyle := WS_EX_TOOLWINDOW;
    AddBiDiModeExStyle(ExStyle);
    ParentWindow := GetDesktopWindow;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Panel: TPanelEx;
begin
  Panel := TPanelEx.Create(nil);
  ShowWindow(Panel.Handle, SW_SHOW);
end;

Dieses PanelEx stiehlt den Fokus von anderen Fenstern von anderen Programmen nicht (wie gewünscht). Jedoch stiehlt es den Fokus vom MainForm. Das darf natürlich auch nicht sein. Es funktioniert also überall, ausser beim MainForm. Hat jemand eine Ahnung an was das liegen könnte?

Danke

[Mackhack]

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    Memo: TMemo;
    XPManifest: TXPManifest;
    ListBox: TListBox;
    procedure MemoKeyPress(Sender: TObject; var Key: Char);
    procedure ListBoxKeyPress(Sender: TObject; var Key: Char);
    procedure MemoEnter(Sender: TObject);
    procedure ListBoxDblClick(Sender: TObject);
  private
    procedure MemoCatch;
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.MemoCatch;
begin
  with ListBox do
    Memo.SelText := Items[ItemIndex];
  Memo.SetFocus;
end;

procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);
var
  pt: TPoint;
begin
  if Key <> '.' then
    Exit;
  GetCaretPos(pt);
  with ListBox do
  begin
    Left := pt.X + 6;
    Top := pt.Y - Memo.Font.Height * 6 div 5;
    ItemIndex := 0;
    Visible := true;
    SetFocus;
  end;
end;

procedure TDemoForm.ListBoxKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    Chr(VK_RETURN):
      MemoCatch;
    Chr(VK_ESCAPE):
      Memo.SetFocus;
  end;
end;

procedure TDemoForm.MemoEnter(Sender: TObject);
begin
  Listbox.Visible := false;
end;

procedure TDemoForm.ListBoxDblClick(Sender: TObject);
begin
  MemoCatch;
end;

[tyb]

@Mackhack: Ich möchte ein Floating Window, das den Fokus des MainForms nicht stiehlt. Ist ja schön, wenn du Code postest, aber es hat nicht viel damit zu tun, was ich beschrieben habe ;)

[Mackhack]

Zitat:

Zitat von tyb

@Mackhack: Ich möchte ein Floating Window, das den Fokus des MainForms nicht stiehlt. Ist ja schön, wenn du Code postest, aber es hat nicht viel damit zu tun, was ich beschrieben habe ;)

Wohl ueberlesen :twisted:

[tyb]

Wenn niemand weiss wie - Kennt jemand vielleicht ein Projekt mit Source, wo ich nachschauen könnte?

[Mackhack]

Du koenntst vlt. mal den Code vom TFindDialog ansehen. Der muesste doch das machen was du willst denn dieser Dialog ist im Prinzip modal aber du kannst weiterhin auch wenn er sichtbar ist z. B. ins Memo klicken und dort arbeiten!

[uligerhardt]

Zitat:

Zitat von tyb

Wenn niemand weiss wie - Kennt jemand vielleicht ein Projekt mit Source, wo ich nachschauen könnte?

Schau doch mal hier.

HTH,
Uli.

[v2afrank]

Bei dem CNPack gibt es doch auch so ein Fenster. Schau Dir doch den Code mal an

[tyb]

@uligerhardt: Danke aber wenn ich das Popup anklicke geht der Fokus des Parent-Fensters weg.
CNPack werd ich mal anschauen.

[uligerhardt]

Zitat:

Zitat von tyb

@uligerhardt: Danke aber wenn ich das Popup anklicke geht der Fokus des Parent-Fensters weg.

<Bernd>Mist!</Bernd> :-D