Dos ventanas activas

[roman]

¿Cómo puede hacerse para abrir una segunda ventana y que la primera siga estando activa, o por lo menos que lo parezca?

Me explico. En varias aplicaciones, por ejemplo MS Word, cuando colocamos una barra de herramientas como una ventana independiente, tanto la barra como la ventana principal tienen su barra de título en azul.

Pienso que esto podría servirme pero concretamente lo que quiero hacer es simular una lista desplegable creando yo mi propia ventana en donde desplegar sus elementos. Esto puedo hacerlo con una ventana sin borde que coloco en la posición deseada pero al mostrar la lista se desactiva la ventana desde la que la abrí, detalle que quisiera evitar. Por ejemplo, en el IDE de Delphi, cuando se muestra la lista de métodos y propiedades de un objeto no se desactiva la ventana del editor.

¿Alguien sabe como puedo lograr esto?

// Gracias

[delphi.com.ar]

Si quieres puedes ver ese código de las RX, en los componentes TDateEdit, TRxCalc.
Igualmente te cuento que yo tengo hecho algo así, de cero, de no servirte, te puedo pasar un resumen de como lo hago.

Saludos!

[delphi.com.ar]

:D Me faltó un detalle: creo que los popups nunca reciben el foco realmente

Saludos!

[roman]

Posteado originalmente por delphi.com.ar
Si quieres puedes ver ese código de las RX, en los componentes TDateEdit, TRxCalc.
Igualmente te cuento que yo tengo hecho algo así, de cero, de no servirte, te puedo pasar un resumen de como lo hago.

Saludos!

Por ahora preferiría no meterme con las RX. Normalmente siempre hay algo por lo cual no puedo instalarlas y aunque le d un vistazo al código que me indicas no parece funcionarme.

Si puedes resumirme lo que me cuentas estaría perfecto.

Gracias!

[delphi.com.ar]

Este es un combo mío que despega un CheckListBox:

TPopupCheckList = class(TCheckListBox)
private
protected
procedure KeyPress(var Key: Char); override;
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
published
end;

inplementation

{ TPopupCheckList }

constructor TPopupCheckList.Create(AOwner: TComponent);
begin
inherited;
Visible := False;
end;

procedure TPopupCheckList.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
Style := Style or WS_BORDER;
ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
AddBiDiModeExStyle(ExStyle);
WindowClass.Style := CS_SAVEBITS;
end;
end;

procedure TPopupCheckList.CreateWnd;
begin
inherited CreateWnd;
if not (csDesigning in ComponentState) then begin
Windows.SetParent(Handle, 0);
CallWindowProc(DefWndProc, Handle, WM_SETFOCUS, 0, 0);
end;
end;

procedure TPopupCheckList.KeyPress(var Key: Char);
begin
if (Key = #27) or (Key = #13) Then
TCustomCheckCombo(Owner).CloseUp
else
...
end;
end;


Código del Combo:


constructor TCustomCheckCombo.Create(AOwner: TComponent);
begin
inherited;
PopupWindow := TPopupCheckList.Create( Self );
PopupWindow.Parent := Self;
PopupWindow.Visible := False;
...
end;


procedure TCustomCheckCombo.DropDown;
begin
{ Calcula la posicion y tamaño del Popup .... }
...
Windows.SetParent(PopupWindow.Handle, 0);
PopupWindow.Visible := True;
SetWindowPos(PopupWindow.Handle, HWND_TOP, P.X, vPos, 0, 0, SWP_NOSIZE or SWP_NOACTIVATE or SWP_SHOWWINDOW);
SetActiveWindow(PopupWindow.Handle);
end;

procedure TCustomComboEditor.CloseUp;
begin
SetWindowPos(PopupWindow.Handle, 0, 0, 0, 0, 0, SWP_NOZORDER or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE or SWP_HIDEWINDOW);
PopupWindow.Visible := False;
end;


Y utiliza los mensajes WM_KILLFOCUS y CM_CANCELMODE para hacer un CloseUp por clickear fuera de la lista o perder el foco.

Espero que te sirva, creo no haber olvidado nada, si notas los nombres de las clases te darás cuenta que tengo todo un árbol de jerarquías con esto, así que no fue fácil "resumirlo", Saludos!

[roman]

Muchas gracias por tu resumen y por el tiempo dedicado a ello. Voy a revisarlo y estudiarlo con cuidado.

// Saludos