Wednesday, May 13, 2009

form's syncretize

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
form2.ManualDock(Form1.Panel1,nil,alNone) ;
end;

button2.click events:
form2.manualdock(nil,nil,alnone);

No comments:

Post a Comment