Prechod po editoch – Delphi – Fórum – Programujte.com

Rozšířené hledání ›

Nejnovější témata ve fóru

22:06, Startupy Megastroj.cz – Vše na jednom místě: půjčovna, bazar a inze…

21:17, Inzerce FPGA vývojová deska XILINX VIRTEX 5 ML507

20:59, OS - GNU / Linux Ubuntu a OpenSuse

21:47, Offtopic Digitalizace v Česku

10:10, Cinema 4D Export USDC do DaVinci Resolve

16:58, Photoshop Jak odstranit (potlačit) odlesky

Stavba Laser Arény
Laser Game Brno

Prechod po editoch

Mario 0

Duch

1. 6. 2006 #1

Zdravim, ako docielim to ze ked v Edite1 stlacim ENTER, prejde kurzor do Editu2? Zaujimave ze som sa s tym nikdy nestretol...{zeby nieco s events?}

Nahlásit jako SPAM

IP: ...–

Jan ?kr??ek

~ Redaktor

Boss

Kultivátor příspěvků ve starém fóru – 2.02 % z celku

22. 8. 2006 #2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 13 then edit2.SetFocus;
end;

Nahlásit jako SPAM

IP: ...–

http://jan.skrasek.com – @hrachcz – webdeveloper

Mario 0

Duch

26. 8. 2006 #3

Vdaka !

uz som zohnal toto:
na EDIT na udalost OnKeyPress zaves tento kod:

IF Key=Chr(13) THEN Form1.ActiveControl:=Form1.FindNextControl((Sender as TEdit), true, true, true);

ale zda sa mi zlozitejsi ako tvoj,i ked funkcne su oba.

Nahlásit jako SPAM

IP: ...–

GeorgeW 0

Newbie

15. 11. 2006 #4

if key = 13 then edit2.SetFocus;:ms_0070:
bacha na focus pokud neni visible tak to zhuci chybou

if key = 13 then if Edit2.Visible then Edit2.SetFocus

praktictejsi je ten druhej kod

Nahlásit jako SPAM

IP: ...–

← Zpět na seznam vláken ← Zpět do Fóra