Hallo...
Ich habe schon sehr vieles versucht aber nichts hat gut funktioniert.
Und zwar will ich mein Fenster, wenn man es z.B rechts an den Bildschirmrand schiebt so andocken, wie es z.B ICQ oder Trillian auch machen. Leider bekomme ich das einfach nicht richtig hin.
z.B hatte ich folgendes versucht
Delphi-Quellcode:
procedure TForm1.WMMoving(var Message: TWMMoving);
var
rec: ^TRect;
wrk: TRect;
begin
SystemParametersInfo(spi_getworkarea, 0, @wrk, 0);
rec := Pointer(Message.DragRect);
if rec^.Left < wrk.Left then
begin
form.top:=0;
form.height:=screen.height;
end
else if rec^.Right > wrk.Right then
begin
form.top:=0;
form.height:=screen.height;
end;
end;
Aber das geht alles nicht so richtig es flakert nur blöd wenn man es dann nach rechts schiebt, hat da zufällig jemand eine gute