Topic: Button Next
Hello everyone, how to display a name in a TexBox with a "Next" button.
Bonjour a tous, comment faire pour afficher un nom dans un TexBox avec un bouton "Suivant".
- derek
- Moderator
- Offline
Re: Button Next
Hi Sabine,
Can you either upload an example of what you want to achieve or give more detail - specifically where the 'name' that you want to display in a text box is coming from (another field, a row in a tablegrid)?
Derek.
Re: Button Next
Hello Derek, here is the start of my project. I would like to navigate in the "Fish Names" TexBox with "Next" and "Previous" buttons, can you help me?
Bonjour Derek, voici le début de mon projet. Je voudrais naviguer dans le TexBox "Noms du poisson" avec des boutons "Suivant" et "Précédent", peut-tu m'aider?
Sabine
Post's attachments
Ma pêche.zip 338.16 kb, 131 downloads since 2022-05-06
- sibprogsistem
- Member
- Offline
Re: Button Next
procedure Prises_OnShow (Sender: TObject; Action: string);
begin
Prises.Edit4.Tag := -1;
end;
procedure Prises_bPrev_OnClick (Sender: TObject; var Cancel: boolean);
begin
if ( Prises.Edit4.Tag > 0 ) then
begin
Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag-1;
Prises.Edit4.Tag := Prises.Edit4.Tag-1;
Prises.bEdit.Click;
Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag;
end;
dooleanEnabledButton
end;
procedure Prises_TableGrid1_OnCellClick (Sender: TObject; ACol, ARow: Integer);
begin
Prises.Edit4.Tag := Prises.TableGrid1.SelectedRow;
dooleanEnabledButton;
end;
procedure Prises_bNext_OnClick (Sender: TObject; var Cancel: boolean);
begin
if ( Prises.bNext.Tag < Prises.TableGrid1.RowCount ) then
begin
Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag+1;
Prises.Edit4.Tag := Prises.Edit4.Tag+1;
Prises.bEdit.Click;
Prises.TableGrid1.SelectedRow := Prises.Edit4.Tag;
end;
dooleanEnabledButton
end;
procedure dooleanEnabledButton;
begin
if (Prises.Edit4.Tag+1 < Prises.TableGrid1.RowCount) then Prises.bNext.Enabled := True else Prises.bNext.Enabled := False;
if (Prises.Edit4.Tag+1 > 1) then Prises.bPrev.Enabled := True else Prises.bPrev.Enabled := False;
end;Post's attachments
MaPИche.zip 7.58 kb, 143 downloads since 2022-05-06
Re: Button Next
Thanks to you Sibprogsistem, it works great.
Best wishes.
Sabine
- derek
- Moderator
- Offline
Re: Button Next
Morning Sabine, Sibprogsistem,
Here's a slightly different way of doing it.
Derek.
Post's attachments
Ma pêche2.zip 339.45 kb, 165 downloads since 2022-05-06
Re: Button Next
Thanks Derek, I will see to apply the best way to do it for my program.
Have a good day.
Merci Derek, je vais voir pour appliquer la meilleure façon de faire pour mon programme.
Bonne journée.
Sabine
Re: Button Next
How to add a "CheckBox" to the code.
Post's attachments
CheckBox.jpg 3.37 kb, 63 downloads since 2022-05-10
Re: Button Next
Hi Sabine
Sorry, but we do not understand what you are talking about and most importantly what you are thinking. )))
What do you want to see, what code are you talking about?
10 2022-05-10 13:39:28 (edited by sdpc62 2022-05-10 14:29:39)
Re: Button Next
I talk about the rest of the code on this post "My fishing", I would like to include its ChekBox in my program.
Post's attachments
Ma pêche2.zip 339.73 kb, 131 downloads since 2022-05-10
11 2022-05-10 15:13:59 (edited by sibprogsistem 2022-05-10 15:15:32)
- sibprogsistem
- Member
- Offline
Re: Button Next
if (prises.tablegrid1.SelectedRow) then
SQLExecute('UPDATE Prises SET "'+TdbCheckBox(Sender).dbField+'"="'+TdbCheckBox(Sender).sqlValue+'"WHERE id='+prises.tablegrid1.sqlvalue);
for i := 0 to Prises.ComponentCount-1 do
if (TdbCheckBox(Prises.Components[i]) is TdbCheckBox) then
TdbCheckBox(Prises.Components[i]).Checked := StrToBool(SQLExecute('SELECT IFNULL("'+TdbCheckBox(Prises.Components[i]).dbField+'",0) FROM Prises WHERE id='+prises.tablegrid1.sqlvalue));Parent по чему-то не сработал сделал через is
Post's attachments
MaPИche.zip 8.51 kb, 151 downloads since 2022-05-10
Re: Button Next
Thank you Sibprogsistem, I completed the code and it works great.
thank you