Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Использование CreateWindow

Автор: Гость_Hedrox 1.8.2004, 21:41

Как создать например кнопку с помощью CreateWindow. У меня прога компилируется но ничего не происходит. И как с ней потом обращаться? Или может есть другие функции?

Автор: p0s0l 1.8.2004, 22:27

Пример через WinAPI:

Код

var
  hBtn : HWND;
begin
  hBtn := CreateWindow ('BUTTON', 'MyButton', WS_CHILD or WS_VISIBLE or BS_PUSHBUTTON	, 25, 50, 100, 20, Form1.Handle, 0, hInstance, nil);
end;

Аналогичный пример через VCL:

Код

var
  Btn : TButton;
begin
  Btn := TButton.Create(Self);
  Btn.Parent := Form1;
  Btn.SetBounds(25, 50, 100, 20);
  Btn.Caption := 'MyButton';
end;