Fenster ohne Bordericon-Leiste verschieben

[Blackheart]

Kann man...

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  if Sender is TImage then
  TWinControl(TImage(Sender).Parent).Perform(WM_SYSCOMMAND, $F012, 0);
end;