[Delphi(6)]MouseEventUp implementeren

[Verwijderd]

Ik zoek een manier om de inhoud van label1 via drag & drop over te brengen naar label2. Dus: Ik klik op label1 en als mijn muis boven label2 is laat ik de muis button los.

Via de events die bij het labelcomponent (de mousedown natuurlijk wel) werkt het niet. Dus moet ik het doen met een API.
Wie weet wat ik hier het beste kan gebruiken?

Ik had al naar WM_NCHITTEST gekeken maar ik heb dit nog niet werkende gekregen.

code:

private 
  procedure WMNCRButtonUp(var msg: TMessage); message WM_NCRBUTTONUP;

procedure TForm1.WMNCRButtonUp(var msg: TMessage);
begin
  inherited;
  if (Msg.Result = htClient) then begin
    beep;
  end;
end;

Wie weet wat ik hiervoor het beste voor kan gebruiken of hoe ik de bovenstaande code zodanig kan verbeteren dat ik ook een message event krijg.

[dusty]

Zet dit eens in je Label1.onmouseup()

Label1.caption:=inttostr(x)+' / '+inttostr(y);

daar valt het toch ECHT mee te doen.

[Verwijderd]

Hmm, dat bedoelde ik niet echt.

Ik wil gewoon een stukje code dat op een OnmouseUp event werkt. Dus: Op label1 een OnMousedown event (ingedrukt blijven houden) dan naar label2 OnMouseUp event (muisknop loslaten) en de inhoud van label1 gaat naar label2.

En dan geldt de vraag: Hoe krijg ik een OnMouseUp event?

[whoami]

Euh, wil je drag en drop? Dat kan je toch op een andere manier implementeren?

[Verwijderd]

whoami schreef op 19 februari 2003 @ 22:23:
Euh, wil je drag en drop? Dat kan je toch op een andere manier implementeren?

Misschien kan je een ietsje pietsje van de sluier oplichten

(Het gaat er niet om dat de componenten verplaatst worden maar dat de inhoud gekopieerd wordt. Volgens mij kan dat alleen als het programma zo'n OnMouseUp event heeft waargenomen.)

[whoami]

Kijk eens naar de events:
OnStartDrag
OnDragOver
en
OnDragDrop.

Ik vermoed trouwens dat er in de Delphi help een volledig voorbeeld uitgewerkt staat.

[dusty]

link naar een zip

Zoiets?

[Verwijderd]

Jottem

Dat bedoel ik!

[whoami]

Is dat met die sleur'n pleur events dusty?

[dusty]

Verwijderd schreef op 19 February 2003 @ 22:54:
Jottem

Dat bedoel ik!

Zet dit eens in je Label1.onmouseup()

Label1.caption:=inttostr(x)+' / '+inttostr(y);

daar valt het toch ECHT mee te doen.

[dusty]

whoami schreef op 19 February 2003 @ 22:55:
Is dat met die sleur'n pleur events dusty?

Nee dat is zelfs zonder die sleur n pleur events dit is gewoon met de mouseup event.

Ik gebruik in principe alleen de sleur en pleur events als iets verplaatst moet worden buiten het programma of vanaf buiten naar binnen het programma

binnen het programma zelf gebruik ik gewoon de onmouseup() event.

[Verwijderd]

Thanks. Voor de reactie. Ga er gelijk maar eens verder mee knutselen.

*Name? vraagt zich af of hij niet beter kan gaan slapen *

[LordLarry]

Tis echt rete simpel om te draggen en droppen met de drag drop events die de VCL bied.

[ Voor 7% gewijzigd door LordLarry op 20-02-2003 09:30 ]