| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CreateWindow

Evgeny ©   (2002-06-18 12:43:00) 

У кого есть идея как создавать компоненты из окон находящихся в ресурсном файле или создаваемых командой CreateWindow

---

Evgeny   (2002-06-19 13:24:00) [1]

Хорошо. Открываем StdCtrls и смотрим компонент CustomGroupBox. Ну не нахожу я в описании этого компонента класса "button" и стиля "bs_groupbox". Как тогда?

---

Игорь Шевченко   (2002-06-19 09:06:00) [2]

Дублирую ответ: для почти всех классов в Delphi написаны стандартные обертки - наследники TWinControl. Рекомендую изучить файлы StdCtrls.pas, ComCtrls.pas

С уважением,

---

Evgeny   (2002-06-19 05:41:00) [3]

>Игорь Шевченко
Если бы ответил, не пришлось бы вопрос переносить в другую конференцию. А это уже на грани фола. Одна надежда, что между вопросами имеется временной промежуток. Возможно модератор и не побьет за это.
>Poirot
Подкинь ссылку про господ Фроловых

---

Poirot   (2002-06-18 12:51:00) [4]

А зачем идеи... тут всё предельно ясно
1 - почитать господ Фроловых (у них всё более менее есть)
2 - Вот примерчик (грубоват но сойдёт)Здеся в ФАКах находил...
Function SettingsDlgProc(Window : hWnd; Msg,WParam,LParam : Integer): Integer; StdCall;
var p:Pchar;
Begin
Result := 0;
Case Msg of
wm_InitDialog : Begin
End;
wm_Command : Begin
End;
wm_Close,
wm_Destroy : begin
end;
Else Result := 0;
End;
End;


Procedure RunSettings;
Var Result : Integer;
Begin
Result := DialogBox(hInstance,"MARN",Form1.Handle,@SettingsDlgProc);
If (Result = idok) Then ShowMessage("ok");
End;

procedure TForm1.Button9Click(Sender: TObject);
begin
RunSettings;
end;

---

Игорь Шевченко   (2002-06-18 12:49:00) [5]

Я в одноименной теме в "Потрепаться" ответил

---

Наверх