Comment créer un delphi formulaire contenant plusieurs "enfant", formes qui peuvent être déplacés/de taille moyenne et de montrer activé

J'ai créé un formulaire qui héberge un ou plusieurs "enfant", les formes. Dans mon mode d'édition, chaque enfant montre une forme à sa frontière et de la barre de légende, lui permettant d'être déplacé et de taille moyenne (un peu comme les vieux MDI app). De mon mode d'édition, les frontières disparaissent, et l'enfant, les formes sont en position fixe. Pour mon simple démo, je suis de la création de l'enfant constitue ainsi:

procedure TForm1.Button1Click(Sender: TObject);
var
  Frm : TForm;
begin
  Frm := TForm3.Create( Self );
  Frm.Parent := Self;
  Frm.Visible := True;

Le résultat est une mise en page comme ceci:
Comment créer un delphi formulaire contenant plusieurs

Je remarque que les champs de saisie dans les formulaires enfants ne sont jamais active. Je voudrais avoir la "cliqué sur" formulaire d'afficher une barre de légende active couleur comme actifs applications se déplacer lorsque l'utilisateur clique dessus. Je présume que mon cadavre comportement de l'enfant, les formes est parce qu'ils sont inactifs, mais les tentatives pour faire des choses comme ChildForm.SetFocus ne rien faire.

Que dois-je faire pour obtenir ces contrôles d'édition vivant et de montrer l'une des formes comme "sélectionnées" s'il vous plaît?

(Je tiens vraiment à les sélectionner plus d'une forme trop si possible)

Pourquoi vas-tu si loin de votre chemin pour ne pas utiliser de MDI, lorsque vous voulez bien sûr MDI, à la fin? Je déteste MDI, à quoi il ressemble, comment il fonctionne, etc etc. C'est un terrible concept de la convivialité de l'INTERFACE et design d'interaction point de vue. Mais si vous VOULEZ vraiment mdi est horrible regarde, alors il suffit d'UTILISER mdi! 🙂
parfois mdi est exactement ce dont vous avez besoin et fonctionne à merveille
MDI est horrible? Eh bien, c'est ce qu'ils disent... Mais pour la plupart de mes biz apps, j'ai besoin d'eux. Malheureusement, je ne peut pas les utiliser comme mes logiciels sont conçus à la fois pour Windows et Ubuntu. Donc j'ai à faire sans eux. Autre chose... je suis à l'aide de Lazare (bien qu'ils disent que c'est la même, mais... vous savez) 😉

OriginalL'auteur Brian Frost | 2011-04-20

  1. 4

    Ce qui provoque le comportement est le VCL parental d'mécanisme. Je ne connais pas la raison exacte, serait prendre un certain temps pour comprendre, je pense que c'est un peu un mécanisme compliqué.

    Vous pouvez obtenir votre comportement désiré avec la parentalité par l'api:

    procedure TForm1.Button1Click(Sender: TObject);
var
  Frm : TForm;
begin
  Frm := TForm3.Create( Self );
//  Frm.Parent := Self;
  windows.SetParent(Frm.Handle, Handle);
  Frm.Visible := True;

    Vous perdez une partie de la synchronisation avec la VCL pour vous, comme parent dépendant des propriétés, l'ancrage, la propriété, etc.. Il pourrait même être problématique à l'égard de l'api, comme le manque WS_CHILD drapeau... Essayez-le et voyez si cela fonctionne pour vos besoins..

    Pour avoir une idée de plus d'une forme active, vous pouvez dire à l'un d'eux à la peinture en conséquence:

      SendMessage(Frm.Handle, WM_NCACTIVATE, WPARAM(True), 0);

    Lorsque toute forme reçoit ce message, il va redessiner ses non-clients de la zone, afin de refléter son (soi-disant) à l'état activé. En passant 'false' pour wParam va provoquer le contraire.

    Qui m'a mis dans la bonne direction. Merci.
    Est-il une solution qui ne dépend pas de l'API windows? Je suis ciblage Ubuntu/Windows app développement avec Lazare et ont le MÊME problème. Alors peut-être que nous faisons le parent réglage de la mauvaise façon.
    Purement expérimental... Dans mon cas, je voulais que le formulaire d'enfant de le montrer et de ne pas pouvoir être déplacée hors du conteneur parent. Si vous les gars doit faire de même, j'ai atteint cet objectif en utilisant contrôle pagecontrol avec un seul onglet. Éteignez l'enfant forme de frontières et il fonctionne. MAIS vous ne pouvez pas déplacer l'enfant se former autour, évidemment. Pour l'instant, cela sert mon but 🙂

    OriginalL'auteur Sertac Akyuz

  2. 4

    Appel Windows.SetFocus(Form.Handle) qui est un peu plus puissante que les TForm.SetFocus. Plus précisément Windows.SetFocus mettra l'accent et activer un formulaire qui est inactif ce qui je pense est votre principal problème.

    Avoir plus d'une forme active se sent mal.

    Enfin, avez-vous pensez à utiliser MDI? Il fonctionne toujours.

    Oui, j'ai pensé à MDI, mais je voulais éviter à la fois la complexité de l'avenir possible de l'autodérision.
    Je pense que la dépréciation est peu probable. Dernière documention est plus encourageant pour de nouvelles applications. MDI n'est pas du tout compliqué à Delphes. Tout le travail est fait pour vous.

    OriginalL'auteur David Heffernan

  3. 0

    Je pense que MDI est le moyen le plus facile, dans le formulaire principal ensemble FormStyle=fsMDIForm, dans les childs FormStyle=fsMDIChild.

    Que c'est, de cette façon, vous n'avez pas de fixer les parents pour le faire fonctionner.

    Agréable à avoir dans un commentaire, mais ne permet pas de répondre à toutes les questions autrement..
    Normalement, je serai d'accord, mais il semble y avoir une exigence clé que je ne pense pas que traditionnel MDI peut gérer: "Hors de mon mode d'édition, les frontières disparaissent, et l'enfant, les formes sont en position fixe."

    OriginalL'auteur Cesar