Thema: Delphi Eigenes Favoriten-Menü

Einzelnen Beitrag anzeigen

Benutzerbild von S2B
S2B

Registriert seit: 1. Feb 2004
Ort: Aachen
1.268 Beiträge
 
#18

Re: Eigenes Favoriten-Menü

  Alt 21. Mär 2004, 14:29
Sorry, aber ich wollt des Projekt heute abschließen und da hab ich wohl viel zu schnell weitergeschrieben... Sorry!!

Hier ein Teil meines Codes:

Code:
type
  TForm1 = class(TForm)
    {...} 
  private
    FOleInPlaceActiveObject: IOleInPlaceActiveObject;
    procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
    procedure OnURLMenuItemClick(Sender: TObject);
  {...}

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;

//Im Code zum Suchen der Links:
mii.OnClick := OnURLMenuItemClick;
Ich hoffe, dass jemand ne Antwort weiß!

Gruß
S2B
Simon Praetorius
  Mit Zitat antworten Zitat