Eine Möglichkeit:
Damit Form1 von Form2 "mitgezogen" wird musst du die WndProc Prozedur umschreiben:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
|
public
procedure WndProc(var Message: TMessage); override;
implementation
procedure tmainform.WndProc(var Message: TMessage);
begin
if (Message.msg = WM_Move) and (started) then
begin
Form2.left := Form1.left+Form1.width;
Form2.top := Form1.top;
end;
inherited WndProc(Message); |
Du musst den Code eben anpassen (die Position von Form2 wird ja in Abhängigkeit der von Form1 angegeben)
mfg
GSE
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt._________________
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs
and the universe trying to produce bigger and better idiots. So far, the universe is winning. (Richard Cook)
