Tags:
delphi
Hej
Er der nogen der kan hjælpe mig med et lille eksemple med noget
Drag-and-Drop eller Drag-and-dock
Da jeg sidder og skal bruge det til et projekt i skolen ville det være godt med et par eksembler...
Mit problem er (lidt forenklet) at jeg skal trække flere paneler rundt på et panel. Så man kan lave et skema.
Hvis der er nogen der har prøvet noget før og har noget kilde kode ville det være rart at kigge på.
mvh Nikolaj
1 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
0
<quote>Hej
Er der nogen der kan hjælpe mig med et lille eksemple med noget Drag-and-Drop eller Drag-and-dock. Da jeg sidder og skal bruge det til et projekt i skolen ville det være godt med et par eksembler...
Mit problem er (lidt forenklet) at jeg skal trække flere paneler rundt på et panel. Så man kan lave et skema. Hvis der er nogen der har prøvet noget før og har noget kilde kode ville det være rart at kigge på.
mvh Nikolaj</quote>
Hej Nikolaj,
En meget meget nem måde at gøre det (hvis jeg forstår dit behov rigtigt) er at gøre følgende :
Du har en form med et panel på. I dette panel har du yderligere en række paneler.
For hvert af disse "child"-panelet sætter du MouseDown event til følgende :
<code>
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
sc_dragmove = $f012;
begin
releasecapture;
twincontrol(sender).perform(wm_syscommand,sc_dragmove, 0);
end;
</code>
Mvh
Thomas
tdue@mail.dk