|
|
 | Move Shape
Fra :  HenningMadsen | Vist : 313 gange
200 point
Dato : 29-12-09 21:59 |
|
Procedure Tform1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Const
SC_DRAGMOVE = $F012;
Begin
ReleaseCapture;
With Sender as tWinControl Do Perform (WM_SYSCOMMAND, SF_DRAGMOVE,0);
end;
Denne Procedure virker fint på Panel, Button og StringGrid. Sikker også på andre.
Derimod virker den ikke med en Shape, måske heller ikke på andre.
Spørsmålet er så om der er en måde at få det til at virke på en Shape.
På forhånd tak for et eventuel svar.
m.v.h. Henning
| |
|
Jeg har desværre ikke modtaget et gyldigt svar, og annullerer derfor dette spørgsmål 
| |
 | Du har følgende muligheder | |
|
Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.
| |
|
|