Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Invalid window handle   Найти похожие ветки 

 
Freezer ©   (2002-06-14 16:00) [0]

Взял код из MSDN... Не работает - Win32Error (Invalid window handle)


var
PB: HWND;

procedure TForm1.Button1Click(Sender: TObject);
begin
InitCommonControl(ICC_PROGRESS_CLASS);
PB := CreateWindow("PROGRESS_CLASS", nil, WS_CHILD or WS_VISIBLE, 100, 200, 200, 16,
Self.Handle, 0, HInstance, nil);
if PB = 0 then
RaiseLastWin32Error;
SendMessage(PB, PBM_SETRANGE, 0, 100);
SendMessage(PB, PBM_SETSTEP, 50, 0);
SendMessage(PB, PBM_STEPIT, 0, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DestroyWindow(PB);
end;


 
Игорь Шевченко ©   (2002-06-14 16:15) [1]

CreateWindowEx(0, "msctls_progress32", nil, WS_CHILD or WS_VISIBLE, 100, 200, 200, 16,
Self.Handle, 0, HInstance, nil);


 
Freezer ©   (2002-06-14 16:22) [2]

Спасибо


 
Alexander Vorobyov   (2002-06-14 16:45) [3]

PROGRESS_CLASS не нужно было брать в кавычки - это константа (кстати равная "msctls_progress32" ;)



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.015 c
6-60782
kronprince
2002-06-07 16:49
2002.08.19
Имя машины и IP-адрес ???


14-60860
Стас
2002-07-22 10:44
2002.08.19
Delphi Update Pack 2


14-60812
Awex
2002-07-23 19:01
2002.08.19
DOS как много в этом слове....


7-60874
-=Sergeante=-
2002-05-29 11:05
2002.08.19
rs485/232


4-60912
mcs
2002-06-16 15:40
2002.08.19
очистить своп