Forum: Sonstige Fragen zu Delphi
by R2D2,
25. Apr 2007
Ich hab jetzt folgenden Code gefunden:
procedure TForm1.WinControlMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Sender is TWinControl) then
begin
ReleaseCapture; //Fängt alle Mausereignisse ab
TWinControl(Sender).Perform(WM_SysCommand, $F012, 0);
end;
end;
Forum: Sonstige Fragen zu Delphi
by R2D2,
25. Apr 2007
Hallo,
Ich mochte gerne das Verschieben einer Komponente per Drag&Drop realisieren. Allerdings finde ich keine wirklich passende Anleitung bei google oder hier im Forum.
Gibt es da eine (einfache) Möglichkeit, wenn ja, wie lautet diese?