Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.07.2011, 17:01   #1
Painkiller_13
Пользователь
 
Регистрация: 07.07.2011
Сообщений: 58
По умолчанию BorderStyle:BsNone

Как зделать что при выборе BorderStyle:BsNone можно было перетаскивать окно с програмой
Painkiller_13 вне форума Ответить с цитированием
Старый 07.07.2011, 18:26   #2
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Представлены 3 способа
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 07.07.2011, 19:02   #3
Painkiller_13
Пользователь
 
Регистрация: 07.07.2011
Сообщений: 58
По умолчанию

спс
но возникло еще 2 вопроса

1 - 1елемент при создании формы скрытый есть 2 поля вода как можна зделать так что етот первый елемет становился видимый(Visible) когда в первом и втором полях ввода(Edit) что то введено причем только когда в обоих а если в одном из них то нечего не происходило

2 - Как при компиляции файла добавить свою иконку?
Painkiller_13 вне форума Ответить с цитированием
Старый 07.07.2011, 19:16   #4
Leo08
Delphi master
Пользователь
 
Аватар для Leo08
 
Регистрация: 28.05.2011
Сообщений: 96
По умолчанию

1. Ставишь в методах OnChange у edit'ов такие условия:
Код:
If (Edit1.Text='Text1') and (Edit2.Text='Text2') then
Button1.Visible:=True
else
Button1.Visible:=False;
end;
Если просто нужна проверкана непустые поля ввода, то вот:
Код:
If not((Trim(Edit1.Text)='') and (Trim(Edit2.Text)='Text2')) then
Button1.Visible:=True
else
Button1.Visible:=False;
end;
2. Через любой редактор ресурсов, например Restorator или ResHacker в файл ресурсов (Project1.res) проекта вставьте иконку. И в тексте проекта (Project1.dpr) вместо {$R *.res} напишите {$R project1.res}.
БЯЯЯГГАААААА
Leo08 вне форума Ответить с цитированием
Старый 07.07.2011, 19:53   #5
Painkiller_13
Пользователь
 
Регистрация: 07.07.2011
Сообщений: 58
По умолчанию

Цитата:
Сообщение от Leo08 Посмотреть сообщение
1. Ставишь в методах OnChange у edit'ов такие условия:
Код:
If (Edit1.Text='Text1') and (Edit2.Text='Text2') then
Button1.Visible:=True
else
Button1.Visible:=False;
end;
Если просто нужна проверкана непустые поля ввода, то вот:
Код:
If not((Trim(Edit1.Text)='') and (Trim(Edit2.Text)='Text2')) then
Button1.Visible:=True
else
Button1.Visible:=False;
end;
да нужна проверка на непустрые поля ввода но твой код(второй) проверяет что если поля пустие ну или как ты написал первое поле пустое а во втором текст 'Text2' а влюбом другом случае кнопка видна
Если вместо 'Text2' вставить пустие скобки то когда поля пустие кнопки нет а в другом случае кнопка есть то есть если вести любой символ в одно из двух полей кнопка уже будет видна а нужно чтоб кнопка была видна когда введенно и в первом поле ввода и во втором а не в одном из них.
Painkiller_13 вне форума Ответить с цитированием
Старый 07.07.2011, 20:13   #6
Leo08
Delphi master
Пользователь
 
Аватар для Leo08
 
Регистрация: 28.05.2011
Сообщений: 96
По умолчанию

Сорь ошибся, просто напиши так:
Код:
If not ((Trim(Edit1.Text)='') or (Trim(Edit2.Text)='')) then
Button1.Visible:=True
else
Button1.Visible:=False;
end;
БЯЯЯГГАААААА
Leo08 вне форума Ответить с цитированием
Старый 07.07.2011, 20:19   #7
Painkiller_13
Пользователь
 
Регистрация: 07.07.2011
Сообщений: 58
По умолчанию

спс тему можно закрывать
Painkiller_13 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Borderstyle - BsNone. Странный баг... MyLastHit Общие вопросы Delphi 2 21.12.2010 18:42
изменение размера формы (bsNone) Sowa Общие вопросы Delphi 7 07.02.2010 09:11
[Delphi] border style="bsnone" Рамик Помощь студентам 2 09.07.2009 23:21
Перетаскивание формы при BorderStyle := bsNone lexaltd Общие вопросы Delphi 3 25.03.2009 14:57
Ошибка в коде (BorderStyle) Airou Общие вопросы Delphi 10 24.05.2008 19:50