Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
18 / 34 / 2
Регистрация: 28.01.2012
Сообщений: 181

Непонятные телодвижения с ShowMessage и Label

18.02.2012, 22:50. Показов 945. Ответов 0
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Программа опрашивает периодически (с помощью таймера) на компьютере "есть ли подключенные USB"?
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
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
char drv[10];
bool bHave;
UINT dt;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 
  for (drv[0] = TEXT('C'); drv[0] <= TEXT('Z'); drv[0]++)
        {
        drv[1] = TEXT(':');
        dt = GetDriveType(drv);
        if (dt == DRIVE_REMOVABLE)
        {bHave = TRUE; break;}
        else bHave = FALSE;
        }
  if (bHave==true)
        {
        //ShowMessage("USB обнаружено");
        Label1->Caption="USB обнаружено";
        }
  //else ShowMessage("USB не обнаружено");
  Label1->Caption="USB не обнаружено";
}
когда я результат вывожу на Label, то флешку вообще не видит. А когда с помощью ShowMessage, то программа нормально функционирует:
C++
1
2
3
4
5
6
7
if (bHave==true)
        {
        ShowMessage("USB обнаружено");
        //Label1->Caption="USB обнаружено";
        }
  else ShowMessage("USB не обнаружено");
  //Label1->Caption="USB не обнаружено";
кто может сказать в чем загвоздка?

Добавлено через 15 минут
Цитата Сообщение от Dondok Посмотреть сообщение
else ShowMessage("USB не обнаружено");
* //Label1->Caption="USB не обнаружено";
все, вопросов больше не имею
забыл фигурные скобки поставить:
C++
1
2
3
else 
{ShowMessage("USB не обнаружено");
  //Label1->Caption="USB не обнаружено";}
Тогда Label работает нормально
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.02.2012, 22:50
Ответы с готовыми решениями:

Label вместо ShowMessage
Короче говоря, нужно, что бы данные переводились текстово в label, а не открывались в ShowMessage. Я думал. долго думал, думал, думал... и...

ProgressBar. Отображение % выполнения на label - как сделать фон label прозрачным?
Есть прогрессбар, есть лэйбл, на котором отображается ход выполнения. Лэйбл помещена на прогрессбар. Нужно, чтобы надпись была с прозрачным...

Обьект Label(сумма своих денег+заработанные= вывести в Label)
здравствуйте скажите пожалуйста: у меня стоит timer хочу чтобы он прибавлял в label число и суммировал вот например в labele уже...

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.02.2012, 22:50
Помогаю со студенческими работами здесь

Не срабатывает Label _Click при программном создании Label на UserForm
Всем доброго времени суток! После программного создания Label: With UserForm7.Controls.Add(bstrProgID:=&quot;Forms.Label.1&quot;,...

Записать в Label на второй форме контент Label, находящейся на первой
На форме один скажем, находится Лабел1, как сделать так, что находится (название) в этом Лабел ,отображалось на другой форме в другой...

Как вставить текст в label на середине, то есть на центре label?
Здравствуйте. Как вставить текст в label на середине, то есть на центре label?

ShowMessage
Подскажите пожалуйста в Delphi такая ситуация ругается на сообщение ShowMessage? прочитала в книжке что нужно подключить модуль Dialogs...

Showmessage
Есть ли процедура типа Showmessage, но с checkbox-ом? Добавлено через 1 минуту Вариант с собственной формой не подходит


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru