Andocken an Rändern

[theomega]

Hallo
wie kann ich es relisieren, dass sich meine Forumulare aneinander so andocken (so wie Winamp) dass gleiche soll auch mit dem Bildcshrimrand passieren.

[CalganX]

Im Kompoback "BUPack" hab' ich mal so eine Komponente gesehen. Wenn du allerdings einen SourceCode haben willst; da kann ich dir leider nicht behiflich sein...

Chris

PS: Dieses KompoPack findest du auf ensacom.

[Alexander]

Ich glaub da hab ich mal was auf www.swissdelphicenter.de gesehen. Weiß es leider nicht genau.

[Christian Seehase]

Moin The Omega,

wo Du schon WinAmp ansprichst:
Lade Dir doch mal das WinAmp SDK runter.
Auch wenn dort C(++) verwendet wird, könnte es ja sein, dass Du dort fündig wirst.

[theomega]

Der BU hat geholfen, danke

[DieHardMan]

für den bildschirmrand

Code:

  private
    { Private declarations }
    procedure WMWindowPosChanging(var Message: TWMWINDOWPOSCHANGING);
    message WM_WINDOWPOSCHANGING;

procedure TForm1.WMWindowPosChanging(var Message: TWMWINDOWPOSCHANGING);
const
  distance = 10;
begin
  { Obere und untere Festerkante }
  if (Message.WindowPos.y <= distance) AND
    (Message.WindowPos.y >= -distance) then
      Message.WindowPos.y := 0
  else
    if (Message.WindowPos.y + Height > (Screen.WorkAreaHeight - distance)) AND
      (Message.WindowPos.y + Height < (Screen.WorkAreaHeight + distance)) then
        Message.WindowPos.y := Screen.WorkAreaHeight - Height;

  { Linke und rechte Fensterkante }
  if (Message.WindowPos.x <= distance) AND
    (Message.WindowPos.x >= -distance) then
      Message.WindowPos.x := 0
  else
    if (Message.WindowPos.x + Width > (Screen.WorkAreaWidth - distance)) AND
      (Message.WindowPos.x + Width < (Screen.WorkAreaWidth + distance)) then
        Message.WindowPos.x := Screen.WorkAreaWidth - Width;
end;

[delphi-anfänger]

Also ich weis ja nicht, was ich falsch mach, aber bei mir kommen folgende fehler:
Undefinierter Bezeichner: 'WorkAreaHeight'
und dasselbe mit : 'WorkAreaWidth'
kann des sein, das der code mit delphi 3 nicht funzt?

[Meflin]

für delphi 7 aufwärts user sei hier nochmals die screensnap property von tform erwähnt.
hab ich auch in der codelib schon gepostet!

[delphi-anfänger]

ich hab ja aber kein delphi7, sondern delphi3!

[Meflin]

Zitat:

Zitat von delphi-anfänger

ich hab ja aber kein delphi7, sondern delphi3!

ich weis ;) der beitrag war auch nicht für dich gedacht...
ich kann dir leider auch nicht helfen, hab ja selbst kein d3!