Cita:
Empezado por roman
Ok. Ahí te va una aproximación a lo que quieres:
Código Delphi [-]type TForm1 = class(TForm) private procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE; end; implementation procedure TForm1.WMMouseActivate(var Message: TWMMouseActivate); begin Message.Result := MA_NOACTIVATE; end;
// Saludos |
... por cierto... ¿y esto qué es lo que hace?