Hjälp mig med min webläsare jag bygger!!

[VanDamage]

Jag har ett par problem:

Jag har gjort en Edit-knapp där man skriver in URL och trycker på knappen bredvid så att man kommer till den URL man skrivit (tog koden från PC för Alla's kurs). Det jag vill är att när jag skrivit URL'en i edit-boxen så ska jag kunna trycka ENTER på tangentbordet och den ska "emulera" att du klickar på knappen bredvid som för dig till den länken. Så man liksom inte behöver använda musen för varje URL byte.

Dessutom; jag vill ha forward- och back-knappar precis som på internet explorer hjälp mig snälla!!

[VanDamage]

En grej till; hur gör man ett statusfält där nere som på Internet Explorer, där det visar hur mycket av sidan som laddats osv.

[Johan Siwer]

svar1:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ord(key)=13 then KlickaPåKnappenProceduren(sender);

end;

 

[B Wisser]

När jag använder OnKeyDown för Enter-knappen får jag ett irriterande Windows-Pling. Därför använder jag istället OnKeyPress:

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then MinProcedure;

Key:=#0;

end;