Fenster wie bei ICQ

[billi]

Hallo,
ich weis der Titel ist nicht ganz passend, aber ich wusste net wie ich ihn besser formulieren sollte...
Also, wenn man ICQ über den Rand des Bildschirms zieht, setzt es sich dort "fest". Außerdem nimme es so einfulss auf andere Fenster, die nämlich nun beim MAximieren immer den Platz von ICQ frei lassen. Wie ereiche ich das?
gruß
billi

[mgubler]

da gibt es eine Komponente zu.
Also wie beim Winamp beispielsweise?
Wird beim Drag vom Fensterrand angezogen???

Ich schau mal nach!

[mgubler]

Hier: ScreenDocker - Component

Gruß,
mgubler

[billi]

jein, das auch, nur was mich auch interessiert ist, wie das läuft, dass nachdem icq sich am Bildschirmrand "breit gemacht" hat, die eine Seite zur neuen Begrenzung für die Fenstergröße anderer Fenster im "Maximiert"-Modus ist.
Aber den NAmen der Komponente den du erwähnt hast interessiert mich auch mal...
gruß
billi
edit: da warjemand schnelle... :wink:

[fylo]

hi

Ich hatte auch mal solch eine Komponente, zu finden _war_ sie unter
http://www.geocities.com/SiliconValley/9486
(ist aber leider down...)

Kannst aber mal nach im Internet unter "Appbar" suchen.

[billi]

wie sieht es damit aus? und dann appbar.zip

[tobster]

Bei D7 ist das schon Bestandteil der IDE!

[billi]

leider hab ich "nur" Delphi 5 Standard, gibt es als Schüler unserer Schule kostenlos lizensiert (solange man an der Schule ist) ;-)
gruß
billi

[fylo]

hi

@tobster: wie meinst du das? :?:

gibst es dort schon eine fertige komponente?

[tobster]

Zitat:

Zitat von fylo

gibst es dort schon eine fertige komponente?

Nein, es ist Bestandteil der Klasse TForm. Der genaue Name der Eigenschaft ist mir im Moment entfallen, aber auf jeden Fall springen die Fenster wie Winamp und Co. an die Bildschirmkanten, wenn aktiviert.

Wenn jemand eien Appbar generieren will, empfehle ich die drei Zeilen noch selbst zu schreiben. Wenn gewünscht grabbe ich die paar Zeilen mal aus nem Proggi von mir.

[billi]

Zitat:

Wenn gewünscht grabbe ich die paar Zeilen mal aus nem Proggi von mir.

Jo, das wär nett...
gruß
billi

[fylo]

hi

Ja, das was du meinst ist ScreenSnap und SnapBuffer.
Das hat aber doch nichts mit einer AppBar zutun, oder :?:

Eine AppBar ist doch so was wie die Windowstaskleiste, die meistens
unten am Bildschirm verankert ist.

[billi]

so ist es... aber wo finde ich die Komps ScreenSnap und SnapBuffer
gruß
billi

[fylo]

Es sind keine Komponenten, sondern bei Delphi7 sind es Eigenschaften einer TForm.
Musst mal im Objektinspektor die Form auswählen und die einzelnen Eigenschaften
betrachten.

[billi]

ich hab aber nur version 5 und wie mach ich das dann?

[fylo]

Sorry hat ich übersehen :oops:
Na dann kann ich dir noch die JEDI Komponenten empfehlen.
In dem Paket (ca. 10mb) gibt es einige Komponentne für die Form unter anderem auch ScreenMagnet.

[tobster]

Zitat:

Zitat von billi

Zitat:

Wenn gewünscht grabbe ich die paar Zeilen mal aus nem Proggi von mir.

Jo, das wär nett...
gruß
billi

Zum Thema Appbar zurück:

Code:

uses  [...], ShellAPI;

type
  TForm1 = class(TForm)
   [...]
  private
    { Private-Deklarationen }
    AppBar: TAppBarData;
  end;
   
[...]

procedure TForm1.DoAppbar(Sender: TObject);
begin
 with AppBar do begin
  cbSize := SizeOf(TAppBarData);
  hWnd := Form1.Handle;
  uEdge := ABE_TOP;
 end;
 SHAppBarMessage(ABM_NEW, AppBar);
 SystemParametersInfo(SPI_GETWORKAREA, 0, @AppBar.rc, 0);
 AppBar.rc.Bottom := AppBar.rc.Top+100;
 SHAppBarMessage(ABM_QUERYPOS, AppBar);
 SHAppBarMessage(ABM_SETPOS, AppBar);
 Application.ProcessMessages;
 [...]
 MoveWindow(Form1.Handle,AppBar.rc.Left,AppBar.rc.Top,AppBar.rc.Right,AppBar.rc.Bottom,true);
 SendMessage(Form1.Handle, wm_sizing,0,0);
end;

Spätestens beim Beenden seines Proggies sollte man dann den reservieren Bereich (hier 100 Pixel am oberen Rand) wieder freigeben:

Code:

 SHAppBarMessage(ABM_REMOVE, AppBar);

Ich habs nicht so mit Kommentaren, aber eigentlich sollte man ja sehen, wo was hingehört. :twisted: