und nochwas:
Umd das Form zu verschieben, im MouseDown eintragen:
Delphi-Quellcode:
procedure TfrmMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button <> mbLeft
then Exit;
ReleaseCapture;
SendMessage(
Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;
Dann kann man die Sache mit Klick auf den sichtbaren Bereich verschieben.
Wenn gewünscht, mach ich mal ne kleine Demo dazu.
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)
