AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi Eigenes Favoriten-Menü

Eigenes Favoriten-Menü

Ein Thema von S2B · begonnen am 20. Mär 2004 · letzter Beitrag vom 4. Jun 2008
Antwort Antwort
Seite 5 von 5   « Erste     345
djpaull
(Gast)

n/a Beiträge
 
#41

Re: Eigenes Favoriten-Menü

  Alt 11. Mär 2008, 09:56
Sorry, bin nicht so gut in Delphi. Woher weiss ich, was das Handle des aufrufenden Fensters ist?
  Mit Zitat antworten Zitat
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.990 Beiträge
 
Delphi 7 Professional
 
#42

Re: Eigenes Favoriten-Menü

  Alt 11. Mär 2008, 10:00
Es ist das Handle deines Formulars. Rufst du die Funktion aus einer Methode auf, dann schrieb einfach nur "Handle". Rufst du aus einer Prozedur auf, dann muss der Formularname davor stehen, also z.B. "Form1.Handle"
Ralph
  Mit Zitat antworten Zitat
djpaull
(Gast)

n/a Beiträge
 
#43

Re: Eigenes Favoriten-Menü

  Alt 11. Mär 2008, 10:03
AAAhhh THX !
  Mit Zitat antworten Zitat
Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#44

Re: Eigenes Favoriten-Menü

  Alt 11. Mär 2008, 11:10
Zitat von taaktaak:
Rufst du aus einer Prozedur auf, dann muss der Formularname davor stehen, also z.B. "Form1.Handle"
oder besser Self.Handle
Thomas
  Mit Zitat antworten Zitat
djpaull
(Gast)

n/a Beiträge
 
#45

Re: Eigenes Favoriten-Menü

  Alt 11. Mär 2008, 12:34
Noch ne Kleinigkeit. Ich wollte die Favs anstatt in MainMenu in einem PopupMeun anzeigen lassen. Habe den Code von #8 wiefolgt angepasst
Delphi-Quellcode:
{.$DEFINE TINIFILE}

procedure TForm1.OnURLMenuItemClick(Sender: TObject);
begin
  if(Sender is TMenuItem) and
    ((Sender as TMenuItem).Hint <> '') then
  ShellExecute(self.Handle,'open',pchar((Sender as TMenuItem).Hint),
    nil,nil,SW_SHOWNORMAL);
end;

procedure TForm1.LoadLocalFavorites;

  procedure scanit(const orgPath: string; parentMI: TMenuItem);
  var
    path : string;
    res : integer;
    ds : TSearchRec;
    mii : TMenuItem;
{$IFDEF TINIFILE}
    ini : TIniFile;
{$ENDIF}
  begin
    path := GetCurrentDir;

    // zuerst alle Ordner, weil das Einträge für
    // Untermenüs werden
    res := FindFirst('*.*',faAnyFile,ds);
    while(res = 0) do
    begin
      if(ds.Attr and faDirectory <> 0) and
        (ds.Attr and faHidden = 0) and
        ((ds.Name <> '.') and (ds.Name <> '..')) then
      begin
        mii := TMenuItem.Create(parentMI);
        mii.Caption := ds.Name;

        // rein ins Menü
        parentMI.Add(mii);

        if(SetCurrentDir(ds.Name)) then
          scanit(orgPath,mii);
      end;

      res := FindNext(ds); Application.ProcessMessages;
    end;
    FindClose(ds);

    // und jetzt alle URL-Dateien suchen
    res := FindFirst('*.url',faAnyFile,ds);
    while(res = 0) do
    begin
      if(ds.Name <> '.') and
        (ds.Name <> '..') and
        (ds.Attr and faDirectory = 0) then
      begin
        mii := TMenuItem.Create(parentMI);
        mii.Caption := ChangeFileExt(ds.Name,'');

{$IFDEF TINIFILE} 
        ini := TIniFile.Create(path + '\' + ds.Name);
        if(ini <> nil) then
        try
          mii.Hint := ini.ReadString('InternetShortcut','URL','');
        finally
          ini.Free;
        end;
{$ELSE} 
        mii.Hint := '"' + path + '\' + ds.Name + '"';
{$ENDIF} 
        mii.ImageIndex := 11;
        mii.OnClick := OnURLMenuItemClick;

        // ab ins Menü damit
        if(mii.Hint <> '') and
          (mii.Caption <> '') then parentMI.Add(mii);
      end;

      res := FindNext(ds); Application.ProcessMessages;
    end;
    FindClose(ds);

    // und wieder einen Ordner nach oben
    if(path <> orgPath) then ChDir('..');
  end;


var
  cDummy,
  xPath : string;
begin
  // aktuelles Verzeichnis ermitteln
  cDummy := GetCurrentDir;

  // Favoritenordner des aktuellen Benutzers
  // ermitteln, ...
  xPath := GetSpecialFolder(Handle, CSIDL_FAVORITES);
  // ... & scannen
  if(xPath <> '') and
    (SetCurrentDir(xPath)) then scanit(xPath,[b]Favs1[/b]);

  // du kannst auch noch die Favoriten für
  // alle Benutzer anhängen, wenn du nach
  // "CSIDL_COMMON_FAVORITES" suchst
end;

function tform1.GetSpecialFolder(hWindow: HWND; Folder: Integer): String;
var
  pMalloc: IMalloc;
  pidl: PItemIDList;
  Path: PChar;
begin
  // get IMalloc interface pointer
  if (SHGetMalloc(pMalloc) <> S_OK) then
  begin
    MessageBox(hWindow, 'Couldn''t get pointer to IMalloc interface.',
               'SHGetMalloc(pMalloc)', 16);
    Exit;
  end;

  // retrieve path
  SHGetSpecialFolderLocation(hWindow, Folder, pidl);
  GetMem(Path, MAX_PATH);
  SHGetPathFromIDList(pidl, Path);
  Result := Path;
  FreeMem(Path);

  // free memory allocated by SHGetSpecialFolderLocation
  pMalloc.Free(pidl);
end;
Nur kommt folgendes raus (siehe Bild), also er kopiert alle Seiten und Ordner in das Item "Favs1". Ich will aber, dass er die Einträge (Seiten und Ordner) direkt als Items in meinem PopupMenu ("Fav") erstellt. Problem ist, dass PopupMenu ("Fav") Kein Item ist. Er braucht aber ein Parent vom typ TMenuItem in dieser Zeileprocedure scanit(const orgPath: string; [b]parentMI: TMenuItem[/b]); Was muss man ändern? Ich habe da kein Überblick mehr
Miniaturansicht angehängter Grafiken
1_187.jpg  
  Mit Zitat antworten Zitat
djpaull
(Gast)

n/a Beiträge
 
#46

Re: Eigenes Favoriten-Menü

  Alt 4. Jun 2008, 00:56
Frage zur folgender Stelle:
Delphi-Quellcode:
procedure TForm1.OnURLMenuItemClick(Sender: TObject);
begin
  if(Sender is TMenuItem) and
    ((Sender as TMenuItem).Hint <> '') then
  ShellExecute(self.Handle,'open',pchar((Sender as TMenuItem).Hint),
    nil,nil,SW_SHOWNORMAL);
end;
Mit diesem Code öffnet mein Programm den Internet Explorer (, also den Standartbroser von Windoof). Was muss man da ändern, damit er den link "xy" im programm selbst im TWebBrowser öffnet?

Und so nebenbei. Weiss vielleicht jemand, wie man eigenen Browser zum Standartbroser von Windoof macht?
  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 23:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz