ďťż

Ładny brzuch

Witam... :P

Mam sobie taki kodzik w przycisku button:
ListBox2.Items.Add(Edit1.text); ListBox2.Items.SaveToFile('historia.txt');

Mam również ustawione, że aby wejść na stronkę wystarczy wcisnąć Enter, tylko, że wtedy.... program nic nie zapamięta :o .

i chciałem dać ten kod powyżej w onkeypress edita ale wtedy zapamiętywał każdą literkę po kolei także to nie zadziała...

Więc proszę o pomoc :D


Aby zrobić historię to po klikniięciu na przejdź niech dodaje Edit1 to ListBoxa. Przy zamykaiu programu możesz tą listę spisać a później to otworzyć. Tak zrobiłem z menu Ulubione.

to może tak: procedura kliknięcia
procedure TForm1.Button1Click(Sender: TObject); begin  ListBox2.Items.Add(Edit1.text);  ListBox2.Items.SaveToFile('historia.txt'); end;
a teraz obsługa Edita1 (tylko sprawdź parametry, piszę z pamięci):
procedure TForm1.Edit1KeyPress(Sender: TObject; Key: Char); begin  if Key = #13 then Button1Click(Self); end;
i masz to, o co chodziło, tzn. lista zapisze się, kiedy naciśniesz Enter w polu Edit1 :)

Petermechanic - ...

Kokoszek, dzięki działa :P

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •