Delphi V6 avec Windows XP

-
Bonjour,
J'ai programmé (et ça marche) , un contrôle transparent avec Delphi V6 sous Windows 7.
avec le code ;
    procedure FormCreate(Sender: TObject);
    procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,       Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
      procedure WMNCHitTest(var msg: TWMNCHitTest); message WM_NCHITTEST;
  end;
procedure TForm1.WMNCHitTest(var msg: TWMNCHittest);
var
  pt: TPoint;
begin
  inherited;
  pt:= ScreenToClient(Point(msg.XPos, msg.YPos));
  if PtInRect(Rect(0, 0, ClientWidth, 20), pt) then
    msg.Result:= HTCAPTION;
end;

Question : comment le faire marcher avec Windows XP Pack3 ?
Merci d'avance pour une réponse ;-)
Marcel
Afficher la suite 

Votre réponse

1 réponse

Messages postés
423
Date d'inscription
samedi 17 mai 2003
Dernière intervention
4 août 2018
0
Merci
Salut,

Pourrais-tu exposer plus clairement le problème ?
Ce code ne sert qu'à déplacer un Form avec la souris, aucun rapport avec la transparence d'un contrôle...
Commenter la réponse de korgis

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.