Glue forms

Man kunne bruge foelgende i Form1 til at faa en "FormMove" funktion:
http://www.latiumsoftware.com/en/delphi/00049.php

I den "nye" procedure TForm1.FormMove for Form1 saetter du saa Top og Left for den anden form.

Fik du det til at spille?

Her et eksempel.
Lav et nyt projekt med 2 forme, og skriv foelgende i Unit1:



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private-Deklarationen }
    procedure FormMove(var Msg: TWMMove); message WM_MOVE;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMove(var Msg: TWMMove);
begin
  try
  Form2.Left := Form1.Left;
  Form2.Top := Form1.Top+220;
  Except

  end;
end;


end.

Proceduren "TForm1.FormMove(var Msg: TWMMove);" bliver aabenbart kaldt,
naar programmet starter, og foer Form2 er created.

try/except var en hurtig loesning paa dette problem, men vel ikke den rigtige paa sigt.

Fik du det til at virke?

Njae kom ikke længere pga travlhed. Smider du et svar, så får du i hvert fald points'ene.. beklager ventetiden :/

Held og lykke med det, hvis du gaar videre med projektet.
Det er nu en fed funktion, som jeg sikkert selv faar brug for en gang...

Moin!