Запрет нажатия левой кнопки мыши на кнопке (C++ Builder 6)

@Chelybey · Регистрация: 27.01.2016

Студворк — интернет-сервис помощи студентам

Нужно реализовать блокировку нажатия для левой кнопки мыши(если это возможно).
Кроме:

C++
1
if(Button == mbLeft) return;

ничего не знаю, да и он не работает.

@gunslinger · 13.03.2016, 18:49

Зачем вообще тогда кнопка нужна?

@Chelybey · 13.03.2016, 20:12 **[ТС]**

gunslinger,
Если нет желания помочь, то зачем вообще писать сюда?
Запрет нужен после клика правой кнопкой мыши,(САПЕР КОРОЧЕ).

@gunslinger · 14.03.2016, 01:24

А чтобы не было глупых вопросов, нужно сразу максимально подробно проблему обозначать.
Версия сапера на семерке позволяет нажимать ЛКМ после установки метки.
В любом случае, лучше сделать так, чтобы при нажатии ЛКМ на кнопке с меткой просто ничего не происходило (кроме только визуального нажатия) и ячейка не открывалась.
Выкладывание кода также сокращает кол-во общих слов при ответе и позволяет поместить больше "конкретики" в пост.

@Chelybey · 14.03.2016, 13:45 **[ТС]**

gunslinger, Просто подскажите направление в котором капать, и ссылки на подобные темы(если есть).
Наверняка я не первый кто обращается по такому вопросу.

@nick42 · 14.03.2016, 13:55

Сообщение от Chelybey

ссылки на подобные темы

даже вынесены в начало рубрики: Классы-перехватчики (interceptor classes)

@dstar · 14.03.2016, 23:15

nick42, обязательно классы-перехватчики? можно проще

Chelybey,

На TApplication можно повесить событие в котором проверять проходящие через приложение сообщения.

C++
1
void __fastcall (__closure *TMessageEvent)(tagMSG &Msg, bool &Handled);

Если встретите WM_LBUTTONDOWN - просто блокируйте его изменяя значение переменной Handled
вот обработчик этого события на Delphi. Это чтобы было проще понять логику ее работы

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function TApplication.ProcessMessage(var Msg: TMsg): Boolean;
var
  Handled: Boolean;
begin
  Result := False;
  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then
  begin
    Result := True;
    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);
      if not IsHintMsg(Msg) and not Handled and not IsMDIMsg(Msg) and
        not IsKeyMsg(Msg) and not IsDlgMsg(Msg) then
      begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
    end
    else
      FTerminate := True;
  end;
end;

@volvo · 14.03.2016, 23:25

Зачем это все? Нажал пользователь правой кнопкой - toggle обработчика:

C++
1
2
3
4
5
6
7
8
9
10
11
void __fastcall TForm1::myMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
    if(Button == mbRight)
    {
        TButton *btn = static_cast<TButton*>(Sender);
        // тут же можно на кнопке поменять картинку заодно
        if(btn->OnClick) btn->OnClick = 0;
        else btn->OnClick = myClick; //  - общий для всех обработчик нажатия на кнопку, ибо они там все под копирку
    }
}

@nick42 · 14.03.2016, 23:37

Не проверял, но, боюсь, смена обработчика не поможет, кнопка зримо все равно будет "нажиматься". А это, мне кажется, как раз и не нужно. Перехват этого сообщения (нажатия) мне кажется более действенным. (А там анализ внутри: если тэг > 1000 - была отметка правой кнопкой -, то никакого действия; иначе - как обычно).

@Chelybey · 14.03.2016, 23:51 **[ТС]**

И ещё можно 1 вопрос, только он не по этой теме?.
имеется 6 Label, всё надо записать в 1 файл.
Label`s получают значения следующим образом.

C++
1
2
3
4
5
6
switch (Form4->Tag)
{
        case 1: Label7->Caption = Form4->Edit1->Text; Label4->Caption = Form2->StaticText1->Caption + " сек."; break;
        case 2: Label8->Caption = Form4->Edit1->Text; Label5->Caption = Form2->StaticText1->Caption + " сек."; break;
        case 3: Label9->Caption = Form4->Edit1->Text; Label6->Caption = Form2->StaticText1->Caption + " сек."; break;
}

теперь надо всё это записать и прочитать, при закрытии и открытии формы соответственно.
нашёл:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
FILE *fp=fopen("yourfile","w");
N=10;
TLabel *Labels=new TLabel[N];
/*
Загоняешь их в массивъ
*/
....
for (int i=0;i<N;i++)
{
fputs(fp,Labels->Caption.c_str());
}
delete [] Labels;
fclose(fp)

но до конца не разобраться.

@dstar · 14.03.2016, 23:54

Сообщение от Chelybey

теперь надо всё это записать и прочитать, при закрытии и открытии формы соответственно.

Посмотри в сторону TIniFile

@Chelybey · 15.03.2016, 19:25 **[ТС]**

Сообщение от dstar

Посмотри в сторону TIniFile

TIniFile, просто вещь, то что надо. Разобраться было не сложно, хоть и пользуюсь этим методом впервые.

P.S. спс всем кто помогал.

@Chelybey · 15.03.2016, 22:48 **[ТС]**

И снова появилась проблема, в полях размером в 8х8 и 16х16, всё нормально, а вот в 16х30 ошибка, как я понял ошибка ссылается на несуществующий объект. Ошибка происходит только в закоментированном коде.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 int h;
        if(Button == mbLeft)
        {
                for(int i=0;i<O;i++)
                for(int j=0;j<U;j++)
                {
                       if(But[j][i]->Down == true)
                        {       t = t+1; }
 
                                if(But[j][i]->Tag !=1)
                                {
                                        h = 0;
                                        if( But[j-1][i-1])
                                     //           if(But[j-1][i-1]->Tag ==1) h++;
                                        if( But[j-1][i])
                                   //             if(But[j-1][i]->Tag   ==1) h++;
                                        if( But[j-1][i+1])
                                  //              if(But[j-1][i+1]->Tag ==1) h++;
                                        if( But[j][i-1])
                                                if(But[j][i-1]->Tag   ==1) h++;
                                        if( But[j][i+1])
                                                if(But[j][i+1]->Tag   ==1) h++;
                                        if( But[j+1][i-1])
                                                if(But[j+1][i-1]->Tag ==1) h++;
                                        if( But[j+1][i])
                                                if(But[j+1][i]->Tag   ==1) h++;
                                        if( But[j+1][i+1])
                                                if(But[j+1][i+1]->Tag ==1) h++;
 
                                        if(((TSpeedButton *)Sender)->Name == But[j][i]->Name)
                                        {
                                                if((h == 0)||(((TSpeedButton *)Sender)->Spacing == 2))
                                                        ((TSpeedButton *)Sender)->Caption = "";
                                                else
                                                {
                                                        switch(h)
                                                        {
                                                                case 1: ((TSpeedButton *)Sender)->Font->Color = clHotLight; break;
                                                                case 2: ((TSpeedButton *)Sender)->Font->Color = clGreen; break;
                                                                case 3: ((TSpeedButton *)Sender)->Font->Color = clRed; break;
                                                                case 4: ((TSpeedButton *)Sender)->Font->Color = clBlue; break;
                                                                case 5: ((TSpeedButton *)Sender)->Font->Color = clMaroon; break;
                                                                case 6: ((TSpeedButton *)Sender)->Font->Color = clTeal; break;
                                                                case 7: ((TSpeedButton *)Sender)->Font->Color = clPurple; break;
                                                                case 8: ((TSpeedButton *)Sender)->Font->Color = clBlack; break;
                                                        }
                                                        ((TSpeedButton *)Sender)->Caption = h;
                                                }
                                        }
 
                        }
                }
         }

@Chelybey · 16.03.2016, 00:25 **[ТС]**

Так же будет ошибка и в полях 8х8 и 16х16 если убрать строки 13, 15, 17, 19, 21, 23, 25, 27.

@_Dimon_ · 16.03.2016, 12:27

Chelybey, при первом проходе цикла i==0 и j==0
But[j-1][i-1] не имеет смысла.

В логику функции не вникал, но тут либо начинать цикл с 1, либо проверять i и j на ноль.

@volvo · 16.03.2016, 12:32

Перед попыткой обращения к элементу массива, неплохо было бы всегда проверять, не вылетают ли индексы за его пределы (и не только при i == 0 и j == 0, при i == O-1 попытка обратиться к ...[i+1] тоже может окончиться плачевно)

@_Dimon_ · 16.03.2016, 12:36

Не по теме:

volvo, как ты в квадратную рамку выделяешь текст? :sorry:

@volvo · 16.03.2016, 12:41

Не по теме:

Для этого тег INLINE придумали :)

@Chelybey · 16.03.2016, 13:42 **[ТС]**

Сообщение от volvo

Перед попыткой обращения к элементу массива, неплохо было бы всегда проверять, не вылетают ли индексы за его пределы (и не только при i == 0 и j == 0, при i == O-1 попытка обратиться к ...[i+1] тоже может окончиться плачевно)

Да проверка идёт. в строках 13, 15, 17, 19, 21, 23, 25, 27. но что-то всё равно не то. Буду проверять массив.

@volvo · 16.03.2016, 13:51

Сообщение от Chelybey

Да проверка идёт

Не та проверка там идет. Ты проверяешь, есть ли работоспособный объект в ячейке. Но если индексы выходят за границы массива, то уже при попытке обратиться к этой ячейке (а не проверить ее содержимое) будет проблема (а если включен CodeGuard - то и вылет). Делать нужно как-то так:

C++
1
2
if(j > 1 && i > 1 && But[j-1][i-1]) // сначала проверяем, что ячейка вообще существуют, потом - что в ней не NULL
// if(But[j-1][i-1]->Tag ==1) h++; // а тут уже спокойно обращаемся к полю объекта

Там, где используется "+", нужно сравнивать с верхней границей массива:

C++
1
2
if(i < O-1 && But[j][i+1]) // если i будет равен O-1, то But[j][i+1] эквивалентно But[j][O], а это вылет за границу массива
  if(But[j][i+1]->Tag   ==1) h++;

Идея понятна?

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	13.03.2016, 18:49
	Зачем вообще тогда кнопка нужна? 0

@Chelybey 1 / 1 / 0 Регистрация: 27.01.2016 Сообщений: 45
	13.03.2016, 20:12 [ТС]
	gunslinger, Если нет желания помочь, то зачем вообще писать сюда? Запрет нужен после клика правой кнопкой мыши,(САПЕР КОРОЧЕ). 0

@gunslinger place status here 3190 / 2227 / 640 Регистрация: 20.07.2013 Сообщений: 6,023
	14.03.2016, 01:24
	А чтобы не было глупых вопросов, нужно сразу максимально подробно проблему обозначать. Версия сапера на семерке позволяет нажимать ЛКМ после установки метки. В любом случае, лучше сделать так, чтобы при нажатии ЛКМ на кнопке с меткой просто ничего не происходило (кроме только визуального нажатия) и ячейка не открывалась. Выкладывание кода также сокращает кол-во общих слов при ответе и позволяет поместить больше "конкретики" в пост. 0

@Chelybey 1 / 1 / 0 Регистрация: 27.01.2016 Сообщений: 45
	14.03.2016, 13:45 [ТС]
	gunslinger, Просто подскажите направление в котором капать, и ссылки на подобные темы(если есть). Наверняка я не первый кто обращается по такому вопросу. 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.03.2016, 23:37
	Не проверял, но, боюсь, смена обработчика не поможет, кнопка зримо все равно будет "нажиматься". А это, мне кажется, как раз и не нужно. Перехват этого сообщения (нажатия) мне кажется более действенным. (А там анализ внутри: если тэг > 1000 - была отметка правой кнопкой -, то никакого действия; иначе - как обычно). 0

@Chelybey 1 / 1 / 0 Регистрация: 27.01.2016 Сообщений: 45
	16.03.2016, 00:25 [ТС]
	Так же будет ошибка и в полях 8х8 и 16х16 если убрать строки 13, 15, 17, 19, 21, 23, 25, 27. 0

@_Dimon_ 1408 / 572 / 127 Регистрация: 31.10.2011 Сообщений: 1,960
	16.03.2016, 12:27
	Chelybey, при первом проходе цикла i==0 и j==0 But[j-1][i-1] не имеет смысла. В логику функции не вникал, но тут либо начинать цикл с 1, либо проверять i и j на ноль. 0

@volvo Супер-модератор 33405 / 21515 / 8236 Регистрация: 22.10.2011 Сообщений: 36,917 Записей в блоге: 12
	16.03.2016, 12:32
	Перед попыткой обращения к элементу массива, неплохо было бы `всегда` проверять, не вылетают ли индексы за его пределы (и не только при i == 0 и j == 0, при i == O-1 попытка обратиться к ...[i+1] тоже может окончиться плачевно) 0

@_Dimon_
	16.03.2016, 12:36
	Не по теме: volvo, как ты в квадратную рамку выделяешь текст? :sorry: 0

@volvo
	16.03.2016, 12:41
	Не по теме: Для этого тег INLINE придумали :) 0