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

ich glaube SHAppBarMessage, könnte dir weiterhelfen.

finde leider nichts dazu

Dann such hier mal nach AppBar...

Es gibt ein wunderbares C-Bsp namens



ShellRun

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

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

zusammenfalten · markieren

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


mit freundlichen Grüssen, Mirilin