JEU DE DÉS ZORG6
Debiars
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018
-
9 févr. 2010 à 07:58
dubois77 Messages postés 675 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 19 février 2019 - 7 déc. 2010 à 21:46
dubois77 Messages postés 675 Date d'inscription jeudi 17 avril 2008 Statut Membre Dernière intervention 19 février 2019 - 7 déc. 2010 à 21:46
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/51240-jeu-de-des-zorg6
https://codes-sources.commentcamarche.net/source/51240-jeu-de-des-zorg6
7 déc. 2010 à 21:46
7 déc. 2010 à 18:25
10 févr. 2010 à 10:31
il suffisait de mettre : uses Windows , ExtCtrls , StdCtrls;
dans l'unité uDeplace
10 févr. 2010 à 09:15
merci DUBOIS77 pour cet info :)
ben apparament tu developpe sous delphi 7 en mode CLX, je suis sous delphi 6 je vais voir si je peut mettre la CLX en place.
9 févr. 2010 à 20:45
procedure DeplaceObjet(var O:Tpanel);
var x,y:integer;
begin
if O.tag=1 then
begin
GetCursorPos(souris0); // nouvelle position e la souris
X := O.Left + Souris0.X - souris9.X;
Y := O.top + Souris0.Y - souris9.Y;
souris9 := souris0;
O.SetBounds(X,Y,O.Width,O.Height);
end;
end;
Si il y a moyen de trouver autre chose ?
9 févr. 2010 à 20:37
Je n'ai rien installé de spécial, c'est dans mon delphi 7
voila la liste de l'aide
Pour l'aide elle est dans le soft (une fois compilé !)
mais je peux la mettre en fichier text à part
---------------------
AddDragFormat,fonction
Place des données formatées dans le presse-papiers.
AddDragFormat,fonction
Place des données formatées dans le presse-papiers.
AdjustForClient,procédure
Ajuste le rectangle client pour qu'il représente la zone client.
AdjustForClient,procédure
Ajuste le rectangle client pour qu'il représente la zone client.
AdjustForFrame,procédure
Convertit la géométrie client entre les conventions CLX et Qt.
AdjustForFrame,procédure
Convertit la géométrie client entre les conventions CLX et Qt.
Beep,fonction
Génère un bip.
Beep,procédure
Génère un bip.
ButtonStateToShiftState,fonction
Convertit la valeur correspondant àl'état d'un bouton Qt.
ButtonStateToShiftState,fonction
Convertit la valeur correspondant àl'état d'un bouton Qt.
CursorToIdent,fonction
Renvoie le nom de la constante prédéfinie qui correspond àun curseur.
CursorToIdent,fonction
Renvoie le nom de la constante prédéfinie qui correspond àun curseur.
CursorToString,fonction
Renvoie la représentation AnsiString d'un curseur.
CursorToString,fonction
Renvoie la représentation AnsiString d'un curseur.
DragActivated,fonction
Renvoie l'état de l'activitéde glissement.
DragImageList,fonction
Renvoie la liste des images de glissement.
DragImageList,fonction
Renvoie la liste des images de glissement.
FindControl,fonction
Renvoie le widget dont la fenêtre est identifiée par le handle spécifiéou qui apparaît àla position spécifiée.
FindControl,fonction
Renvoie le contrôle fenêtré(Windows)ou le widget (environnement multiplate-forme)dont la fenêtre est identifiée par le handle spécifiéou qui apparaît àla position spécifiée.
FindDragTarget,fonction
Renvoie le contrôle àla coordonnée écran spécifiée.
FindDragTarget,fonction
Renvoie le contrôle àla coordonnée écran spécifiée.
FindObject,fonction
Renvoie l'objet qui représente un widget Qt.
FindObject,fonction
Renvoie l'objet qui représente un widget Qt.
GetCaptureControl,fonction
Renvoie le contrôle,s'il existe,qui reçoit actuellement tous les messages de la souris.
GetCaptureControl,fonction
Renvoie le contrôle,s'il existe,qui reçoit actuellement tous les messages de la souris.
GetCursorPos,procédure
Renvoie la position du curseur de la souris.
GetCursorPos,procédure
Renvoie la position du curseur de la souris.
GetCursorValues,procédure
Passe le nom de chaque constante de curseur prédéfinie àun rappel.
GetCursorValues,procédure
Passe le nom de chaque constante de curseur prédéfinie àun rappel.
GetLongHint,fonction
Renvoie la seconde partie d'une chaîne de conseil ("hint")composée de deux parties.
GetLongHint,fonction
Renvoie la seconde partie d'une chaîne de conseil ("hint")composée de deux parties.
GetMouseGrabControl,fonction
Renvoie le contrôle,s'il existe,qui reçoit actuellement tous les messages de la souris.
GetMouseGrabControl,fonction
Renvoie le contrôle,s'il existe,qui reçoit actuellement tous les messages de la souris.
GetShortHint,fonction
Renvoie la première partie d'une chaîne de conseil bipartite.
GetShortHint,fonction
Renvoie la première partie d'une chaîne de conseil bipartite.
IdentToCursor,fonction
Traduit en curseur une constante curseur prédéfinie.
IdentToCursor,fonction
Traduit en curseur une constante curseur prédéfinie.
InDragDropOperation,fonction
Signale l'état de l'opération de glissement.
InDragDropOperation,fonction
Signale l'état de l'opération de glissement.
SaveDragDataToStream,fonction
Récupère les données d'une opération de glissement.
SaveDragDataToStream,fonction
Récupère les données d'une opération de glissement.
SetCaptureControl,procédure
Force le contrôle spécifiéàrecevoir tous les messages de la souris.
SetCaptureControl,procédure
Force le contrôle spécifiéàrecevoir tous les messages de la souris.
SetMouseGrabControl,procédure
Force le contrôle spécifiéàrecevoir tous les messages de la souris.
SetMouseGrabControl,procédure
Force le contrôle spécifiéàrecevoir tous les messages de la souris.
StringToCursor,fonction
Renvoie la valeur TCursor àpartir d'une représentation sous forme de chaîne.
StringToCursor,fonction
Renvoie la valeur TCursor àpartir d'une représentation sous forme de chaîne.
SupportedDragFormats,procédure
Renvoie la liste des formats supportés dans l'opération de glissement en cours.
SupportedDragFormats,procédure
Renvoie la liste des formats supportés dans l'opération de glissement en cours.
9 févr. 2010 à 12:45
9 févr. 2010 à 07:58
Impossible de compiler because "QControl", ques aco?