Eigenes Favoriten-Menü

[S2B]

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