Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Вниз

CreateWindow   Найти похожие ветки 

← →
Evgeny   (2002-06-18 12:43) [0]

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

---

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

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

---

← →
Poirot   (2002-06-18 12:51) [2]

А зачем идеи... тут всё предельно ясно
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;

---

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

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

---

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

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

С уважением,

---

← →
Evgeny   (2002-06-19 13:24) [5]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c