---

Jeg har et program med et lille memofelt, som kan vises som hjælp.
Dette felt vil jer gerne kunne flytte med musen, da det kan være i vejen for
det, som skal ses samtidigt.
Jeg regner med, at det er DRAG-funktionen, som skal bruges, men jeg har
aldrig fattet hvordan.
Er der en behjertet person, der kan forklare mig det?

Mvh Kurt

---

Hej Kurt

Ja, du kan forsøge med denne procedure, som virker i min D4:

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
TWincontrol (Sender).Perform (WM_syscommand, $F012, 0);
end;
end;


"Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
news:48c51962$0$90274$14726298@news.sunsite.dk...
> Jeg har et program med et lille memofelt, som kan vises som hjælp.
> Dette felt vil jer gerne kunne flytte med musen, da det kan være i vejen
> for det, som skal ses samtidigt.
> Jeg regner med, at det er DRAG-funktionen, som skal bruges, men jeg har
> aldrig fattet hvordan.
> Er der en behjertet person, der kan forklare mig det?
>
> Mvh Kurt
>

---

Det vil jeg prøve.
Tak.
Kurt

"Flozzy" <jje@venlig.dk> skrev i en meddelelse
news:48cb70dc$0$15898$edfadb0f@dtext01.news.tele.dk...
> Hej Kurt
>
> Ja, du kan forsøge med denne procedure, som virker i min D4:
>
> procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> if Button = mbLeft then
> begin
> ReleaseCapture;
> TWincontrol (Sender).Perform (WM_syscommand, $F012, 0);
> end;
> end;
>
>
> "Kurt G" <kurt_g@guldbaek.net> skrev i en meddelelse
> news:48c51962$0$90274$14726298@news.sunsite.dk...
>> Jeg har et program med et lille memofelt, som kan vises som hjælp.
>> Dette felt vil jer gerne kunne flytte med musen, da det kan være i vejen
>> for det, som skal ses samtidigt.
>> Jeg regner med, at det er DRAG-funktionen, som skal bruges, men jeg har
>> aldrig fattet hvordan.
>> Er der en behjertet person, der kan forklare mig det?
>>
>> Mvh Kurt
>>
>
>