---

Hej

Hvordan får man besked hvis en form bliver flyttet? Jeg har prøvet med
OnCanResize men den virker kun hvis windows er sat op til at "Vis indhold i
vindue, ,mens der trækkes"

Jeg bruger Win2k og Delphi 4

Mvh
HK

---

Hej harald

Jeg har en ide om, at du kan måske bruge onPaint.
Hvis du laver en variabel (TPoint). Initialitisere denne variable i onActivate med left og top.
Når så TForm skal 'Paintes' kan du jo sammenligne variablen med den aktuelle left og top.

Det kan godt være det ikke kan bruges !!! - det er ikke afprøvet.

P.L.

"Harald" <kroning@jyde.dk> skrev i en meddelelse
news:3b59cd5b$0$394$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Hvordan får man besked hvis en form bliver flyttet? Jeg har prøvet med
> OnCanResize men den virker kun hvis windows er sat op til at "Vis indhold i
> vindue, ,mens der trækkes"
>
> Jeg bruger Win2k og Delphi 4
>
> Mvh
> HK
>
>
>

---

"P.L." <jessie-peter@get2net.dk> wrote in
news:3b59fade$0$344$edfadb0f@dspool01.news.tele.dk:

> "Harald" <kroning@jyde.dk> skrev i en meddelelse
> news:3b59cd5b$0$394$edfadb0f@dspool01.news.tele.dk...
>> Hej
>>
>> Hvordan får man besked hvis en form bliver flyttet? Jeg har prøvet
>> med OnCanResize men den virker kun hvis windows er sat op til at
>> "Vis indhold i vindue, ,mens der trækkes"
>>
>> Jeg bruger Win2k og Delphi 4
>>
> Hej harald
>
> Jeg har en ide om, at du kan måske bruge onPaint.
> Hvis du laver en variabel (TPoint). Initialitisere denne variable i
> onActivate med left og top. Når så TForm skal 'Paintes' kan du jo
> sammenligne variablen med den aktuelle left og top.
>
> Det kan godt være det ikke kan bruges !!! - det er ikke afprøvet.
>

Jeg ville nok nærmere forsøge at fange en windows message (sådan en må
der jo blive sendt - ikke at jeg lige ved hvilken men det er der nok
andre der gør)

Claus


--
Claus Christiansen, <mailto:cch@unipeople.dk>

personal: http://www.bigfoot.com/~kruc/; pythia: http://www.pythia.dk
============================================--------------------------
"Computers are useless. They can only give you answers."
- Pablo Picasso (1881-1973)

---

"Claus Christiansen" <kruc@bigfoot.com> skrev i en meddelelse
news:Xns90E62C5FED14krucsid@192.168.1.2...
> "P.L." <jessie-peter@get2net.dk> wrote in
> news:3b59fade$0$344$edfadb0f@dspool01.news.tele.dk:
>
> > "Harald" <kroning@jyde.dk> skrev i en meddelelse
> > news:3b59cd5b$0$394$edfadb0f@dspool01.news.tele.dk...
> >> Hej
> >>
> >> Hvordan får man besked hvis en form bliver flyttet? Jeg har prøvet
> >> med OnCanResize men den virker kun hvis windows er sat op til at
> >> "Vis indhold i vindue, ,mens der trækkes"
> >>
> >> Jeg bruger Win2k og Delphi 4
> >>
> > Hej harald
> >
> > Jeg har en ide om, at du kan måske bruge onPaint.
> > Hvis du laver en variabel (TPoint). Initialitisere denne variable i
> > onActivate med left og top. Når så TForm skal 'Paintes' kan du jo
> > sammenligne variablen med den aktuelle left og top.
> >
> > Det kan godt være det ikke kan bruges !!! - det er ikke afprøvet.
> >
>
> Jeg ville nok nærmere forsøge at fange en windows message (sådan en må
> der jo blive sendt - ikke at jeg lige ved hvilken men det er der nok
> andre der gør)

Ja du har ret, der bliver sendt en WM_MOVE, så nu funker det.

Takker.

Mvh
HK

---

Hej Harald

Vil du gøre mig en tjeneste, at sende en sådan procedure WM_MOVE, da jeg ikke er særlig skrap til
disse proceduretyper;

P.L.

"Harald" <kroning@jyde.dk> skrev i en meddelelse
news:3b5a46b1$0$995$edfadb0f@dspool01.news.tele.dk...
> "Claus Christiansen" <kruc@bigfoot.com> skrev i en meddelelse
> news:Xns90E62C5FED14krucsid@192.168.1.2...
> > "P.L." <jessie-peter@get2net.dk> wrote in
> > news:3b59fade$0$344$edfadb0f@dspool01.news.tele.dk:
> >
> > > "Harald" <kroning@jyde.dk> skrev i en meddelelse
> > > news:3b59cd5b$0$394$edfadb0f@dspool01.news.tele.dk...
> > >> Hej
> > >>
> > >> Hvordan får man besked hvis en form bliver flyttet? Jeg har prøvet
> > >> med OnCanResize men den virker kun hvis windows er sat op til at
> > >> "Vis indhold i vindue, ,mens der trækkes"
> > >>
> > >> Jeg bruger Win2k og Delphi 4
> > >>
> > > Hej harald
> > >
> > > Jeg har en ide om, at du kan måske bruge onPaint.
> > > Hvis du laver en variabel (TPoint). Initialitisere denne variable i
> > > onActivate med left og top. Når så TForm skal 'Paintes' kan du jo
> > > sammenligne variablen med den aktuelle left og top.
> > >
> > > Det kan godt være det ikke kan bruges !!! - det er ikke afprøvet.
> > >
> >
> > Jeg ville nok nærmere forsøge at fange en windows message (sådan en må
> > der jo blive sendt - ikke at jeg lige ved hvilken men det er der nok
> > andre der gør)
>
> Ja du har ret, der bliver sendt en WM_MOVE, så nu funker det.
>
> Takker.
>
> Mvh
> HK
>
>
>

---

"P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
news:3b5a8b61$0$947$edfadb0f@dspool01.news.tele.dk...
> Hej Harald
>
> Vil du gøre mig en tjeneste, at sende en sådan procedure WM_MOVE, da jeg
ikke er særlig skrap til
> disse proceduretyper;

Er sådan set magen til det eks. du kommer med i tråden postmessage
'canclose:= false'

private
procedure msgWM_MOVE(var Msg: TMessage); message WM_MOVE;
..
..
Procedure TForm1.msgWM_MOVE(var Msg: TMessage);
var
xpos,ypos : integer;
begin
{fra delphi hjælp
xPos - Value of the low-order word of lParam. Specifies the x-coordinate of
the upper-left corner of the client area of the window.
yPos - Value of the high-order word of lParam. Specifies the y-coordinate of
the upper-left corner of the client area of the window.}

xpos:=Loword(Msg.LParam);
ypos:=Hiword(Msg.LParam);

msg.Result:=0;
end;

Mvh
HK

---

Hej Harald

Dine informationer er gemt til senere brug.

P.L.




"Harald" <kroning@jyde.dk> skrev i en meddelelse
news:3b5aac32$0$1018$edfadb0f@dspool01.news.tele.dk...
> "P.L." <jessie-peter@get2net.dk> skrev i en meddelelse
> news:3b5a8b61$0$947$edfadb0f@dspool01.news.tele.dk...
> > Hej Harald
> >
> > Vil du gøre mig en tjeneste, at sende en sådan procedure WM_MOVE, da jeg
> ikke er særlig skrap til
> > disse proceduretyper;
>
> Er sådan set magen til det eks. du kommer med i tråden postmessage
> 'canclose:= false'
>
> private
> procedure msgWM_MOVE(var Msg: TMessage); message WM_MOVE;
> .
> .
> Procedure TForm1.msgWM_MOVE(var Msg: TMessage);
> var
> xpos,ypos : integer;
> begin
> {fra delphi hjælp
> xPos - Value of the low-order word of lParam. Specifies the x-coordinate of
> the upper-left corner of the client area of the window.
> yPos - Value of the high-order word of lParam. Specifies the y-coordinate of
> the upper-left corner of the client area of the window.}
>
> xpos:=Loword(Msg.LParam);
> ypos:=Hiword(Msg.LParam);
>
> msg.Result:=0;
> end;
>
> Mvh
> HK
>
>
>