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




Вниз

Ох, эти диалоги... 


DDDeN   (2002-01-26 16:01) [0]

Мастера, может кто знает как работать с диалогами из ресурсов и как их создавать. Можно подробно... Я ничего не понял. От диалогов плюс - размер ексешника уменьшается.



Набережных С.   (2002-01-27 12:40) [1]

var
dlgText:string;

function DlgProc(Hnd:THandle; Msg:UInt;
WParam,LParam:DWord):integer;stdcall;
var
R:TRect;
begin
result:=0;
case msg of
WM_INITDIALOG:
begin
GetWindowRect(Hnd,R);
SetWindowPos(Hnd,0,200,140,R.Right-R.Left,
R.Bottom-R.Top,0);
SetDlgItemText(Hnd,109,PChar(dlgText));
SetFocus(GetDlgItem(Hnd,109));
Result:=0;
end;
WM_COMMAND:
begin
if (hiWord(WParam) = BN_CLICKED)then
begin
Result:=-1;
if loWord(WParam) = ID_OK then
begin
SetLength(dlgText,MAX_PATH);
SetLength(dlgText,GetDlgItemText
(Hnd,109,PChar(dlgText),Length(dlgText)));
end;
EndDialog(Hnd,loWord(WParam));
end;
end;
end;
end;

function ModalDialog:boolean;
begin
dlgText:=Copy("Проба",1,32);
Result:=DialogBox(hInstance,MAKEINTRESOURCE
(200),Handle,@DlgProc) = ID_OK
if Result then
ShowMessage(dlgText);
end;


Диалог содержит однострочный редактор(ID = 109), кнопки OK(ID = 1) и Cancel(ID = 2). Сам шаблон диалога имеет ID = 200.
Не будем засорять форум. Если здесь что-то непонятно - пишите письма. С конкретными вопросами.




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




Наверх





Память: 0.72 MB
Время: 0.054 c
4-32371           datch                 2001-12-14 10:06  2002.02.11  
Ярлыки Windows


3-32134           Есипенко              2002-01-12 00:59  2002.02.11  
DBGrid


1-32274           чайничек              2002-01-27 09:50  2002.02.11  
Переместить название одного узла (подузла) TTreeView в Edit или ComboBox


6-32308           xnum                  2001-11-13 11:42  2002.02.11  
Сокеты в приложениях Веб


1-32197           sasa_verman           2002-01-29 14:32  2002.02.11  
TClientDataSet нужно заполнить ланими из масива, а сам ДатаСет никчему не привязан