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 

1 réponse

Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
15
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