AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Fenster an Screen (rechts oder Links) andocken

Fenster an Screen (rechts oder Links) andocken

Ein Thema von kingflo · begonnen am 2. Mär 2007 · letzter Beitrag vom 2. Mär 2007
Antwort Antwort
kingflo

Registriert seit: 21. Jun 2004
Ort: Hamburg
502 Beiträge
 
Delphi 7 Professional
 
#1

Fenster an Screen (rechts oder Links) andocken

  Alt 2. Mär 2007, 08:57
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
Florian Gilde
  Mit Zitat antworten Zitat
kingflo

Registriert seit: 21. Jun 2004
Ort: Hamburg
502 Beiträge
 
Delphi 7 Professional
 
#2

Re: Fenster an Screen (rechts oder Links) andocken

  Alt 2. Mär 2007, 09:34
Also so geht es zwar

Delphi-Quellcode:
procedure TLoginForm.WMExitSizeMove(var Msg: TMessage);
begin
 if LoginForm.Left + LoginForm.Width >= screen.Width then begin
    LoginForm.Top:=0;
    oldFormHeight:=LoginForm.Height;
    LoginForm.Height:=screen.Height;
    LoginForm.Left:=screen.Width - LoginForm.Width;
    isDocked:=true;
 end
 else begin
    if isDocked then begin
      LoginForm.Height:=oldFormHeight;
      isDocked:=false;
    end;
 end;
end;
aber nur im WMExitSizeMove aber ich möchte es so haben wie ICQ also direkt im WMMoving.
Florian Gilde
  Mit Zitat antworten Zitat
SebE

Registriert seit: 31. Jul 2004
Ort: Chemnitz
316 Beiträge
 
Delphi 7 Personal
 
#3

Re: Fenster an Screen (rechts oder Links) andocken

  Alt 2. Mär 2007, 09:34
TForm besitzt die Eigenschaft "ScreenSnap" in verbindung mit "SnapBuffer".
Probier das am Besten einfach mal aus.
Sebastian
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#4

Re: Fenster an Screen (rechts oder Links) andocken

  Alt 2. Mär 2007, 16:25
Zitat von SebE:
TForm besitzt die Eigenschaft "ScreenSnap" in verbindung mit "SnapBuffer".
Probier das am Besten einfach mal aus.
Glaube die gibt es erst ab D7...

  Mit Zitat antworten Zitat
Daniel G
(Gast)

n/a Beiträge
 
#5

Re: Fenster an Screen (rechts oder Links) andocken

  Alt 2. Mär 2007, 16:33
Ansonsten gibt es auch in den JEDIs eine Komponente (TMagnetirgendwas), die eben dieses kann.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf