|
Вопрос # 4 990/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
В программе нужно обязательно использовать только окна созданые с помощью DialogBox, DialogBoxParam. Они должны содержать всевозможные контролы (кнопки, поля ввода и т.д.) Как это реализовать в делфи. Т.е. создание этих диалогов и обработка действий пользователя. Необходим пример.
 |
Вопрос задал: Пупкин В В (статус: 2-ой класс)
Вопрос отправлен: 1 февраля 2011, 14:18
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 3 февраля 2011, 00:07; участников в обсуждении: 3.
|
min@y™ (статус: Доктор наук), 1 февраля 2011, 14:30 [#1]:
Очень сильно хочется узнать - зачем такой брейнфакинг?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Пупкин В В (статус: 2-ой класс), 2 февраля 2011, 11:53 [#2]:
пишу длл к чужой программе, она обязана создавать окна только используя DialogBox или DialogBoxParam, чтоб прога могла ими манипулировать.
|
|
|
min@y™ (статус: Доктор наук), 2 февраля 2011, 12:52 [#3]:
Цитата (Пупкин В В):
она обязана создавать окна только используя DialogBox или DialogBoxParam, чтоб прога могла ими манипулировать.
Повторяю свой вопрос:
Цитата (min@y™):
зачем такой брейнфакинг?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Пупкин В В (статус: 2-ой класс), 2 февраля 2011, 15:55 [#4]:
забавный ответ.
отвечаю - все вопросы к мелкомягким.
Но мне нужен конкретный пример использования DialogBox или DialogBoxParam в делфи, а ответы тип зачем так извращатся - просто ничего мне не дают. Надеюсь на понимание.
|
|
|
min@y™ (статус: Доктор наук), 2 февраля 2011, 16:26 [#5]:
Ну нету такого примера! Никто так програмы не пишет. Эти функции созданы для других целей. Для именно этих целей их и используют. Специально для тебя приеры никто писать не будет, особенно бесплатно.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
amber (статус: 1-ый класс), 3 февраля 2011, 00:07 [#6]:
Вот пример, отображения диалогового окна:
Function Execute(dlg:HWnd;msg:UINT;wParam,lParam:LongInt):Bool;stdcall;
begin
result := true;
case msg of
WM_CLOSE:
EndDialog(dlg, 0);
WM_DESTROY:
PostQuitMessage(0);
WM_COMMAND:
if hiword(wparam) = BN_CLICKED then begin
case loword(wparam) of
1:
begin
ShowMessage('Нажата кнопка "Исправить"');
end;
261:
begin
SetWindowText(GetDlgItem(dlg,261),PChar('КНОПОЧКА!'));
end;
IDCANCEL:
begin
EndDialog(dlg, 0);
end;
end;
end;
else result := false;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var h:THandle;
begin
h:=LoadLibrary(PChar('Shell32.dll'));
DialogBox(h,PChar('#1008'),Handle,@Execute);
end;
Для работы с элементами управления (кнопки, поля ввода и т.д.) используй GetDlgItem - эта функция даст тебе HWND на нужный тебе элемент и ты сможешь делать с ним что хочешь (в приведенном примере я изменил текст кнопки).
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
