Cita:
Empezado por perico
roman, lo que pasa es que los speedbutton estan es en otro formulario y el si toma el foco de todos modos gracias y si tienes alguna otra sugerencia estaria muy agradecido.
|
Vamos a suponer que los speed button están en Form1 y los TEdit en Form2.
En Form1 interceptas el mensaje WM_MOUSEACTIVATE:
Código Delphi
[-]
type
TForm1 = class(TForm)
private
procedure WMMouseActivate(Msg: TWMMouseActivate); message; WM_MOUSEACTIVATE;
end;
implementation
procedure TForm1.WMMouseActivate;
begin
Msg.Result := MA_NOACTIVATE;
end;
Con esto puedes presionar los speed button sin que Form2 pierda el foco.
// Saludos