Topic: Label по условию?
Привет программсты! Подскажите пожалуйста возможно сделать следующее: В Textbox прописываем любое слово, сохраняем кнопкой и на форме показывает то что сохранили в Label?
- senseyesenseye1983
- Member
- Offline
- vovka3003
- Member
- Offline
Re: Label по условию?
Возможно.
- k245
- Member
- Offline
Re: Label по условию?
vovka3003 wrote:
Возможно.
Подтверждаю: возможно и даже более чем )))
Визуальное программирование: блог и телеграм-канал.
- senseyesenseye1983
- Member
- Offline
Re: Label по условию?
procedure Form1_OnShow (Sender: TObject; Action: string);
begin
if sqlexecute('select count(*) from label') = 0 then sqlexecute('insert into label (cap) values ("default")');
form1.label3.Caption := sqlexecute('select cap from label');
end;
procedure frmLabel_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
sqlexecute('update label set cap = "'+frmlabel.edit1.text+'"');
form1.label3.Caption := sqlexecute('select cap from label');
end;
Все разобрался 
- vovka3003
- Member
- Offline
Re: Label по условию?
vovka3003 wrote:
Возможно.
k245 wrote:
Подтверждаю: возможно и даже более чем )))
senseyesenseye1983 wrote:
Все разобрался
Ну молодцы ж мы..!))
Только вы зачем-то посчитали ноги а затем раздели на 4 и таким образом узнали количество голов в стаде.)
Достаточно было использовать OnChange нужного поля и в этом событии присваивать лейблу Caption.
- senseyesenseye1983
- Member
- Offline
Re: Label по условию?
vovka3003 wrote:
vovka3003 wrote:Возможно.
k245 wrote:Подтверждаю: возможно и даже более чем )))
senseyesenseye1983 wrote:Все разобрался
Ну молодцы ж мы..!))
Только вы зачем-то посчитали ноги а затем раздели на 4 и таким образом узнали количество голов в стаде.)
Достаточно было использовать OnChange нужного поля и в этом событии присваивать лейблу Caption.
Да супер )