Главная страница
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.013 c
4-60911
PSERG
2002-06-15 10:15
2002.08.19
Путь к загруженой DLL


4-60898
whc
2002-06-14 19:13
2002.08.19
Вставка контролов в ячейки StringGrid


1-60638
WLAD
2002-08-08 03:21
2002.08.19
Проблема с чтением из типизированного файла


14-60824
Alx2
2002-07-24 09:49
2002.08.19
На Землю летит двухкилометровый астероид


4-60917
zllz
2002-06-17 10:37
2002.08.19
можно ли имея только Handle...