Discussion: pb à la con
Afficher un message
Vieux 19/10/2007, 07h31   #5
Paul TOTH
Aucun Avatar
 
Messages: n/a
Hébergeur:
Par défaut Re: pb à la con

oups !

j'ai pas sauvegardé le projet avant de faire le ZIP

il manque 2 choses

dans TForm1

procedure TForm1.FormCreate(Sender: TObject);
begin
with TForm2.Create(Self) do begin
Parent:=Self;
Top:=10;
Left:=10;
end;
with TForm2.Create(Self) do begin
Parent:=Self;
Top:=50;
Left:=50;
end;
end;

et il manque un inherited dans TForm2

procedure TForm2.WMWindowPosChanged(var Msg: TMessage);
begin
inherited;
Form1.Realign;
Form1.Invalidate;
end;

par contre, ce que je soupçonnais s'est avéré...le bug ne se produit pas
sous 2K !!!

Paul TOTH a écrit :
> ah ben non, j'ai le soucis aussi sans le TFrame
>
> en fait, si je déplace une fiche en bas à droit histoire d'avoir des
> scrollbars, que je scrolle ma fiche, et bien l'autre TForm ne cliquent
> plus
>
> à vu de nez, Windows considèrerait toujours le composant à son ancienne
> place...sauf que du coup il réagit bizarre vu qu'il doit pas répondre
> correctement aux NC_HITTEST & Cie
>
> voici une appli de test
>
> TForm1 crée deux TForm2
>
> TForm2 intercepte juste WM_WINDOWPOSCHANGED sinon Form1 n'ajuste pas ses
> scrollbars
>
> Paul TOTH a écrit :
>> j'ai une appli avec une fiche principale en AutoScroll
>>
>> dedans je crée des TForm dont le parent est la fiche principale
>>
>> quand je déplace mes fiches enfant, l'autosroll joue son rôle et je
>> peux déplacer tout comme je veux (le tout ressemble à ce que Access
>> propose pour définir les liens entre tables, chaque table étant un
>> TForm avec un TListBox)
>>
>> maintenant j'aimerai placer un TPanel sur la gauche de ma fiche avec
>> quelques infos
>>
>> le pb est alors que mes fiches enfants peuvent se balader au dessus du
>> TPanel et que mes scrollbars font scroller le TPanel
>>
>> du coup je place un TFrame en AutoScroll à droite du TPanel et j'en
>> fait le parent de mes fiches enfants.
>>
>> et ben là ça merdoit...Des fois je peux plus déplacer une fiche, même
>> la souris ne change plus d'aspect (redimensionner les bords), seuls
>> les controles à l'intérieur réagissent.
>>
>> j'ai testé avec un TForm à la place du TFrame c'est pareil...ça vous
>> dit quelque chose ?

>

  Réponse avec citation
 
Page generated in 0,06176 seconds with 9 queries