Текущий архив: 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.012 c