Есть текстовое поле, и там надо вбивать строго в латинице.
Переключение языка поставил по входу.
Можно ли организавать ограничение на переключение языка пока находишся в пределах этого поля. сп.
My Visual Database → Posts by vit007
Есть текстовое поле, и там надо вбивать строго в латинице.
Переключение языка поставил по входу.
Можно ли организавать ограничение на переключение языка пока находишся в пределах этого поля. сп.
Нашел косяк, опять не все перенес вот проблема была... все сп.
P.S. Ну это когда времени завались и основная деятельность это программирование, т.е. крутишся в одной стихии. А когда занимаешься аналогом, то каждый раз вправлять мозги бывает очешь утомительно....
Как выдернуть значение отсюда
url:='https://sms.ru/my/balance';
smsquestion:=createoleobject('WinHttp.WinHttpRequest.5.1');
smsquestion.open('POST', url, true);
smsquestion.SetRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
smsquestion.send('api_id='+SMSAPI_ID+'&json=1');
//smsAn:= 'SMS.RU';
//smsTimer:=Ttimer.create(Form1);
//smsTimer.Enabled:=True;
//smsTimer.Interval:=1000;
//smsTimer.OnTimer:=@smsAnswer;
JSONObject:=TJSONObject(TJSONObject.ParseJSONValue(smsquestion.responsetext));
JSONString := TJSONString(JSONObject.GetPairByName('balance').JsonValue);
form1.Edit6.Text := JSONString;
А вот объясните, как прихотят уведомления в обратку... ?
Вроде заработало, просто не мгновенно пришло.
sibprogsistem, Посмотрел, Ваш проект по СМС, и некак не получается отправить, все время пишет "нет соединения"...
У меня насильно все переобновляется от греха, Да и Дмитрий давал пример где редактирование в самом комбике насильно обновляло все содержимое...
т.е. так?
begin
@frmNote_Button20_OnClick;
end;
Сущ. способ повторно запустить процедуру в скрипте, без открытия и закрытия формы?
Тут надо делать условие в скрипте, на событие onchange, а там уже делать все что угодно.
Обнаружил, что нарушен порядок всплывающих окон. Когда производишь поиск по скрипту и он оканчивается (т.е. совпадения кончились), выдается сообщение об окончании поиска. Так вот, это сообщение должно быть поверх формы поиска, а не под ней. Вообще это форма, скорее всего с функцией поверх всего, т.к. если развернуть другую прогу, то эта форма будет поверх и ее (др. программы).
Увы, adiziktdy, речь не об этом. Надо, по красоте, чтоб курсор менялся дважды. т,е. на часте combox, где вводится текс оставался курсор ввода текста, а при его переводе на стрелочку combox - менялся на что-то другое. Поэтому припилить в свойствах combox возможность выбирать разные указатели для разных его частей.
А можно добавить дополнительный параметр константу для combox для отоброжения курсора?
Т.е. когда выбираешь стиль csDropDown, хотелось бы чтоб при наведении мышки на стрелочку combox была стрелочка мышки или руки, а не ввода текста.
звука нет по коду
MessageBeep(1); //Звуковой сигнал
Если точнее, то в наушниках можно услышать щелчок, как от статики, но не всегда...
Странно через Hdmi есть, а в наушниках нет, дрова косячат что ли.
Помог более сложный вариант
procedure frmClient_TableGrid1_OnChange (Sender: TObject);
var
i, c: integer;
begin
c := frmClient.TableGrid1.Columns.Count - 1;
for i := 0 to c do
begin
frmClient.TableGrid1.Columns[i].VerticalAlignment := taAlignTop;
frmClient.TableGrid1.Columns[i].WrapKind := wkWordWrap;
end;
c := frmClient.TableGrid1.RowCount - 1;
for i := 0 to c do frmClient.TableGrid1.BestFitRow(i);
end;
У меня не получилось... Наверно из-за того что у меня идет через sql запрос. может можно туда встроить?
SELECT
client.name
,client.tel
,client.text
,client.gText
,client.id
FROM
client
WHERE
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.name LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.tel LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.text LIKE '{sqlEdit1}%' END) OR
(CASE WHEN '{sqlEdit1}' = '' THEN 1=1 ELSE client.gText LIKE '{sqlEdit1}%' END)
Значит нельзя... Тогда по старинке делаем форму.
Тогда вопрос, как выудить картинки из программы, которые скрываются под MB_ICONINFORMATION и ему подобные...
Подскажите, а можно здесь сделать, чтоб текст из Edit9 был жирный
if IDOK = MessageBox(frmNote.Edit9.Text,'Вопрос',MB_OKCANCEL+MB_ICONINFORMATION) then
Раз в тему с редактированием ячейки никто не написал... Былоб неплохо в ячейку Grid'а добавить возможность переноса содержимого на словам с автоматическим расширением ячейки, как в Exel с включенной этой ф-цией.
Хотелось бы в Grid авто перенос по словам и автоматическим расширением по содержимому.
Было б неплохо выбирать цвет заголовка в Grid. А то в 10 все сливается. Можно выбрать стиль Vista, но там не прикольно выглядит фильтрация по содержанию столбца (треугольничек лучше).
Не спасает, т.е. bsSingle не рисует рамку, наверно потому что использую EnableVisualStyle := False,
т.к. в 10ке нелепо смотрится Grid. Остается Panel подрисовать снизу.
ReadOnly -> True не дает должного эффекта, как меняется ширина столбцов так и меняется...
Да, а еще, как можно запретить изменять ширину столбцов. А то прога, иногда подглючивает, и вместо курсора мыши показывает значек изменения ширины столбцов...
Вроде настроек не крутил а вид без рамки, подскажите, как вернуть рамку...
My Visual Database → Posts by vit007
Powered by PunBB, supported by Informer Technologies, Inc.
Theme Hydrogen by Kushi