Форум: "WinAPI";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.08.19;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c