Hi! Also ich mach das immer so, mit dem Andocken.
Zuerst unter
protected (musst du irgendwo über oder unter private und public schreiben) ne Message deklarieren:
procedure WMMove(var message: Tmessage);message WM_Move;
// Dann diesen Quelltext einfügen
und dann noch folgende Prozedur dazu schreiben:
Delphi-Quellcode:
procedure TForm1.WMMove(var message: Tmessage);
begin
IF (Form1.Left > 0) AND (Form1.Left < 10) THEN
Form1.Left := 0;
IF (Form1.Top > 0) AND (Form1.Top < 10) THEN
Form1.Top := 0;
IF (Form1.Left < Screen.Width - Form1.Width) AND
(Form1.Left > Screen.Width - Form1.Width -10) THEN
Form1.Left := Screen.Width - Form1.Width;
IF (Form1.Top < Screen.Height - Form1.Height) AND
(Form1.Top > Screen.Height - Form1.Height - 30) THEN
Form1.Top := Screen.Height - Form1.Height -30;
end;
Das mit dem
-30 bei Top hab ich gemacht, weil das ding sonst unter der Taskleiste verschwindet.
Man liest sich, Stanlay
