Leiste änlich Taskleiste von Windoof [gelöst]

[ixtreme]

Hallo,


ich habe schon ein wenig probiert, doch ich hab nichts vernünftiges raus gefunden...

Wie kann ich eine Windows änliche Taskleiste erzeugen die am oberen Bildschirmrand erscheint?


Gruß

ixtreme

[Mirilin]

:hi:

ich glaube SHAppBarMessage, könnte dir weiterhelfen.

[ixtreme]

finde leider nichts dazu

[Alexander]

Dann such hier mal nach AppBar...

[neolithos]

Es gibt ein wunderbares C-Bsp namens



ShellRun

[Alexander]

Du kannst hier auch noch mal kucken:
http://msdn.microsoft.com/library/de...barmessage.asp

[Mirilin]

:hi:

*Mal einwenig Gugel benützt hat, um ein Bleispiel zu zeigen*

Delphi-Quellcode:

var
  TheAppBar: TTheAppBar;
  AppData: _AppBarData; //Appbars structure

implementation

{$R *.dfm}

procedure TTheAppBar.FormCreate(Sender: TObject);
var
  MTheAppBar: hwnd; 
begin
  MTheAppBar := Application.handle; //apps handle
  with AppData do //structure setup
  begin
    AppData.cbSize := 20;
    Appdata.hWnd := MTheAppBar;
    AppData.uEdge := ABE_LEFT;
    AppData.rc.Left := 30;
    AppData.rc.Top := 30;
    AppData.rc.Right := 30;
    AppData.rc.Bottom := 30;  
  end;
end;

procedure TTheAppBar.Button1Click(Sender: TObject);
begin
  SHAppBarMessage(ABM_NEW, AppData); //Add to system list
  SHAppBarMessage(ABM_ACTIVATE, AppData); //Activate ot
  SHAppBarMessage(ABM_SETPOS, AppData); //Position it
end;

procedure TTheAppBar.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SHAppBarMessage(ABM_REMOVE, AppData); //Remove it on close
end;

procedure TTheAppBar.Button2Click(Sender: TObject);
begin
  MoveWindow(AppData.hWnd, AppData.rc.left, AppData.rc.top, AppData.rc.right - AppData.rc.left, AppData.rc.bottom - 
             AppData.rc.top, TRUE); //Move the appbar into the specified rect
end;

end.

von hier


In der PSDK findest du auch nützliches, sie Klink von alexander, bzw. Festplatte...


:hi: mit freundlichen Grüssen, Mirilin