Hallo Leute,
hab ein kleines Problem:
Wenn ich ein Fenster manuell verschiebe, klappt fast alles. Nur wenn Form1.top
kleiner -25 ist, springt das Fenster immer auf Form1.top:=-25 (Die Höhe der nicht sichtbaren Titelbar)..
Dieser Effekt passiert VOR MouseUP und versaut mir das Positionieren..
Hat jemand eine Idee?
Vielen Dank
Erich
Form1.OnMouseDown:
Delphi-Quellcode:
if Button = mbLeft
then
begin
ReleaseCapture;
SendMessage(
Handle, WM_SYSCOMMAND, 61458, 0);
if Assigned(OnMouseUp)
then //MouseUp brauch ich noch
OnMouseUp(Sender, Button, Shift, X, Y);
end;
Das Fenster
Delphi-Quellcode:
object Form1: TForm1
Left = 561
Top = 341
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
AlphaBlend = True
AlphaBlendValue = 220
BorderIcons = [B][][/B]
BorderStyle = [B]bsNone[/B]
ClientHeight = 107
ClientWidth = 288
Color = clYellow
TransparentColor = True
TransparentColorValue = clYellow
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = [B]fsStayOnTop[/B]
OldCreateOrder = False
Scaled = False
ScreenSnap = True // hab ich schon verändert - bringt nix
OnCreate = FormCreate
OnMouseDown = image_mainmenMouseDown
OnMouseMove = image_mainmenMouseMove
OnMouseUp = image_mainmenMouseUp
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13