Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.04;
Скачать: CL | DM;

Вниз

Загрузить форму из библиотеки в осн. приложение   Найти похожие ветки 

 
Mitchy   (2005-11-07 11:24) [0]

Здраствуйте!
Очень хотелось бы узнать, каким образом приложения, написаные с помощью майкрософтовских сред (напр. WinAmp, Miranda и т.п.), активно использующие внешние plugins встраивают окна настройки этих библиотек в свое окно. Редакторы ресурсов показывают их формы как dialog, а Делфовские формы совсем по другому.
Мой вопрос: каким образом нечто подобное сделать средствами Delphi???


 
Mitchy   (2005-11-07 11:57) [1]

О, Яндекс все-таки рулит.


 
ShiFT   (2005-11-07 12:04) [2]

Создаёшь Ресурс с Диалогом. Линкуешь к проекту и в проэкте пишешь:


const
 BtnOK = 1; // Идентифер оф Контрол.

function DlgProc( wnd: HWND; msg: Integer; wParam: wParam; lParam: lParam): lResult; stdcall;
begin
 Result := 0;
 case msg of
   WM_COMMAND: case LOWORD(wParam) of
     BtnOK: begin
       Result := 0;
       EndDialog( wnd, 1);
     end;
   end;
 else
   result := DefWindowProc( wnd, msg, wParam, lParam);
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 DialogBox( hInstance, "DLG", Application.Handle, @DlgProc);
end;



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

Текущий архив: 2005.12.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
11-1112942207
Kirill
2005-04-08 10:36
2005.12.04
Автоматический скролл в EditBox


3-1129659134
Shlomo
2005-10-18 22:12
2005.12.04
DBComboBox1 – не работает с - DBCtrlGrid1 ???


1-1131299363
Aldor
2005-11-06 20:49
2005.12.04
Корректно ли, если контейнер ответственен за уничтожение


5-1113852834
Бывший студент
2005-04-18 23:33
2005.12.04
TCollection+TStringGrid


9-1121835979
Fosgen
2005-07-20 09:06
2005.12.04
Фатальная ошибка при вызове CollisionManager.CheckCollisions