Discussion :

[denokan]

Bonjour à tous (et surtout à toutes )

je cherche à faire glisser mes composants (ça peut être des TEdit comme des TButton) sur ma fiche à l'éxécution pour que l'utilisateur puisse personnaliser son environnement... j'arrive relativement bien à les déplacer via les méthodes envisagée sur les threads récents (DragMode à dmAutomatic et affectation de Left, Top et Parent dans le DragDrop)

par contre j'aimerai afficher à l'écran un rectangle tout simple de la taille du composant DragDropé pour prévisualiser l'espace qui sera occupé par mon composant, exactement comme le fait le concepteur de fiches de delphi. j'ai eu l'idée d'aller fouiller dans la source de TControl, mais même si j'ai compris la méthode générale pour afficher ce rectangle, j'ai plusieurs bugs. aussi je me demande si :
- est-il possible de réutiliser les méthodes de borland (à travers BeginDrag et EndDrag ?)
- quelqu'un a déjà fait ça et me fait passer son source

merci

[denokan]

à priori le concepteur de fiche de delphi ecrit directement sur l'écran pour afficher la position finale d'un composant lors d'un drag drop... donc maintenant je cherche à récupérer l'écran sous forme de canvas

[Lung]

donc maintenant je cherche à récupérer l'écran sous forme de canvas

Un truc comme ça, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
var
  dc: THandle;
ACanvas: TCanvas;
begin
  dc := GetDc(0);
  ACanvas := TCanvas.Create;
  try
     ACanvas.Handle := DC;
...

(J'ai pas testé).

[denokan]

exactement