Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
11.09.2007, 21:25
|
|
Постоянный
Регистрация: 27.08.2006
Сообщений: 367
Провел на форуме:
2009677
Репутация:
472
|
|
Куда поместить ProcessMessages for WinAPI?
засовывай после CreateWindow и ShowWindow.
Код:
hwnd = CreateWindowEx(...);
ShowWindow (hwnd, SW_SHOW);
while (GetMessage (&messages, 0, 0, 0))
{
TranslateMessage(&messages);
DispatchMessage(&messages);
}
|
|
|
11.09.2007, 21:59
|
|
Постоянный
Регистрация: 06.05.2007
Сообщений: 393
Провел на форуме:
1510937
Репутация:
398
|
|
Сообщение от Ni0x
засовывай после CreateWindow и ShowWindow.
Код:
hwnd = CreateWindowEx(...);
ShowWindow (hwnd, SW_SHOW);
while (GetMessage (&messages, 0, 0, 0))
{
TranslateMessage(&messages);
DispatchMessage(&messages);
}
есть DialogBox(hInstance, 'MAIN', 0, @MainDlg); ((
Последний раз редактировалось PandoraBox; 12.09.2007 в 00:27..
|
|
|
|
12.09.2007, 06:17
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от PandoraBox
есть DialogBox(hInstance, 'MAIN', 0, @MainDlg); ((
Пандора... честное слово =/
на API же пишешь...я тебе скинул LENIN_INC там есть пример вызова MessageBox'a при событиях окна вплоть до его полного отображения...
OnCreate
OnPaint
OnShow
OnActive
(что-то вроде этого)
посмотри...
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
14.09.2007, 10:12
|
|
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104
Репутация:
239
|
|
Значит так. Я изучаю делфи пару недель... Пока просто читаю и запоминаю))) Но вот хотел написать простую программку, которая бы при нажатии на кнопку выводила второе окно... И нефига не получается... Пишу
А при компилляции он мне ошибку выдает! Один чел с кибер зоны мне дал свой вариант проги, там так же, но все работает! А у мну нет!
Вот тут сам исходник - http://slil.ru/24853531
Там в принципе только две формы, на одной есть кнопка, при ее нажатии я хочу чтоб вылазила вторая форма, но у мну не получается...
Последний раз редактировалось Killerkod; 14.09.2007 в 10:15..
|
|
|
|
14.09.2007, 10:49
|
|
Постоянный
Регистрация: 08.05.2006
Сообщений: 816
Провел на форуме:
1845671
Репутация:
1338
|
|
Killerkod Очевидно у тебя есть два модуля Unit1 и Unit2. Во втором Form2 - чтобы её показать с помошью Form2.Show; Нужно подключить\связать модуль 1 с модулем 2 -
жми File -> Use unit -> вибираем Unit2 и должно все работать!
// Killerkod лучше писать ошибки компиляции, так тебе быстрее помогут!
|
|
|
|
14.09.2007, 11:26
|
|
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104
Репутация:
239
|
|
Спасибо! Усе работает...
Вот еще вопросик:
Вот например в проге есть прогресс бар который заполняется по таймеру после нажатия на кнопку. Как сделать чтобы после заполнения прогресс бара, появлялась вторая форма?
Вот такой вот ламерский у мну вопрос))
|
|
|
|
14.09.2007, 13:27
|
|
Участник форума
Регистрация: 06.10.2006
Сообщений: 226
Провел на форуме:
3025546
Репутация:
1327
|
|
мда.... через условие, учи основы!
|
|
|
|
14.09.2007, 13:42
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от Killerkod
Спасибо! Усе работает...
Вот еще вопросик:
Вот например в проге есть прогресс бар который заполняется по таймеру после нажатия на кнопку. Как сделать чтобы после заполнения прогресс бара, появлялась вторая форма?
Вот такой вот ламерский у мну вопрос))
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.StepIt;
if ProgressBar1.Position = ProgressBar1.Max then Form2.Show;
end;
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|
|
14.09.2007, 14:42
|
|
Участник форума
Регистрация: 01.08.2007
Сообщений: 178
Провел на форуме:
486104
Репутация:
239
|
|
Спасибо, это то, что и надо было))
Только вот эту строчку надо убрать - ProgressBar1.StepIt;
Иначе прогрессбар ходит как по циклу!
Последний раз редактировалось Killerkod; 14.09.2007 в 15:04..
|
|
|
|
14.09.2007, 16:23
|
|
Постоянный
Регистрация: 05.01.2007
Сообщений: 508
Провел на форуме:
2360904
Репутация:
1393
|
|
Сообщение от Killerkod
Спасибо, это то, что и надо было))
Только вот эту строчку надо убрать - ProgressBar1.StepIt;
Иначе прогрессбар ходит как по циклу!
Не надо, StepIt делает шаг! Если его убрать то оно никогда не заполнится!
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
