Delphi-kalkulačka

Filips · Napísal **Filips**: 10.01.2013 16:01 | Delphi-kalkulačka

Čaute robím na kalkulačke do školy. V podstate ju mám hotovú ale chcel by som vedieť ešte pár vecí ktoré sme zatiaľ nebrali. Momentálne musím všetky tlačidlá stlačiť mišou keď chcem aby fungovali lenže chcem aby reagovali aj na klávesnicu. Napríklad že keď stlačím na klávesnici + tak to stlačí príslušné tlačidlo. ďakujem za pomoc

BX · Napísal BX: 10.01.2013 16:51 | Delphi-kalkulačka

pozri si udalosti, ktore reaguju na keypress a obsluz to tam

Filips · Napísal autor témy **Filips**: 10.01.2013 17:43 | Delphi-kalkulačka

Najväčší problém je že mi nejde delphi help mám windows 7 64bit. V object inspectore som si našiel OnKeyDown lenže neviem čo ďalej

BX · Napísal BX: 10.01.2013 18:15 | Delphi-kalkulačka

Veď to generuješ priamo z designera. Už neviem presne ako to tam bolo, ale v rovnakom okne, kde sú vlastnosti prvku, by mala byť záložka aj na eventy, ktoré tomu prvku dokážeš dať.
(ani neviem, v čom to robíš, ale malo by to byť jedno)

Filips · Napísal autor témy **Filips**: 10.01.2013 18:26 | Delphi-kalkulačka

Robím to v Delphi 7. Veď ono mi to vytvori proceduru OnkeyDown lenže potrebujem príkaz na priradenie ku klávesu aby to fungovalo

BX · Napísal BX: 10.01.2013 18:33 | Delphi-kalkulačka

Vygeneruje ti to takúto metódu, však?

Kód:

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

No a v premennej Key (typu Word, takže 4 byte číslo) máš klávesu. Buď sú to ASCII hodnoty, alebo sa riaď touto tabulkou http://delphi.about.com/od/objectpascalide/l/blvkc.htm

Filips · Napísal autor témy **Filips**: 10.01.2013 18:42 | Delphi-kalkulačka

Už mi to ide lenže teraz mám všetko na procedúrach TForm1.Button1Click(Sender: TObject); dá sa nejako odkázať na tieto procedúry aby som nemusel ich obsah kopírovať na novo vytvorené TForm1.FormKeyDown ??

BX · Napísal BX: 10.01.2013 19:55 | Delphi-kalkulačka

Samozrejme. Stačí si urobiť osobitnú metódu/metódy a v udalostiach zavolať len túto jednu. A v nej sa postarať o všetko.

Filips · Napísal autor témy **Filips**: 10.01.2013 20:08 | Delphi-kalkulačka

Problém je že neviem ako to mám urobiť s týmto som ešte nepracoval

BX · Napísal BX: 10.01.2013 20:15 | Delphi-kalkulačka

Úplne rovnako, ako sú deklarované tie udalosti, deklaruj aj nejakú svoju vlastnú metódu. A potom ju aj implementuj.
Nepamätám si už, ako to v delphi je, skúšaj podľa vzoru tých, ktoré tam máš.

Filips · Napísal autor témy **Filips**: 11.01.2013 14:57 | Delphi-kalkulačka

Neviem prísť nato ako odkázať na TForm1.Button1Click(Sender: TObject) lebo mi zatiaľ nešlo nič. Skúsite mi niečo poradiť

BX · Napísal BX: 11.01.2013 15:13 | Delphi-kalkulačka

Nemusíš sa na ňu odkazovať. Urob si vlastnú (trebárs MyButton1Click) a tú volaj z udalosti a odkiaľ chceš. On ten sender tam aj tak nič nerobí, nie?

F3RY · Napísal **F3RY**: 11.01.2013 16:58 | Delphi-kalkulačka

Filips píše:

Neviem prísť nato ako odkázať na TForm1.Button1Click(Sender: TObject) lebo mi zatiaľ nešlo nič. Skúsite mi niečo poradiť

Kód:

Button1.click;

Filips · Napísal autor témy **Filips**: 11.01.2013 18:36 | Delphi-kalkulačka

Mám to takto lenže nič to nespraví. Po stlačení 1 by sa mala vykonať procedura button13 ale nikdy sa to nevykoná. S týmto som ešte nepracoval a potreboval by som pomôcť.

Kód:

procedure TForm1.Button13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 61 then
button13.Click;
end;

BX · Napísal BX: 11.01.2013 18:40 | Delphi-kalkulačka

Už miešaš dve veci do kopy. To čo písal F3RY si nevšímaj (Tak by si volal udalosť. Na to kašli.)
Zavolaj if key = 61 then button13;
(ak teda button13 je procedúra vytvorená tebou, čo predpokladám je)

Či už som z toho úplne zblblý? Pošli radšej celý projekt (ako .zip, napr), pozrieme sa na to.

Filips · Napísal autor témy **Filips**: 12.01.2013 23:06 | Delphi-kalkulačka

Problém je že to nereaguje na to if key =61 then ... dal som tam jednoduchy prikaz a nič. proste tá podmienka nebola splnená nereaguje to na stlačenie toho tlačidla. Už fakt neviem čo s tým.

BX · Napísal BX: 13.01.2013 8:28 | Delphi-kalkulačka

Daj si na začiatok udalosti nejaký messagebox, alebo debug výpis, či ti ju vôbec zavolá. Ak áno, vyskúšaj viac podmienok (rôzne znaky) a postláčaj všetky klávesy, či sa niečo chytí. Potom sa ti bude ľahšie hľadať problém.

expoox · Napísal **expoox**: 02.03.2013 10:18 | Delphi-kalkulačka

pisem sice v lazaruse a nie v delphi ale malo by tobyt to iste

Filips píše:

Mám to takto lenže nič to nespraví. Po stlačení 1 by sa mala vykonať procedura button13 ale nikdy sa to nevykoná. S týmto som ešte nepracoval a potreboval by som pomôcť.

Kód:

procedure TForm1.Button13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 61 then
button13.Click;
end;

problem asi bude ten ze 61 nieje ascii kod 1 ale "=" (cisla su 48-57), za druhe preco mas keydown na buttone ? ved tu uz mozes potom rovno klikat, daj ho na form... za dalsie, idealne je OnKeyPress nie KeyDown... za dalsie ked porovnavas ascii hodnotu nemozes dat key=61 ale key = #61

Kód:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
   if key = #49 then
     button13.click;
end; 

ked pojdes viac cisel, co tipujem ze ano tak pouzi case... a ked ti taky cas nieco nejde tak presne ako pise BX , testuj vsetko cim si si nie isty napr showmessage