værdi fra textfelt indsat i webbrowser.navigate

webbrowser.Navigate(Edit1.Text);

Snowball

hovsa glemte lige at skrive at det skulle være i en if sætning...

Altså kun hvis Edit1.text ikke er =''

If Edit1.Text <> '' Then
  webbrowser.Navigate(Edit1.Text)
Else
  webbrowser.Navigate('http://www.dumazz.dk');

Snowball

[Error] Unit1.pas(48): Object or class type required

Sikker du dit web browser komponent hedder "webbrowser" !? Du får nemlig den fejl du nævner hvis du ikke har stavet det korrekt.

Snowball

Ja det virker nu...

Men hvad skal man gøre hvis man ønsker at bruge samme princip ved en timer.interval ?

timer.interval:='time.text'; <--- det duer ikke..

Timer.Interval := StrToInt(Edit1.Text);

Snowball

hvad nu hvis edit1.text er bogstaver ??? kan man lave en felt der kun kan skrives tal i ???
Eller evt sætte intervallet til en konstant hvis der er bogstaver i feltet...

Sæt denne procedure ind i dit program:

procedure ValidateEdit(Edit: TEdit; ValidChars: TCharSet);
var
  s: string;
  i: Integer;
begin
  s := Edit.Text;
  for i := 1 to length(s) do
    if not (s[i] in ValidChars) then
      Delete(s, i, 1);

  If Pos('--',s) > 0 Then
    Delete(s, Pos('--',s), 1);

  Edit.text := s;
  Edit.SelStart := length(s);
end;

Og i din Edit's OnKeyDown, skriver du følgende:

ValidateEdit(Sender as TEdit, ['0'..'9']);

Så kan du kun indtaste tal i det edit felt.

Snowball

Glemte lige at du også skal sætte nedenstående linie ind. F.eks. lige over TForm1 = class(TForm)

TCharSet = set of char;

Snowball

Hov. Fjern forresten også lige nedenstående linier, da de ikke skal bruges i dit tilfælde ;)

If Pos('--',s) > 0 Then
    Delete(s, Pos('--',s), 1);

Snowball