Einzelnen Beitrag anzeigen

horst

Registriert seit: 1. Jul 2003
347 Beiträge
 
Delphi 2007 Professional
 
#1

herausfinden was in einem twebbrowser markiert ist

  Alt 1. Sep 2004, 12:22
hallo
mit dem tip kann ich herausfinden was in einem twebbrowser markiert ist.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Webbrowser1.OleObject.Document.Selection.type = 'Controlthen
  begin
    if Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName =
      'IMAGEthen
      ShowMessage('An Image is selected');
  end
  else
  begin
    if Webbrowser1.OleObject.Document.Selection.createRange.Text = 'then
      ShowMessage('Nothing is selected - ');
  end;
end;
ich habe ein problem und zwar,
wenn z.b. ein bild markiert ist, soll ein bestimmtes ereignis ausgelöst werden ( das funktioniert, dank dem tip), danach soll das markierte bild "demarkiert" werden. (damit das ereignis nicht immer wieder ausgelöst wird)
wer weiss wie ich das machen kann?

viele grüße
horst
  Mit Zitat antworten Zitat