Ver Mensaje Individual
  #2  
Antiguo 01-08-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 19.438
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Propiedad directamente no, puedes capturar los mensajes.

En la parte privada del formulario define:

Código Delphi [-]
 //: Definimos el prcedimiento para capturar el mensaje
procedure _InternalNoMove(var Message: TWMChar); message WM_SYSCOMMAND;


Y en la implementación esto:

Código Delphi [-]
//: Definimos el prcedimiento para capturar el mensaje
procedure TForm1._InternalNoMove (var Message: TWMChar);
begin
 // Mensajes que interceptamos...
 if (Message.Charcode = SC_MOVE or HTCAPTION) or
 (Message.Charcode = SC_MOVE) then begin
  // No hacemos nada || Nothing to do
 end
 else begin
 // Se deben procesar el resto de mensajes || Process messages normally
 inherited;
 end;
end;
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita