Hallo ahbe hier nun alles mögliche zu WM_SysCommand gelesen und Probiert.
Leider lässt sich das Element einfach nicht verschieben!
meine Versuche sind:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
ReleaseCapture;
Shape1.perform(WM_SysCommand, $F012, 0);
end; |
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
Shape1.perform(WM_SysCommand, $F012, 0);
end; |
gebe ich aber das hier mal ein
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.perform(WM_SysCommand, $F012, 0);
end; |
geht das sofort ohne Probleme
Wo ist mein Denkfehler?
Moderiert von 
Gausi: Topic aus Sonstiges (Delphi) verschoben am Do 16.02.2006 um 22:10
Moderiert von Christian S.: Code- durch Delphi-Tags ersetzt
