Fenster wie bei ICQ

[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
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 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.