procedure TForm1.ApplicationEvents1Activate(Sender: TObject); var i, y: Integer; begin if self.Top < 25 then begin i := Self.Height; for y := 0 to i do Self.Top := Self.Top - 1; end; end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); var i, s: Integer; begin i := Self.Height; if self.Top < -1 then for s := 0 to i do self.Top := self.Top + 1; end;
----------------------------------------------
-