Ĺadny brzuch
Mam taki kod:
procedure TForm1.tfXPButton1Click(Sender: TObject); var tab:TTabSheet; i:integer; begin for i:=0 to Form6.tfXPListBox1.Items.Count-1 do begin if (PageControl1.activepage.Controls[0] as TEdit).Text = Form6.tfXPListBox2.Items.Strings[i] then begin Label2.Caption:='Ok'; end else Label2.Caption:='Błąd'; end; end;
Chce zrobić prównanie nazwy aktywnego TabSheeta z zawartością TEdit w Nim.
Jeśli TabShhet będzie sie nazywałnp. 'witaj' i gdy wpiszę w polu TEdit w tej samej zakładce 'witaj' to na Label2 pokaże się 'Ok' jeśli porównanie zakończyło sie sukcesem a jeśli nie to pokaże się 'Błąd'
PS . Szukałem na forum, torry.net i google.pl ale nie dwiedziałem sie wiele.
if (tabsheet1.caption=edit1.text) then label2.caption:='ok' else showmessage('blad');
i dajesz to w procedurze osobnej, np. buttononclick albo w edit onkeypress, bo do konca nie wiem, kiedy ma sie wykonywac.
To jeszce nie to
ma odszukiwać z aktywnej
a twój kod mówi że z 1 i z edita1
jak ja dynamicznie tworze
Sorryy,,
tu chpodzi o porównywanie TabShhet.Caption z ListBoxem
Dokładnie:
Mam 2 listboxy w pierwszym wpisuje np. 1 a w drugim np. 2.
teraz tworzę zakładkę o caption:=listboxowy1 i ma porównać czy tabsheet.caption (wattość :=1)
równa się TEdit a zarazme czy TEdit = ListBox2
PS. Wszystko musi zostać wykonane na równym pozomie w listboxach np. na 1 czy na 8
Użytkownik Pre'side edytował ten post 22 maj 2006, 20:49
nie qmam z listboxami...
ale to mozesz zrobic tak
if TTabSheet(PageControl1.ActivePage).Caption=ListBox.item[x] ... bo za bardzo nie qmam...
Chyba chodzi o to ;)
procedure TForm1.Button1Click(Sender: TObject); begin if PageControl1.ActivePage.Caption = Edit1.Text then ShowMessage('Taka sama nazwa;') else ShowMessage('Bląd !!!'); end; end.
Użytkownik DEDAL edytował ten post 22 maj 2006, 21:20
Ok dzieki, troche zamulilem.....
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.tfXPButton1Click(Sender: TObject); var tab:TTabSheet; i:integer; begin for i:=0 to Form6.tfXPListBox1.Items.Count-1 do begin if (PageControl1.activepage.Controls[0] as TEdit).Text = Form6.tfXPListBox2.Items.Strings[i] then begin Label2.Caption:='Ok'; end else Label2.Caption:='Błąd'; end; end;
Chce zrobić prównanie nazwy aktywnego TabSheeta z zawartością TEdit w Nim.
Jeśli TabShhet będzie sie nazywałnp. 'witaj' i gdy wpiszę w polu TEdit w tej samej zakładce 'witaj' to na Label2 pokaże się 'Ok' jeśli porównanie zakończyło sie sukcesem a jeśli nie to pokaże się 'Błąd'
PS . Szukałem na forum, torry.net i google.pl ale nie dwiedziałem sie wiele.
if (tabsheet1.caption=edit1.text) then label2.caption:='ok' else showmessage('blad');
i dajesz to w procedurze osobnej, np. buttononclick albo w edit onkeypress, bo do konca nie wiem, kiedy ma sie wykonywac.
To jeszce nie to
ma odszukiwać z aktywnej
a twój kod mówi że z 1 i z edita1
jak ja dynamicznie tworze
Sorryy,,
tu chpodzi o porównywanie TabShhet.Caption z ListBoxem
Dokładnie:
Mam 2 listboxy w pierwszym wpisuje np. 1 a w drugim np. 2.
teraz tworzę zakładkę o caption:=listboxowy1 i ma porównać czy tabsheet.caption (wattość :=1)
równa się TEdit a zarazme czy TEdit = ListBox2
PS. Wszystko musi zostać wykonane na równym pozomie w listboxach np. na 1 czy na 8
Użytkownik Pre'side edytował ten post 22 maj 2006, 20:49
nie qmam z listboxami...
ale to mozesz zrobic tak
if TTabSheet(PageControl1.ActivePage).Caption=ListBox.item[x] ... bo za bardzo nie qmam...
Chyba chodzi o to ;)
procedure TForm1.Button1Click(Sender: TObject); begin if PageControl1.ActivePage.Caption = Edit1.Text then ShowMessage('Taka sama nazwa;') else ShowMessage('Bląd !!!'); end; end.
Użytkownik DEDAL edytował ten post 22 maj 2006, 21:20
Ok dzieki, troche zamulilem.....