[es] - kako da u comboboxu ostane tekst...

cojaa
pedja paunovic
novi sad

Član broj: 103974
Poruke: 52
*.smin.sezampro.yu.

Profil

^{03.08.2007. u 16:20}

Imam formu sa nekoliko comboboxova. Kako da u event onexit napisem kod (da li moze tako?) da mi pri sledecem unosu podataka ponudi vec ono sto je pre toga uneseno.

^{03.08.2007. u 16:20}

X Files
Vladimir Stefanovic
Pozarevac

SuperModerator
Član broj: 15100
Poruke: 2678
*.dynamic.sbb.co.yu.

Jabber: xfiles@elitesecurity.org
Sajt: www.antivari.com

Profil

Re: kako da u comboboxu ostane tekst...

^{03.08.2007. u 17:45}

Pogledaj ovaj thread (jeste za C++ Builder, ali je uglavno sve VCL), moze ti dati neke ideje:
http://www.elitesecurity.org/t166408-0

Dakle, prvo bi trebalo da razmislis o mehanizmu za smestanje takvih posslednje koriscenih stavki. Mozes snimanjem u neki neobavezan fajl metodama LoadFromFile() i SaveToFile() Items-a TComboBoxa, a mozes i u neki univerzalni INI fajl, zazjedno sa ostalim CONFIG podesavanjima.

FREEWARE
Di rečnik, v1.0.058 (srp-eng/eng-srp priručni rečnik)
http://www.antivari.com

^{03.08.2007. u 17:45}

marinkovic.igor
Igor Marinkovic
Beograd

Član broj: 153133
Poruke: 1
*.cpe.vektor.net.

Profil

Re: kako da u comboboxu ostane tekst...

^{04.08.2007. u 02:00}

Ja bih pokušao ovako:
npr. imaš 2 ComboBox-a koji se zovu ComboBox1 i ComboBox2

//ovo je ono što si hteo
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Items.Add(ComboBox1.Text)
end;
//isto i za ComboBox2
procedure TForm1.ComboBox2Exit(Sender: TObject);
begin
ComboBox2.Items.Add(ComboBox2.Text)
end;
//Čuvanje podataka u txt fajlu (tamo gde ti se nalazi exe fajl)
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName) + '/combo1.txt');
ComboBox2.Items.SaveToFile(ExtractFilePath(Application.ExeName) + '/combo2.txt');
end;
//Čitanje podataka iz txt fajla itd...
procedure TForm1.FormCreate(Sender: TObject);
begin
if FileExists(ExtractFilePath(Application.ExeName) + '/combo1.txt') then
ComboBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + '/combo1.txt');
if FileExists(ExtractFilePath(Application.ExeName) + '/combo2.txt') then
ComboBox2.Items.LoadFromFile(ExtractFilePath(Application.ExeName) + '/combo2.txt');
end;

... takođe možeš da koristiš AutoCloseUp, AutoComplete i AutoDropDown properties-e ComboBox-eva.

^{04.08.2007. u 02:00}

cojaa
pedja paunovic
novi sad

Član broj: 103974
Poruke: 52
*.smin.sezampro.yu.

Profil

Re: kako da u comboboxu ostane tekst...

^{04.08.2007. u 07:35}

To je to. Hvala puno. Mada sam nesto eksperimentisao i sa sledecim kodom

Code:
with sender as tcombobox do
if (text <>'') and (items.IndexOf(text)<0)then
items.Add(text);

u onExit dogadjaju i odradjuje posao. E sad samo da to snimim u fajl...
Jos jednom zahvaljujem na pomoci.

^{04.08.2007. u 07:35}