Simuler l'étiquette d'une fenêtre

Soyez le premier à donner votre avis sur cette source.

Vue 2 865 fois - Téléchargée 179 fois

Description

permettre de déplacer une fiche en simulant l'étiquette de la fenêtre à la taille
de la fiche,

Ou à une zone plus spécifique.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Jean-Pierre
Messages postés
88
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2010
-
Renfield, merci de ton info, en effet je viens d'installer Winrar et c'est ok.

Pour comparer, je viens d'installer la dernière version de 7-Zip, et c'est pareil, dans les choux.

La prochaine fois je saurais ;-)

@+
cs_Jean-Pierre
Messages postés
88
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2010
-
Bonjour Renfield,

Ben j'ai 7-Zip, mais suivant tes conseils ce soir je vais essayer Winrar et te dirais si cette fois j'y arrive.

Si alors ça "marche", ça sera super car ici, presque sur 50 cas sur cent, la méthode de compression n'est pas valide.

@+
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
"un de plus" ?

Ca ne t'es pas venu a l'idée que ton logiciel de décompression pouvait être dans les chous ?

Zip téléchargé et décompressé avec succès. (Avec Winrar, qui ouvre bien plus que les .rar)
cs_Jean-Pierre
Messages postés
88
Date d'inscription
jeudi 25 septembre 2003
Statut
Membre
Dernière intervention
20 avril 2010
-
Salut,

Dommage, encore un zip qui foire = compression non valide.

Un de plus !
cs_Nono40
Messages postés
1000
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
Pour supprimer le titre, il est aussi possible de mettre bsNone dans la propriété Border de la fiche, mais il est vrai que dans ce cas elle n'a pas le bord 3D.

Pour déplacer la fenêtre il y a aussi :( c'est une astuce de DelphiProg )
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
If Button=mbLeft
Then Begin
ReleaseCapture;
Form1.perform(WM_SYSCOMMAND, $F012, 0);
End;
end;

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.