работа с формой

[Олександр17]

как сделать чтоби форма передвигалась в праву сторону екрана а когда чась форми пряталась за екран то чтоби чась ее появлялась слевой сторони екрана. Так чтоби форма плавно двигалась вправо и когда часть етой форми уходила за екран то чтоб справа ета часть форми что спрятана за екраном то чтоб появлялась справа и двигалась к центру ерана.

[Vikenty]

Сообщение от Олександр17

как сделать чтоби форма передвигалась в праву сторону екрана а когда чась форми пряталась за екран то чтоби чась ее появлялась слевой сторони екрана.

не разобрал слов

[Stilet]

Олександр17

Одной формой так не получится. Придется синхронизировать две формы.
Вот примерно так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    procedure wmm(var m:TWMMove);message WM_MOVE;
  public
    { Public declarations }
  end;
const
  Sc_dragmove = $F012;
var
  Form1,form2: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
if self=form2 then begin
 form2.Left:=Form1.Left-Screen.Width;
 form2.Show;
end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
  Perform(WM_SYSCOMMAND, Sc_dragmove, 0);

end;

procedure TForm1.wmm(var m: TWMMove);
begin
   form2.Left:=Form1.Left-Screen.Width;
end;

end.

Учитывая

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm1, Form2);
  Application.Run;
end.