Just nu i M3-nätverket
Jump to content

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


VanDamage

Recommended Posts

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!!

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Johan Siwer

svar1:

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

Shift: TShiftState);

begin

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

end;

 

Link to comment
Share on other sites

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;

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...