Lazarus-l írt programban hogyan kell megcsinálni, hogy enter lenyomására folytatódjon a program -ne kelljen mindig egy start nyomógombot használni?

Az előzőre visszatérve:

nem én írtam a programot.Volt valaki annyira rendes,hogy írt egyet pascalban.

Aztán valaki megírta Lazarussal is.

Viszont próbálkoztam rájönni erre az indító gombra és amit műveltem ott az el lett mentve és felül írta a többit is (biztonsági másolatot talán amit másoltam).

letöltöttem újból,de nincs benne exe fájlt. Lefuttattam a zöld play gombot,de nem csak üres ablakot ad az exe fájl ha lefuttatom. (tökre szét van rontva a programom már )

Próbálkoztam azzal is,ha rossz választ adok meg akkor a helytelen válasz mellett egy új címke mutassa a jó megoldást és ha helyesen feleltem akkor kitörlődött az előző feladatból a megoldás (egy üres caption használtam oda). Ez működött is,de csak ha sorban haladva módba működött a helyesen. Ha randomban már random szót adott meg megoldásnak. Próbáltam hogy egy longint felveszi a random értékét és azt megjeleníteni helytelen válasz esetén,de nem sikerült. De több fajta képen is próbáltam,hogy jól működjön de nem sikerült.

Sajnos nem tudom most kipróbálni amit belinkeltél,mert tisztára elromlott a program. Ha még meg van neked amit írtál feltudnád tölteni létszíves?

(Mentek a zöld mancsok (Y))

"próbálkoztam azzal is,ha rossz választ adok meg akkor a helytelen válasz mellett egy új címke mutassa a jó megoldást és ha helyesen feleltem akkor kitörlődött az előző feladatból a megoldás (egy üres caption használtam oda). Ez működött is,de csak ha sorban haladva módba működött a helyesen.

Ha randomban már random szót adott meg megoldásnak. Próbáltam hogy egy longint felveszi a random értékét és azt megjeleníteni helytelen válasz esetén,de nem sikerült. De több fajta képen is próbáltam,hogy jól működjön de nem sikerült. "

Valahogy így próbáltam megoldani:

" TRUE: if Adatbazis.Names[rnd] <> EValasz.Text then "

deklaráltam egy pl. sam:longint;

sam:=Adatbazis.Names[rnd];

if sam<>EValasz.Text then

Jó helyen keresgetek...valahogy így kéne? (nem akarom szétrontani ezt a programot is,azért inkább nem probalom elmenteni aztan lefutatni)

megj.:

A program jól megy,nagyon szépen köszönöm!!

Megj.:

Próbálkoztam át írni,megpróbálni a randomban is működjön,hogy kiírja rossz válasz esetén a jó választ.

Valamint azt,ha egy szóra helyesen válaszolok akkor a programban egy skálázó felugrik egyet(Common Controls nál lehet berakni ilyen loading ábra TProggresBar vagy TTrackBar). Ezt az előzökben megtudtam csinálni,de csak az összes szóra vonatkozóan,úgy ha helyes válasznál +1 adok a pedig -1-t a skálához.

Ezt is szeretném,hogy ha arra a bizonyos szóra ha helyesen válaszolok akkor annál menjen fel a skála...új szót dob ki a program nullázodik a skála ...szóval minden egyes szónak lenne egy skálája amit megjegyez a program. Három alkalommal kéne jól válaszolnom a szóra és többet nem adná ki azt a szót,hanem csak olyanokat adna amire még nem válaszoltam háromszor.

Ezt hogyan lehetne megoldani? Ezt a txt fileban kéne a szavak elé egy számot beírni,hogy tudja melyik szónál hányszor válaszoltam jól?

De ez tényleg már csak a legutolsó helyen áll....ennél fontosabb nekem most,hogy ha randomban adok rossz választ akkor is kitegye a jó megoldást-mivel így könnyebben eszembe megy a szó,ha látom mi lett volna a helyes.

Azt esetleg megtudnád mondani,ha mentek valmit a programban és megynitok egy újat akkor abban az a mentés megmarad. Pedig egy zip fájból csomagoltam ki az újat és a programban az open -l kerestem ki az elérési útját ?!

Lehet rosszul mentek:

1. save all

2. ramegyek a zold play gombra