Discussion :

[le merou]

Bonjour,

J'utilise l'API Win32 pour redimensionner un panel en runtime en utilisant la méthode expliqué sur http://www.delphi-central.com/resize.aspx.
Voici un extrait:

Code :

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

1
2
3
4
5
6
7
8
9
10
const
  sizeBorder = 2;
  sc_SizeBottom = $F006;
 
procedure TAnalysisControl.MouseDown( Button : TMouseButton; Shift : TShiftState; X, Y : integer);
begin
   WinProcs.ReleaseCapture;
    if Not((X <= sizeBorder) or (X >= Width -sizeBorder)) And (Y >= Height - sizeBorder) // CONDITIONS
  then  Self.Perform(WM_SysCommand, sc_SizeBottom , 0)
end;

Mon problème vient du fait que je veux limiter le redimensionnement (non pas en dimension du composant, mais en position). Par exemple je veux empecher que le composant dépasse la position 400 de ma Form : mais lorsqu'on envoie un message (ex:WM_SysCommand), les conditions sont vérifiées avant l'envoie du message mais lorque le redimensionnement se fait je ne peux pas le limiter en position (les conditions ne sont pas vérifiées pendant l'éxecution du message).

Y-a-t'il un moyen d'interrompre un message (comme ici le redimensionnement) ?

Bonne journée!

[Castagnems]

Un petit schéma serait le bienvenu ... :-)

[le merou]

Bon alors en clair voila mon objectif : Réaliser un planning sur une journée avec des événements ou je peux redimensionner chaque événement à la souris grâce aux poignées grises (la hauteur correspond à une durée) et ce que je cherche respecter comme conditions:

- 2 événements ne peuvent pas se superposer
- il peut y avoir un espace vide entre 2 événements

[Castagnems]

Je ferais un truc du genre :
- utiliser les tags pour numéroter tes panels
- qd tu déplaces le haut d'un panel, tu vérifies qu'il ne dépasse pas le bas du panel du dessus
- et inversément dans l'autre cas
(attention que le haut d'un panel ne dépasse pas le bas du même panel)

Et tu gères tout cas dans :

Code :

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

1
2
 
procedure WMSize (var Message: TWMSize) ; message WM_SIZE ;

[le merou]

La procedure qui me sauve! J'avais pas pensé à l'utiliser!
Merci Castagnems ! T'es un chef

[Castagnems]

J'avoue avoir proposé ca ainsi sans l'avoir testé, si ca marche tant mieux :-)