CustomFormat1.dpr 448 B

123456789101112131415161718192021
  1. program CustomFormat1;
  2. {%File 'readme.txt'}
  3. uses
  4. Forms,
  5. Target in 'Target.pas' {FormTarget},
  6. Source in 'Source.pas' {FormSource},
  7. DragDropTimeOfDay in 'DragDropTimeOfDay.pas';
  8. {$R *.RES}
  9. begin
  10. Application.Initialize;
  11. Application.CreateForm(TFormSource, FormSource);
  12. Application.CreateForm(TFormTarget, FormTarget);
  13. FormTarget.Top := FormSource.Top;
  14. FormTarget.Left := FormSource.Left+FormSource.Width;
  15. Application.Run;
  16. end.