herausfinden was in einem twebbrowser markiert ist

[horst]

moin, jepp war nur ein kleiner fehler

Delphi-Quellcode:

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if WB.OleObject.Document.Selection.type = 'Control' then
  begin
    if WB.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName =
      'IMG' then
      ShowMessage('An Image is selected');
  end
  else
  begin
    if WB.OleObject.Document.Selection.createRange.Text = '' then
      ShowMessage('Nothing is selected - ');
  end;
end;