Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
Capturar El Evento Del Cambio De Foco En Un Form

En mi aplicacion Win32 capturaba el cambio de foco en un formulario con el siguiente evento:

procedure CMFocusChanged(Var Msg: TCMFocusChanged); message CM_FocusChanged;

Ahora en Delphi 8 ha desaparecido CM_FocusChanged, como lo puedo hacer?
__________________
J. Adolfo Núñez
Responder Con Cita
  #2  
Antiguo 19-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
¿has probado con capturar un WM_FOCUSCHANGES mensaje de xindows?
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #3  
Antiguo 19-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
perdona, creo que era este procedimiento con este message

//Para cuando pierde el focus
procedure WMKILLFOCUS(Var Tmessage);message WM_KILLFOCUS;


//Para cuando recupera el focus
procedure WMSETFOCUS(Var Tmessage);message WM_SETFOCUS;

creo.Pruebalo
Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #4  
Antiguo 20-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
La idea var por ahi, pero quisiera que el codigo que yo coloque en esos manejadores se ejecute para cualquier control que posea el form.
He colocado esos manejadores pero no saltan los eventos al cambiar el foco de un edit al otro del form.
En Win32 iba de perlas el WM_FocusChanged, pero en Delphi 8 .NET ha desaparecido.
__________________
J. Adolfo Núñez
Responder Con Cita
  #5  
Antiguo 20-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
Yo pense que era el cambio de foco entre forms.

He hecho esta unidad de prueba y en delphi 7 me funciona pruebalo tu haber que tal.

Es simplemente una reproduccion del codigo interior de este procedimiento que lleva delphi.

Dime algo

Suerte

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls;

const
  CM_BASE = $B000;
  CM_FocusMiPropioChange = CM_BASE + 7;

type

  TCMFocusMiPropioChange = record
    Msg: Cardinal;
    Unused: Integer;
    Sender: TWinControl;
    Result: Longint;
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  procedure CMFocusMiPropioChange(var Message: TCMFocusMiPropioChange); message CM_FocusMiPropioChange;
    { Public declarations }
  end;




var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure Tform1.CMFocusMiPropioChange(var Message: TCMFocusMiPropioChange);
begin
  showmessage('cambio de foco');
end;

end.
Simplemente copiate todo el código en una unidad nueva y pon tres edits o cuantos quieras y cambia de foco.Haber si con delphi 8 funciona

Suerte


Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #6  
Antiguo 20-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
Lo primero que quiero es darte las gracias por el interes que te estas tomando con mi problema. Te estoy muy agradecido.

Lo segundo es comentarte que he probado todo lo que has dicho y no hay manera. no salta el evento.

El codigo es el siguiente:

unit uFormPadre;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DBGrids;

const
CM_BASE = $B000;
CM_FocusMiChange = CM_BASE + 7;

type

TCMFocusMiChange = record
Msg: Cardinal;
Unused: Integer;
Sender: TWinControl;
Result: Longint;
end;

TFormPadre = class(TForm)
private
FCActivo : TColor;
FAntColor : TColor;
FAntControl : TComponent;
public
procedure FormCreate(Sender: TObject);
procedure CMFocusMiChange(var Message: TCMFocusMiChange); message CM_FocusMiChange;
Procedure AppMessage(var Msg: TMSg; Var Handled:Boolean);
end;

var
FormPadre: TFormPadre;

implementation

{$R *.nfm}

procedure TFormPadre.CMFocusMiChange(var Message: TCMFocusMiChange);
begin
showmessage('cambio');
end;

procedure TFormPadre.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppMessage;
end;

Procedure TFormPadre.AppMessage(var Msg: TMSg; Var Handled:Boolean);
var
actual : TWincontrol;
begin
if Msg.message = WM_KeyDown then begin
// esto es para controlar que con la flecha abajo se desplegen las
// listas
if Msg.wParam = VK_DOWN then begin
Actual := Screen.ActiveControl;

if Actual is TComboBox then
SendMessage(TComboBox(Screen.ActiveForm.ActiveControl).Handle,CB_SHOWDROPDOWN,-1,0);

// se pueden añadir mas controles....

end;

// y aqui es el control del intro.
if Msg.wParam = VK_RETURN THEN begin
Actual := Screen.ActiveControl;

// para los edit.
if (Actual is TCustomEdit) and not (Actual is TCustomMemo) then
Msg.wParam := VK_TAB;

// para los memo. Con ctrl + enter se salta de linea dentro del
// memo, si solo es intro salta al siguiente control
if (Actual is TCustomMemo) and (HiWord(GetKeyState(VK_CONTROL)) = 0) then
Msg.wParam := VK_TAB;

// Los combobox
if Actual is TCustomComboBox then
if not TCustomComboBox(Actual).DroppedDown then
Msg.wParam := VK_TAB;

// el radiobutton
if Actual is TRadioButton then
Msg.wParam := VK_TAB;

// o esto otro Con Ctrl + intro siguiente celda con
// ctrl + shift + intro celda anterior
// es complicado pero es por no liar con el intro solo
// que siempre pasa de un control a otro.
if Actual is TDBGrid then begin
if (TDBGrid(Actual).ReadOnly) or (HiWord(GetKeyState(VK_CONTROL)) = 0) then
Msg.wParam := VK_TAB
else
if not(HiWord(GetKeyState(VK_SHIFT)) = 0) then begin
if TDBGrid(Actual).selectedindex > 0 then // increment the field
TDBGrid(Actual).selectedindex := TDBGrid(Actual).selectedindex -1
else
TDBGrid(Actual).selectedindex := TDBGrid(Actual).fieldcount -1;
end
else begin
if TDBGrid(Actual).selectedindex < (TDBGrid(Actual).fieldcount -1) then // increment the field
TDBGrid(Actual).selectedindex := TDBGrid(Actual).selectedindex +1
else
TDBGrid(Actual).selectedindex := 0;
end;
end;


// ListBox
if Actual is TCustomListBox then
Msg.wParam := VK_TAB;

// Aqui se pondrían todos los controles que usamos en la
// aplicación y necesitamos cambiar el tab por intro.
// de esta forma te despreocupas de cuantos añades y es más
// limpio el código

end;
end
else if msg.message = CM_FocusMiChange then
showmessage('abierto');
end;


end.


En el evento AppMessage lo uso para que el intro tenga el mismo efecto que el tabulador en algunos controles.
Parece como si el .Net framework no tuviera el mensaje de cambio de foco.
La verdad es que estoy muy perdido.

De nuevo gracias por tu ayuda.
__________________
J. Adolfo Núñez
Responder Con Cita
  #7  
Antiguo 20-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
¿en delphi 8 existe la unidad controls?
Si es asi, entra dentro de ella y busca por CM y luego mira que hay.

En delphi 7 todos estos procedimientos estan en esta unidad y veras que empiezan por CM.

LA verdad que no se más que dicerte.Aunque creo que con lo de platfrom .NET, deben haber hecho cambios en la VCL, y no se.

Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #8  
Antiguo 20-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
Porque una cosa.

¿No te compila, o no te entra dentro del ,código?
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #9  
Antiguo 20-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
Me compila perfectamente, a la hora de ejecucion no entra en el manejador.

He seguido investigando y en la unidad donde se definen los mensajes el CM_FocusChanged esta comentado. No lo usa Delphi 8.

He visto otra posible salida que es el siguiente: la variable screen tiene una propiedad:

property OnActiveControlCahnge : TNotifyEvent;

Creo que solo haria falta un manejador para ese evento, pero no he sido capaz de hacerlo... todavia.

Gracias por tu colaboracion.
__________________
J. Adolfo Núñez
Responder Con Cita
  #10  
Antiguo 20-01-2004
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 21
Descendents Va por buen camino
Eme funciona en mi delphi 7.Ponle algunos edits y pon esto en una unidad nueva.
Pon almenos 2 edits, porque pongo un numero en edit2.caption, sino pues cambialo.
No acepta showmessage dentro del procedure ,me da error por todas partes.Supongo porque cambia el foco infinitas veces al aparecer un showmessage cambia el foco y llama otra vez al evento y asi y hace un bucle infinito.

Código:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
   procedure ActiveControlChanged(Sender: TObject);
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;

implementation

{$R *.dfm}



procedure TForm1.ActiveControlChanged(Sender: TObject);
begin
 i := i+1;
 edit2.Text := inttostr(i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.OnActiveControlChange := ActiveControlChanged;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Screen.OnActiveControlChange := nil;
end;

end.
Saludos
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón).
Responder Con Cita
  #11  
Antiguo 21-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
¡¡¡¡¡ EXACTO !!!!!
Anoche en casa hice lo mismo y.... tachan ¡¡¡ VICTORIA !!!

El código de la unidad para que los TWinControl cambien de color y recuperen el original cuando deje el foco es el siguiente:


Código:
procedure TFormPadre.ActiveControlChanged(sender : TObject);
var
  I : Integer;
begin
  for I:= 0 to ControlCount -1 do begin
    if Controls[i] is TWinControl then begin
      if (Controls[i] as TWinControl).Focused then
        Controls[i].Color := FCActivo
      else
        Controls[i].Color := clWindow;
    end;
  end;
end;
Asi de sencillito.

Un saludo y muchisimas gracias por tu inestimable ayuda.
__________________
J. Adolfo Núñez
Responder Con Cita
  #12  
Antiguo 21-01-2004
murci murci is offline
Miembro
 
Registrado: jul 2003
Ubicación: Murcia
Posts: 43
Poder: 0
murci Va por buen camino
PD:
FCActivo es una propiedad (TColor) privada que declaro en el Form para el tema de configuracion posterior del usuario.
__________________
J. Adolfo Núñez
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 13:28:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi