Delphi V6 avec Windows XP

Question

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

korgis · Answer

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...

Delphi V6 avec Windows XP

1 réponse

Votre réponse

Discussions similaires