Компьютерный форум NoWa.cc Здесь может быть Ваша реклама
Правила Форума
редакция от 22.06.2020
Портал .::2BakSa.WS::.
Вернуться   Компьютерный форум NoWa.cc > В помощь вебмастеру > Программирование > Delphi

Уважаемые пользователи nowa.cc и 2baksa.ws. У нас сложилось тяжёлое финансовое положение. Мы работаем для вас вот уже более 15 лет и сейчас вынуждены просить о помощи. Окажите посильную поддержку проектам. Мы очень надеемся на вас. Реквизиты для переводов ниже.
Webmoney Webmoney WMZ: 826074280762 Webmoney WME: 804621616710
PayPal PayPal_Email E-mail для связи по вопросу помощи
Кошелёк для вашей помощи YooMoney 4100117770549562
YooMoney Спасибо за поддержку!
Ответ
 
Опции темы Опции просмотра Language
Старый 25.04.2007, 22:41   #241
MSeryoga
Неактивный пользователь
 
Пол:Мужской
Регистрация: 12.12.2006
Сообщений: 41
Репутация: 14
По умолчанию Re: Вопросы по Delphi/Pascal

MBZero,
Tquery представляет собой датасет, попробуй сделать что-то типа:
код
Только в while надо менять edit1, edit2 и т.д.
MSeryoga вне форума
 
Ответить с цитированием Вверх
Здесь может быть Ваша реклама
Здесь может быть Ваша реклама


Реклама: дешевая стоматология рядомкомпаунд для галтовки купитьстеллажи с ящикамиВ КНС всегда выгодно ибп PowerCom SRT-3000A LCD - билеты на футбол в подарок каждому покупателюцветы корзины


Старый 26.04.2007, 00:21   #242
kettle
Неактивный пользователь
 
Пол:Женский
Регистрация: 28.02.2005
Сообщений: 23
Репутация: 1
Question Re: Вопросы по Delphi/Pascal

нужно на дельфи написать код так, чтобы случайным образом появлялась одна из двух картинок, висела заданное время и нажималась кнопка, соответствующая этой картинке.. потом эта картинка сменялась другой случайной.. и так раз 100.. потом считается кол-во правильно нажатых кнопок и тех, которые нажать не успели.... и еще, как определять, что курсор пересекает определенный участок монитора или нарисованную линию?
kettle вне форума
 
Ответить с цитированием Вверх
Старый 26.04.2007, 02:01   #243
MSeryoga
Неактивный пользователь
 
Пол:Мужской
Регистрация: 12.12.2006
Сообщений: 41
Репутация: 14
По умолчанию Re: Вопросы по Delphi/Pascal

kettle, используй функцию random. Она генерит случайное число от 0 до 1. Если <0.5 тогда отображается 1 картинка, иначе - вторая. Смену картинок можно производить с помощью таймера... потом я не совсем понял, что надо... Надо определять участок пересечения на всем мониторе или только в окне программы?
MSeryoga вне форума
 
Ответить с цитированием Вверх
Старый 27.04.2007, 21:59   #244
sergiyko
Неактивный пользователь
 
Аватар для sergiyko
 
Пол:Мужской
Регистрация: 10.02.2007
Сообщений: 27
Репутация: 35
По умолчанию Re: Вопросы по Delphi/Pascal

Ochen nado DELPHI5
sergiyko вне форума
 
Ответить с цитированием Вверх
Старый 29.04.2007, 22:44   #245
REAL_XLD
Пользователь
 
Пол:Мужской
Регистрация: 12.03.2006
Сообщений: 54
Репутация: 2
По умолчанию Re: Вопросы по Delphi/Pascal

Подскажите как выплнить процедуру в фоне? На форму должны выводиться данные во время работы поцедуры, и форма не должна висеть.
REAL_XLD вне форума
 
Ответить с цитированием Вверх
Старый 29.04.2007, 23:06   #246
MSeryoga
Неактивный пользователь
 
Пол:Мужской
Регистрация: 12.12.2006
Сообщений: 41
Репутация: 14
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Сообщение от REAL_XLD Посмотреть сообщение
Подскажите как выплнить процедуру в фоне? На форму должны выводиться данные во время работы поцедуры, и форма не должна висеть.

Запустить в отдельном потоке...
MSeryoga вне форума
 
Ответить с цитированием Вверх
Старый 29.04.2007, 23:08   #247
REAL_XLD
Пользователь
 
Пол:Мужской
Регистрация: 12.03.2006
Сообщений: 54
Репутация: 2
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Запустить в отдельном потоке...

2 вопрос. Как?
REAL_XLD вне форума
 
Ответить с цитированием Вверх
Старый 29.04.2007, 23:17   #248
MSeryoga
Неактивный пользователь
 
Пол:Мужской
Регистрация: 12.12.2006
Сообщений: 41
Репутация: 14
По умолчанию Re: Вопросы по Delphi/Pascal

Сначала попробуй добавить в цикл:
Application.ProcessMessages;

Если не поможет, посмотри тут про потоки:
http://articles.org.ru/cfaq/index.ph...mostrecent=yes
или в Google
MSeryoga вне форума
 
Ответить с цитированием Вверх
Старый 29.04.2007, 23:48   #249
REAL_XLD
Пользователь
 
Пол:Мужской
Регистрация: 12.03.2006
Сообщений: 54
Репутация: 2
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Application.ProcessMessages;

Помогает, но тормозит... Хотя с меня наверно пока хватит.

А вот потоки чт-то не пашут... вроде все так сделал.
REAL_XLD вне форума
 
Ответить с цитированием Вверх
Старый 01.05.2007, 19:04   #250
ITiunov
Неактивный пользователь
 
Пол:Мужской
Регистрация: 13.04.2007
Сообщений: 3
Репутация: 0
По умолчанию Re: Вопросы по Delphi/Pascal

В Delphi7 если при очень частой перересовке какого-нибудь изображения (напр. во время вождения мыши) изображение начинает мерцать (типа тормозит) тем не менее процессор в это время вообще не напрягается. Под XP его можно заставить работать нормально включив полупрозрачность окна, а как сделать это под vist'ой.
ITiunov вне форума
 
Ответить с цитированием Вверх
Старый 04.05.2007, 22:58   #251
f0w14
Новичок
 
Аватар для f0w14
 
Пол:Мужской
Регистрация: 07.04.2007
Сообщений: 25
Репутация: 7
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Сообщение от ITiunov Посмотреть сообщение
В Delphi7 если при очень частой перересовке какого-нибудь изображения (напр. во время вождения мыши) изображение начинает мерцать (типа тормозит)

Попробуй установить свойство DoubleBuffered:= True у мерцающего компонента. Если этого свойства у компонента нет (например, у TPaintBox), то установи его у родительского компонента (например, Panel1.DoubleBuffered:= True);

Добавлено через 8 минут
Цитата:
Сообщение от Falco Посмотреть сообщение
Не давно начал изучать Delphi. Возник вопрос. Что такое типизированные и нетипизированные файлы?

Отправляю на замечательный сайт "Королевство Дельфи". Цикл статей, посвященный работе с файлами в Delphi

http://www.delphikingdom.ru/lyceum/seminar.asp?id=2

Добавлено через 14 минут
Цитата:
Сообщение от MBZero Посмотреть сообщение
Что нужно сделать на делфи чтобы дапустим при нажатии кнопки(Button) на форме создавался компонент?

procedure TForm1.Button1Click(Sender: TObject);
var
CB: TCheckBox;
begin
CB:= TCheckBox.Create(Self);
CB.Parent:= Self;
CB.Left:= 10;
CB.Top:= 10;
CB.Width:= 150;
CB.Caption:= 'Это новый TCheckBox';
CB.OnClick:= MyCheckBoxClick;
end;

где MyCheckBoxClick - процедура обработки нажатия на CheckBox

procedure TForm1.MyCheckBoxClick(Sender: TObject);

Удалять созданный чекбокс будет сама форма (т.к. Owner у TCheckBox указан Self - это форма). Поэтому код будет работать без утечек памяти. Если бы в коде создавался невизуальный компонент, например, TStringList, то после работы с ним необходимо было бы его удалять (как правило, в декструкторе формы, если список используется формой).

Последний раз редактировалось f0w14; 04.05.2007 в 23:13.. Причина: Добавлено сообщение
f0w14 вне форума
 
Ответить с цитированием Вверх
Эти 2 пользователя(ей) сказали cпасибо за это полезное сообщение:
Старый 06.05.2007, 19:43   #252
sergiyko
Неактивный пользователь
 
Аватар для sergiyko
 
Пол:Мужской
Регистрация: 10.02.2007
Сообщений: 27
Репутация: 35
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Сообщение от sergiyko Посмотреть сообщение
Ochen nado DELPHI5

Прошу по русски, может у кого нибудь есть 5-я версия делфи, выложите на рапиду ПОЖАЛУЙСТА
sergiyko вне форума
 
Ответить с цитированием Вверх
Старый 07.05.2007, 15:32   #253
Ps_b
Пользователь
 
Пол:Мужской
Регистрация: 19.04.2006
Сообщений: 134
Репутация: 1815
По умолчанию Re: Вопросы по Delphi/Pascal

Подскажите, плиз, как сделать, чтобы при разворачивании/сворачивании формы, DBGrid тоже менял размер с формой . Спасибо.
Ps_b вне форума
 
Ответить с цитированием Вверх
Старый 08.05.2007, 10:51   #254
andalussi
Новичок
 
Аватар для andalussi
 
Пол:Мужской
Регистрация: 15.04.2007
Сообщений: 10
Репутация: 20
По умолчанию Re: Вопросы по Delphi/Pascal

Как в Delphi программно отключить/включить устройство, нампример аудиокарту? Подскажите, плииз....
andalussi вне форума
 
Ответить с цитированием Вверх
Старый 10.05.2007, 19:04   #255
MBZero
Неактивный пользователь
 
Аватар для MBZero
 
Регистрация: 10.03.2007
Сообщений: 9
Репутация: 1
По умолчанию Re: Вопросы по Delphi/Pascal

Цитата:
Сообщение от Ps_b Посмотреть сообщение
Подскажите, плиз, как сделать, чтобы при разворачивании/сворачивании формы, DBGrid тоже менял размер с формой . Спасибо.

Можно вот так:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If windowstate=wsmaximized then
begin
DBGrid1.Width:=1000;
DBGrid1.Height:=500;
Timer1.Enabled:=false;
Timer2.Enabled:=true;
end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
If windowstate=wsnormal then
begin
DBGrid1.Width:=511;
DBGrid1.Height:=139;
Timer1.Enabled:=true;
Timer2.Enabled:=false;
end;
end;

Незабудь только таймера два поставить. Причём во втором указать начальные размеры DBGrid-а которые тебе нужны а в первом указать размеры при разворачивании.
MBZero вне форума
 
Ответить с цитированием Вверх
Ответ


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
PASCAL Алексей М Моделирование программ 1 27.02.2009 16:52
Castalia for Delphi 2008.1 - эксперт IDE Delphi Minotawr Компоненты 0 03.09.2008 02:17
Pascal Fiesta_Life Delphi 4 01.06.2008 03:11
Pascal puella Delphi 5 18.02.2008 18:11

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход


Текущее время: 02:39. Часовой пояс GMT +3.


Copyright ©2004 - 2024 2BakSa.WS

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2024, vBulletin Solutions, Inc. Перевод: zCarot
Время генерации страницы 0.28637 секунды с 11 запросами