Größe von TWebBrowser ändern

Nova · Beiträge: 24

Hi zusammen,

ich erstelle ein kleines Programm für das ich die TWebBrowser Komponente benutze und bin an ein kleines Problem geraten.
Ich kann die Größe des Browsers nicht mehr während der Laufzeit ändern.

Jegliche Versuche die width und height Eigenschaften zu ändern geben keine Ergebnisse.
Die Komponente behält die Größe bei, die ich zur Design Zeit eingestellt habe.
Wenn ich jedoch Align auf alClient setze verändert sich der Browser relativ zur Fenstergröße.

Aber ich will den Browser auf Position -2 -2 setzen
und die Größe auf Form.Width + 4 und Form.Height + 4

das ganze soll dazu dienen, dass der häßliche Rand von der Komponente verschwindet.

Anywho, die Top und Left Werte lassen sich verändern. Width und Height aber nicht.
Hat jemand eine Idee woran das liegen kann ?

Gruß, Nova

Killian2004 · Verfasst: Fr 24.08.07 15:05

Hi, ich verwende im Moment D7.

Bei mir hat die TWebbrowser Komponente überhaupt keinen Rahmen!
Auch lassen sich problemlos zur Laufzeit die Eigenschaften Width/Height ändern.

Habe es ganz trivial getestet:

markieren

Delphi-Quelltext

1:	Webbrowser1.Width := Webbrowser1.Width + 10;

Und das funktioniert einwandfrei.
Wenn du möchtest, kann ich dir mein Testprojekt schicken, dann testest du mal, ob der bei dir auch nicht geht.

mfG, Killian

_________________
Die Antwort ist 17, aber wie lautet die Frage?

Nova · Beiträge: 24

Hmmh, du hast recht... wenn ich ein neues Projekt mit einem Button und einem Webbrowser mache (und der Button halt auch Width := Width - 10 macht) dann funktioniert es.

Ich hab jetzt einfach den WebBrowser nicht mehr relativ zum Form vergrößert (also WebBrowser.Width := Self.Width)
sondern hab eine Integer Variable Definiert und dann die Form und Browser Width damit verändert.
Scheint zu funktionieren,... weird

naja, danke für die Inspiration *g*

Killian2004 · Verfasst: Mo 27.08.07 19:07

Hm, das verstehe ich wirklich nicht, warum das nicht geht bei dir.
Hab gerade folgendes getestet:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormResize(Sender: TObject);
begin
 With WebBrowser1 Do
  Begin
   Left := 10;
   Top := 10;
   Width := Self.ClientWidth - 20;
   Height := Self.ClientHeight - 20;
  End;
end;

Und das funktioniert problemlos!
WO genau hast du denn dieses "WebBrowser.Width := Self.Width" hingesetzt?

mfG, Killian

_________________
Die Antwort ist 17, aber wie lautet die Frage?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme