Работа с компонентами из ресурсов

[Defunate]

Подскажите литературу или примеры как работать с компонентами ,которые создаешь в файле ресурсов ,и потом используешь в делфи.

[mss]

см. ф-цию ReadComponentRes

[Defunate]

А она только загружает компонент из файла ресурсов,а как свойства использовать?если же в файле ресурсов они не прописаны.

[mss]

если же в файле ресурсов они не прописаны

Как это "не прописаны" ?
Как ты их туда "прописал", так они там и "прописаны")

[Defunate]

Файл ресурсов:

MAIN_WINDOW DIALOGEX 32768, 0, 400, 170
STYLE DS_MODALFRAME | WS_MAXIMIZEBOX | WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU
CAPTION "Диалоговая панель"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
FONT 8, "MS SANS SERIF"
{
CONTROL "Cancel",1,"BUTTON", BS_DEFPUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 130, 90, 140, 18, WS_EX_CLIENTEDGE
CONTROL ">>",2,"BUTTON", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 130, 60, 140, 18, WS_EX_CLIENTEDGE
CONTROL "<<",3,"BUTTON", BS_PUSHBUTTON | BS_CENTER | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 130, 30, 140, 18, WS_EX_CLIENTEDGE
CONTROL "ListBox1",4,"listbox", LBS_NOTIFY | LBS_SORT | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 20, 20, 80, 90
CONTROL "ListBox2",5,"listbox", LBS_NOTIFY | LBS_SORT | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 300, 20, 80, 90
CONTROL "",6,"EDIT",ES_LEFT | WS_CHILD | WS_VISIBLE | WS_BORDER |WS_GROUP | WS_TABSTOP, 30, 130, 340, 18
}

Программа:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function DlgProc(hWin, uMsg, wParam, lParam: Integer): Integer; stdcall;
begin
 Result := 0;
  case uMsg of
   WM_INITDIALOG:
    begin
     SendMessage(hWin, WM_SETICON, ICON_BIG, LoadIcon(hInstance, 'MAINICON'));
    end;
   WM_COMMAND:
    begin
     case LoWord(wParam) of
      1: EndDialog(hWin, 0);
      2:
      3:
      4:
      5:
      6:
    end;
  end;
   WM_DESTROY, WM_CLOSE: PostQuitMessage(0);
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 {$R res.res}
 DialogBox(hInstance, 'MAIN_WINDOW', 0, @DlgProc);
end;

end.

Как в программе использовать листбокс и едит, поля кепщн и тд?

[Defunate]

Вот я скопировал текст из едита при нажатии кнопки,а как теперь поместить его в листбокс?
2: if wParam = LBN_DBLCLK then begin
GetDlgItemText(hwin,6,buffer,255) ;