??????????

hmmmmm...den var vidst svær

næh, eksperten er bare død! Du burde oprette sådanne spm. i \"myldretiden\" på eksperten, så skal der nok komme noget!

du sover aldrig

Jeg sover heller aldrig.. *ggg*

Dette skulle deaktivere højre musseknap:

type
  TForm1 = class(TForm)
    lb: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult; stdcall;

var
  Form1: TForm1;
  Hook: HHook;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Hook := SetWindowsHookEx(WH_MOUSE, @MouseHook, 0, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnhookWindowsHookEx(Hook);
end;

function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult;
begin
  if nCode > -1 then
  begin
    if (wParam = 516) or (wParam = 517) then
      Result := 1
    else
      Result := 0;
  end
  else
    Result := CallNextHookEx(Hook, nCode, wParam, lParam);
end;

nico22: Det var da en masse unødvendig kode for så\'n en lille ting ! Nedenstående kode gør nøjagtig det samme:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If button = mbRight then
    ;
end;

Snowball

snowball>>Det virker jo kun inden for applikationen. Min kode virker i hele systemet, og det var sådan jeg forstod spørsmålet

her er et eksempel på hvordan man fanger et klik på et HTMLDokument. Det er besværligt, men det er den eneste løsning jeg kender til:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, SHDocVw_TLB, MSHTML_TLB;

type
  THTMLNotifyEvent =
    procedure(EventObject: IHTMLEventObj; EventType: string) of object;

  THTMLClickEvent = class(TInterfacedObject, IDispatch)
  private
    FDoc: IHTMLDocument2;
    FOnClick: THTMLNotifyEvent;
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExceptInfo, ArgErr: Pointer): HResult; stdcall;
    procedure DoClick;
  public
    property Doc: IHTMLDocument2 read FDoc write FDoc;
    property OnClick: THTMLNotifyEvent read FOnClick write FOnClick;
  end;

  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    FEvent: THTMLClickEvent;
    FDoc: IHTMLDocument2;
    procedure WebDocClick(EventObject: IHTMLEventObj; EventType: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  ComObj;

{$R *.DFM}

{ THTMLClickEvent }

function THTMLClickEvent.GetTypeInfoCount(out Count: Integer): HResult; stdcall;
begin
  Result := E_NOTIMPL;
end;

function THTMLClickEvent.GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
begin
  Result := E_NOTIMPL;
end;

function THTMLClickEvent.GetIDsOfNames(const IID: TGUID; Names: Pointer;
  NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
begin
  Result := E_NOTIMPL;
end;

function THTMLClickEvent.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
  Flags: Word; var Params; VarResult, ExceptInfo, ArgErr: Pointer): HResult; stdcall;
begin
  DoClick;
  Result := S_OK;
end;

procedure THTMLClickEvent.DoClick;
var
  EventObj: IHTMLEventObj;
  EventType: string;
begin
  if Assigned(FOnClick) then
  begin
    EventObj := nil;
    EventType := \'\';

    if Assigned(FDoc) and Assigned(FDoc.parentWindow) then
    begin
      EventObj := FDoc.parentWindow.event;
      if Assigned(EventObj) then
        EventType := EventObj.type_;
    end;

    FOnClick(EventObj, EventType);
  end;
end;

procedure TForm1.WebDocClick(EventObject: IHTMLEventObj; EventType: string);
begin
  ShowMessage(Format(\'X: %d, Y: %d\', [EventObject.x, EventObject.y]));
end;

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  FDoc := WebBrowser1.Document as IHTMLDocument2;
  FEvent.Doc := FDoc;
  FEvent.OnClick := WebDocClick;

  FDoc.onclick := FEvent as IDispatch;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FEvent := THTMLClickEvent.Create;
  WebBrowser1.Navigate(\'URL\', EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

end.

nico22: Jeg kan altså stadig højre klikke alle andre steder end på formen selvom jeg bruger din kode !!! ;)

Snowball

snowball>> ja du kan klikke, men der kommer da ikke nogen popupmenu. Du har måske et bedre forslag ;)

Nico22: Jo, det er netop det der gør ! ;)

Snowball

jeg har afprøvet det på to pcer nu, og det virker her

Nu har jeg prøvet på både en Win2k og en Win95 og jeg kan stadig ikke få det til at virke! På en lidt langsom Win95 PC gør koden faktisk at den bruger næsten 100% af processoren når musen kommer udenfor formen !

Du har vel ikke skrevet et eller andet oppe i Uses som ikke står der som standard !?

Snowball

hvad med spørgsmål nr 2? I må gerne bruge notater så jeg kan følge med

det er en måde at implementere com events på. Problemet er at TWebBrowser ikke har en onclick event, så man er nødt til at bruge IHTMLDocument2\'s onclick.

hvad med spørgsmål 1 - virker det på din maskine?

Jeg er ikke hjemme lige nu, så jeg har endu ikke prøvet det. IHTMLDocument2 er dette et component der følger med delphi 5? Hvis ikke hvor kan jeg få det henne. Du må gerne vise et eksempel på hvordan man skal bruge det.

IHTMLDocument2 er bare et interface. Hvis du kikker i SHDocVw_TLB og MSHTML_TLB, der følger med TWebBrowser vil du finde utallige interfaces, som alle udgør en del af TWebBrowser. IHTMLDocument2 er det interface der repræsenterer det aktuelle dokument i browseren, og ud over events, er der også nogle metoder du kan bruge, men kik i ovenstående units, og prøv at eksperimenter med det. Teknologien hedder ActiveX, som mange af microsofts produkter bygger på, og på samme måde kan du automatisere Word og Excel ved bare at importere det tilknyttede type library

hvis ikke det med musseknappen virker, kan du evt. prøve det her i stedet for:

Hook := SetWindowsHookEx(WH_MOUSE, @MouseHook, 0, GetCurrentThreadID);

det virker kun inden for selve applikationen

hmmm.. Jeg skal nok give point, men jeg vil gerne lige have et godt svar for nr. 2 spørgsmål...Et eksempel med source ville være rart

hvad er det præcis du vil ha

Kan du ikke lave et eksempel med source og sende den til mig?
Det jeg vil have er:
Først lidt info
Jeg har 3. Knapper og componentet webbrowser på form 1.
Når der klikkes på knap et så navigere min webbrowser1 component overtil min hjemmeside hvor der er en disclaimer og 2 knapper. Når der klikkes på knap et...agree knappen så er knap 2 på formen enabled:=true; Resten behøver du ikke at tænke over når der bliver svaret rigtig på dette så kan jeg klare resten selv.

Hvorfor jeg vil have disclaimeren her er fordi så kan jeg ændre den og ændre news.

Takker

hvis det er nødvendigt så kan jeg sende dig den html fil med knappen på

De knapper du snakker om, er det Delphi knapper eller knapper på hjemmesiden, eller begge dele

hvad højre musseknap - fik du det til at virke

og højre musseknap tingen har jeg ikke prøvet endnu

du må godt sende HTML dokumentet på brodersalsa@mail.dk

og det du vil ha, er at når man trykker på en html-knap, bliver en delphi-knap enabled. Er det rigtigt forstået???

ja, jeg sender den om lidt

sendt

jeg kigger på det. Er næsten sikker på at det kan lade sig gøre

Hvis det er Delphi5 du bruger skal du skifte SHDocVw_TLB og MSHTML_TLB ud med SHDocVw og MSHtml. De ligger i source\\internet

det virked perfekt..... jeg åbner et spørgsmål så du kan få dine point.    giver det navnet  100000 nico22    så skal du bare søge og den er der

jeg kan da sige noget......en javascript knappe har en value....det var den nico brugte så delphi kunne regne ud når der blev klikket på den

data2k.dk>>det er id man søger efter

ok, men det virker