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!

[delphi-anfänger]

sch.. aaaaadeee :cry:
trotzdem danke

[meisterwms]

Zitat:

Zitat von 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;

Kann mir einer sagen, wie ich diese procedure so aufrufe, daß das Programm z.b. unten am Bildschirmrand andockt?

[marabu]

Zitat:

Zitat von meisterwms

Kann mir einer sagen, wie ich diese procedure so aufrufe, daß das Programm z.b. unten am Bildschirmrand andockt?

Nicht du rufst sie auf, sondern sie wird automatisch ausgeführt, wenn du zur Laufzeit deine Form in die Nähe der Bildschirmränder bewegst. Dazu musst du die entsprechende Form in deinem Programm so erweitern, wie der Code-Autor angedeutet hat. Im private-Bereich deiner Form-Deklaration trägst du den oben angegebenen Message-Handler ein und im implementation-Abschnitt deiner Form-Unit die abgebildete Prozedur.

Grüße vom marabu

[alzaimar]

Die Screen.WorkAreaWidth / Height scheint es in Delphi 3 noch nicht zu geben. Du kannst Dir mit Screen.Width / Height behelfen, allerdings werden da die AppBars (Taskbar, Office Mumpf etc.) nicht eingerechnet. Entweder Du ignorierst das, oder musst Dir selber die Liste der AppBars von Windows geben und die WorkArea berechnen.

[Fingolfin]

Im Anschluß an alzaimars Beitrag:

Den verfügbaren Platz auf dem Bildschirm abzüglich der AppBars kannst du mit

Delphi-Quellcode:

SystemParametersInfo(SPI_GETWORKAREA, 0, @IrgendeinRect, 0);

ermitteln.