паскаль, модуль

[Ам тя]

как сделать так что бы при нажатии на клавишу shift+up заданное окошко двигалось верх.?
так сказать как запрограммировать кнопочку х)

[Stilet]

Вообще-то в паскале нет такого понятия как "окошки".
Есть некая область а-ля окно, которая ограничивается один раз за работу прогрммы, но это чушь а не окно...
Так что опиши что ты называешь окном в паскале.

[Ам тя]

Ввести команду пеpемещения окна по экрану.
вот и все...а как понять хз))
вот две процедуры одна открывает другая создает ..вроде так

 procedure CreateWindow;
var
  X, Y, W, H: Integer;
  S: string[15];
  Color: Byte;
begin
  W := Random(72-cord1) + 10;
  H := Random(21-cord2) + 5;
  X :={ Random(80 - W) +} cord1;
  Y :={ Random(23 - H) + }cord2;
  Str(WindowCount + 1, S);
  if LastMode <> CO80 then
    Color := Black else Color := WindowCount mod 6 + 1;
  OpenWindow(X, Y, X + W - 1, Y + H - 1, ' Window ' + S + ' ',
    Color + LightGray * 16, LightGray + Color * 16);
  TextAttr := LightGray;
  ClrScr;
end;

procedure OpenWindow(X1, Y1, X2, Y2: Byte; T: TitleStr;
  TAttr, FAttr: Byte);
var
  W: WinRecPtr;
begin
  ActiveWindow(False);
  New(W);
  with W^ do
  begin
    Next := TopWindow;
    SaveWin(State);
    GetMem(Title, Length(T) + 1);
    Title^ := T;
    TitleAttr := TAttr;
    FrameAttr := FAttr;
    Window(X1, Y1, X2, Y2);
    GetMem(Buffer, WinSize);
    ReadWin(Buffer^);
    FrameWin(T, DoubleFrame, TAttr, FAttr);
  end;
  TopWindow := W;
  Inc(WindowCount);

http://files.mail.ru/D85KT5
вот сама прога по модулям.