Blokada formy.

jak uniemożliwić przesuwanie formy (ni chodzi mi o bsNone!!);

Daj jej wlasciwosc ze caly czas ma byc w okreslonym mijescu ekranu..
czyli np

Mainfrm.Height:=100;//tu wartosc
MAinfrm.Width:=100;//tu wartosc

i obsluz zdarzenie gdy ta forma jest przesuwana..mozesz tez urzyc Timera

Daj jej wlasciwosc ze caly czas ma byc w okreslonym mijescu ekranu..
czyli np

Mainfrm.Height:=100;//tu wartosc
MAinfrm.Width:=100;//tu wartosc

i obsluz zdarzenie gdy ta forma jest przesuwana..mozesz tez urzyc Timera

Dzięki, już działa teraz chcę zrobić tak, że po nacisnięciu sztrzałem forma sie przesuwa (to wiem), ale jak zrobić tak, ze gody forma dojdzie do lewej strony pulpitu to wyjdzie z prawej i odwrotnie, tak samo z dołu i z góry.

dzięki [cya]

Czesc.
Walnij 2 zmienne globalne:

X, Y : Integer;

Dla OnCreate Formy pacnij:

X := GetSystemMetrics(SM_CXSCREEN); // pobranie rozdzielczosci
Y := GetSystemMetrics(SM_CYSCREEN);

i dla OnTimera jakiegos Timarka wrzuc:

Left := Left + 10;
Top := Top + 10;
if Left >= X then Left := 0;
if Top >= Y then Top := 0;

albo jesli chcesz to walnij takie cos:

Left := Left + 10;
Top := Top + 10;
if Left + Width >= X then Left := 0;
if Top + Height >= Y then Top := 0;

Sadze, ze kod jest klarowny. Sprobuj obu mozliwosci, roznice zauwaszysz diametralna:)