title image


Smiley Re: Forms aneinanderkleben - onresize funktioniert bei bewegung nicht, per API?
ich habe das so gemacht.





private

{ Private-Deklarationen }

procedure WMMove (var msg:TMessage);message WM_MOVE;

public

{ Public-Deklarationen }

end;



var

Form1: TForm1;



implementation



uses Unit2;



{$R *.DFM}





procedure TForm1.WMMove;

begin

try

form2.left:=left+10-form2.width;

form2.top:=form1.top+10-form2.height;

except

end;

end;





procedure TForm1.FormShow(Sender: TObject);

begin

form2.show;

end;





//
// C wurde erfunden, damit die baeume der programmierer
// nicht in den himmel wachsen.
//
// frager


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: