/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Drag'n'Drop
Fra : Thomas P


Dato : 21-03-01 21:01

Har nogen monstro et par tips til dovne mig, der simpelthen egentlig bare
lige har lyst til at blive sparket igang med at lave customizeable
programmer. Jeg skal sådan set bare mere eller mindre indføres en smule i
hvordan man sørger for at brugeren kan lave det berømte drag'n'drop med
*mine* komponenter på formen - selvfølgelig instance-lavede komponenter ;)

--
- Thomas [blomme@post.com] [http://www.FlowCode.f2s.com]





 
 
Niels (21-03-2001)
Kommentar
Fra : Niels


Dato : 21-03-01 21:39

Just as I expected, Thomas P came up with this:

>Har nogen monstro et par tips til dovne mig, der simpelthen egentlig bare
>lige har lyst til at blive sparket igang med at lave customizeable
>programmer. Jeg skal sådan set bare mere eller mindre indføres en smule i
>hvordan man sørger for at brugeren kan lave det berømte drag'n'drop med
>*mine* komponenter på formen - selvfølgelig instance-lavede komponenter ;)

For at tage den virkelig simple, grimme og ikke-særlig-brugervenlige
løsning, så:
Sæt komponentens DragMode til dmAutomatic.
Lav en event-handler til OnEndDrag hvor du sætter komponentens (brug
Sender typecastet til TControl) Left og Top efter X og Y variablerne.
(Husk at de er relative til Target !)
Lav en OnDragOver evcent-handler og tildel den til *alle* komponenter på
formen. I den skal der så bare stå "Accept := True".
Nu skulle det faktisk virke!

Niels
--
e-mail: nmartin at iname dot com
ICQ UIN: 50187323
http://www.niller.f2s.com/ - niLLer's pages

Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste