Есть фраза на обязательное поле: "Данное поле обязательно для заполнения" Вот его можно изменить, и добавить звуковой сигнал.

сп., вроде, заработало...

Не-е, там только параметры и свойства настройки... это все понятно... Мне надо понять, как правильно условие if прописать, чтоб обе кнопки выполняли действие... Уже как-то создавал тему, где непонятно было с тремя кнопками... Или идти по пути создании формы с кнопками...

как его заставить обрабвтывать противоположное действие, т.е.

if IDNO = MessageBox

работает на отрицание при нажатии на "Нет", а вот "Да" как правильно прописать... Почему-то стандартное описание условие с else не работает.

Сп.

Хочу удалить из таблицы записи по определенной записи

var
    cId : string;
begin
    cId:=SQLEXecute('SELECT id FROM request WHERE id='+frmMain.TableGrid1.sqlValue);

    //очистка таблицы
    SQLExecute('DELETE FROM detali WHERE id='+cId);

    //Обновление таблицы
    frmNote.TableGrid2.dbUpdate;   
end;

Так же пытаюсь узнать номер и тоже не выходит...

if SQLExecute('SELECT COUNT(id) FROM detali WHERE id='+cId) = 0  then

дает всегда "0"

Угу, сп.

Отличный пример, сп. derek.

procedure Form1_Button4_OnClick (Sender: TObject; var Cancel: boolean);
var
    i,cR : integer;   
begin
    cR := Form1.TableGrid1.RowCount - 1;
   
    for i := 0 to cR do
    begin
        Form1.Edit1.Text := Form1.TableGrid1.Cell[0,i];
    end;   
end;

Так работать не хочет sad

Требуется дернуть значения из таблицы (определенного столбца), по кнопке, и сумму поместить в текстовое поле.

61

(4 replies, posted in FAQ)

А чем обусловлено, что картинка больше 24х24, не может быть, т.е. не отображается?

Ход правильный мыслей, но надо так...

procedure Form1_TableGrid1_OnDoubleClick (Sender: TObject; Action: string);
begin
     if (...  = 'Admin') then 
     begin
          idZapr := Form1.TableGrid1.dbItemID;
          idPlat :=SQLExecute ('SELECT id_plat FROM zapros WHERE zapros.id= '+inttostr(idZapr));
          Form1.Button6.Click;
     end else       
end;

т.е. если учетка админ, то выполнить, обратно, знак <> (не равно)...

63

(4 replies, posted in FAQ)

Из примера не понятно, как картинку загружать

вроде так

ImageList.AddPng(ExtractFilePath(Application.ExeName)+'images\new0.png');

У меня не получилось, либо ничего или черный квадрат.

Не понятно как быть с кнопками на других формах?

Приходится городить из-за виндового масштабирования...

А подскажите, как сделать чтоб стандартные значки кнопок масштабировались. Если внутри проги при 150, они масштабируются, а  отдельно в проекте нет.

Заметил проблем, у меня форма проги создана при масштабе 100, но при переключении 125, она, форма, искажается, т.е.не происходит растягивание внутри проги, а вот при 150 все нормально.

Хотел сделать переход на вкладке ч/з кл. enter...

Масштабирование иконок кнопки.

т.е. какая-то переменная, по которой можно было бы сделать условие...

А есть привязка к масштабу системы, чтоб по нему менять интерфейс программы?

Как в 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)  

и выходе

71

(2 replies, posted in Russian)

Возможно, если у вас есть кн.сохранить, то в свойствах, попробуйте выключить  пункт default.

Подскажите, как убрать выделение числа на DateTimePicker, кроме сегодняшнего...

Вот еще почему-то при сравнение содержимого в текстовых полях ошибка...
1<10 верно
2<10 неверно

а вот
02<10 верно

Получается не по порядку числа идут...

Нужно в PageControl функция OnKeyPress.

Короче через дополнительную форму сделал...