Форум: "WinAPI";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
ВнизWIN API32 Найти похожие ветки
← →
ИгорЁк (2001-12-18 10:57) [2]Добавляем свою кнопку в Калькулятор
procedure TForm1.Button1Click(Sender: TObject);
var hwn: HWND;
dwStyle: Cardinal;
begin
hwn := FindWindow(nil, "Calculator");
dwStyle := WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT or WS_TABSTOP;
CreateWindow("Button", "OK", dwStyle,
20, 20, 20, 20, hwn, 0, hInstance, nil);
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c