AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke TEmbeddedWB: Eigenschaft silent ändern?
Thema durchsuchen
Ansicht
Themen-Optionen

TEmbeddedWB: Eigenschaft silent ändern?

Ein Thema von Caps · begonnen am 2. Mai 2013 · letzter Beitrag vom 2. Mai 2013
 
Caps

Registriert seit: 23. Mär 2006
Ort: Leipzig
299 Beiträge
 
#5

AW: TEmbeddedWB: Eigenschaft silent ändern?

  Alt 2. Mai 2013, 10:13
Nope. Leider nicht:

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, Buttons, StdCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    EmbeddedWB1: TEmbeddedWB;
    Timer1: TTimer;
    procedure FormResize(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormResize(Sender: TObject);
begin
EmbeddedWB1.Width := Width-16;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
EmbeddedWB1.Go(String(Edit1.Text));
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_RETURN then SpeedButton1.Click;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
EmbeddedWB1.Silent := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
EmbeddedWB1.silent := false;
if EmbeddedWB1.silent then showmessage('Das Ding wehrt sich.');
end;

end.
Jede Sekunde hat er mir ins Gesicht gesagt, dass er sich wehren würde. Nun ja, ein kurzer Test und fort mit dem Ding!
Cromium hab ich auch schonmal gehört bzw. gelesen, die Frage ist nur wie schwierig die Umstellung wird, wenn man die Komponente austauscht...

Beste Grüße
Caps
"Der Mode cmCFS8 ist prohibitär und von mir entwickelt."
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz