Kauhee topic. ;)
Painiskelen taas tän mun txt-editorin kanssa.
Onkelma: pääFormilla on nappi jota klikkaamalla aukeaa xFormi. (tämä homma ok)
xFormilla on pari Edit kenttää johon käyttäjä antaa syötteen (luvun). Tämä pitäisi generoida ok napin painalluksella pääFormille. (TRichEdit)
Kääk, ei tajua vain.. Miten "napataan" syötetty luku pääFormille.. ?
#include "Unit1.h" #include "Unit2.h" //Form2:sen header // ... void __fastcall TForm1::Button1Click(TObject *Sender) { if (Form2->ShowModal() == mrOk) { ShowMessage(Form2->Edit1->Text); } }
Form2:lla on TButton komponentti jonka ModalResult arvo on muutettu mrOk:ksi ja TEdit (Edit1) komponentti jonka arvo saada Form1:seen.
Tota tota. Mä taisin selittää huonosti. Tohon 2 formiin syötetty arvo pitäisi saada tohon pääFormille TRichEdittiin.
Pitäiskö tohon laittaa vielä se RichEdit? Eikö vain? Yritin jotain tällääistä.
void __fastcall TForm2::Button1Click(TObject *Sender) { if (Form2->ShowModal() == mrOk) { ShowMessage(Form2->Edit1->REdit->Text); } }
Niin ja eikös tässä kohden ( ShowMessage(Form2->Edit1->REdit->Text); ) pitäisi olla Form1. ?
Arvannette että ei onnistunut... :(
Form2:n edit-boksiin syötetty arvo löytyy Form2->Edit1->Text kohdasta, tämän voi lisätä RichEdit:iin koodilla:
RichEdit->Lines->Add(Form2->Edit1->Text)
edit: siis tuo lisää edit1:sen tekstin uudeksi riviksi RichEdit:iin
ähh. en saanut toimimaan. tän ei pitäisi olla näin vaikeita.
tein jopa uuden testiproggiksen tota varten, mutta eih.. :(
jos joku viitsisi vilkaista sorsia? plz
täältä löytyy.. http://koti.mbnet.fi/lemoon/
danke
Tälläi sain toimimaan:
//Main.cpp void __fastcall TForm1::Button1Click(TObject *Sender) { if (Form2->ShowModal() == mrOk) { Redit->Lines->Add(Form2->Edit1->Text); } }
Form2:seen ei tarvii mitään koodia, mutta Button1:sen (Form2:sella) ModalResult pitää olla mrOk.
Kiitos. Jotta elämä ei olisi niin helppoa pitää vielä kysyä.
Toihan tulostaa nyt syötteen uudelle riville. Onnistuuko tulostus samaan kohtaan missä kursori on? Testasin SelText:llä, mutta jätti tällöin syötteen tulostamatta. :(
Minulla ainakin toimi SelText:in käyttö:
Redit->SelText = Form2->Edit1->Text;
Aihe on jo aika vanha, joten et voi enää vastata siihen.