1
Ваши вопросы / Re: Объект и все такое
« : 13 Ноября 2025, 17:03:10 »
В теме какой то читал про эту функцию. Ну теперь, после Ваше ответа, точно стоит изучить ее подробнее.
Спасибо!
Спасибо!
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
procedure SelectRoutes(aNameSubPage, aNameTC:String; tblRoutes_U4XXXMXX_XXX:TM_Table);
var
aQuery: string;
aSubPage: TM_Subpage;
begin
aSubPage := pVCU.FindSubpageByName(aNameSubPage);
if aSubPage <> nil then
begin
aQuery := 'SELECT ... FROM ... WHERE TC=' ... ' + QuotedStr(aNameTC);
tblRoutes_U4XXXMXX_XXX.RunSQL(aQuery, tsSaveFixRow);
end else
begin
ShowMessageClient(GetClientName, 'Предупреждение!', 'Выберите ТС.');
Exit;
end;
end;
aSubPage := pVCU.FindSubpageByName(aNameSubPage);
aSubPage := aNameSubPage.FindSubpageByName('pVCU');var
bTC:TM_Button;
txtText:TM_Text;
begin
txtText := GetTemplateObject('Text8022') as TM_Text;
txtText.Text := 'Test';
bTC := GetTemplateObject('tmp_butTC') as TM_Button;
bTC.States[0].Caption := 'TU4' + IntToStr((Sender as TM_Button).Tag);
end.
interface
procedure OpenFileLang(nameFile:string);
implementation
procedure OpenFileLang(nameFile:string);
begin
TextFileOpen(nameFile, '', fomReset, fcpUTF8);
//как бы прописываем все элементы у которых надо перевести подсказки и текст.
Text1.Text := TextFileReadLn;
Text1.Hint := TextFileReadLn;
Text2.Text := TextFileReadLn;
Text2.Hint := TextFileReadLn;
TextFileClose;
end;
end.
begin
if not FileExists('lang_ru.txt', '') then Exit;
if not FileExists('lang_eng.txt', '') then Exit;
if not FileExists('lang_X.txt', '') then Exit;
if Sender is TM_Object then // проверяем, что Sender это объект
with Sender as TM_Object do // приводим Sender к типу "TM_Object"
begin
if bLangNumber.Value = 0 then
OpenFileLang('lang_X.txt');
if bLangNumber.Value = 1 then
OpenFileLang('lang_ru.txt');
if bLangNumber.Value = 2 then
OpenFileLang('lang_eng.txt');
end;
end.
with (Sender as TM_Text) do
shWhereProblem.Visible := True;
if Sender.Text = 'A2.2' then
begin
shWhereProblem.X := 506;
shWhereProblem.Y := 744;
end;