Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Где найти модуль для модальных диалогов?   Найти похожие ветки 

 
Erik1 ©   (2004-10-29 11:44) [0]

В Delphi при создании модальных диалогов на самом деле создается форма. В некоторых случиях могут быть неприятные последствия перекрытия этого диалога другой формой. Причем фокус ввода останется на диалоге. Кроме того нужно изменить надписи на кнопках, поэтому стандартный диалог windows неподходит. Мои возможные кнопки (mbOk, mbYes, mbNo, mbAbort, mbRetry, mbIgnore, mbCancel, mbHelp). Я пробовал пользоватся MessageBoxEx(...,LANG_ESTONIAN) но чтото незаработало. Поэтому хочу использовать WinApi модальный диалог.


 
clickmaker ©   (2004-10-29 12:04) [1]

DialogBox()


 
Erik1 ©   (2004-10-29 12:46) [2]

А какже ресуры, цикл очереди сообщений и WindowProc? Наверника придется время подратить пока отладиш, а если учесть что кнопочки цинтровать надо... Я на для UI на чистом API никогда неписал, думаю наверника есть готовый модуль, челую библиотеку ради одного диалога скачивать нехочится.


 
clickmaker ©   (2004-10-29 13:03) [3]


> Я на для UI на чистом API никогда неписал, думаю наверника
> есть готовый модуль

Чистый апи на то и чистый, что там нет готовых модулей. Все ручками


 
Erik1 ©   (2004-10-29 14:58) [4]

А вот и нет, на C++ я уже нашол "универсальное диалоговое окно" http://rsdn.ru/article/ui/custombox.xml
Теперь надо на Delphi переделать, что ниукого примера нешащлось?


 
Erik1 ©   (2004-10-29 16:35) [5]

Как создать 32bit ресурсный фаил? Мнебы просто пример ресурса для диалогового окна с 6 кнопкам.


 
Ученик   (2004-10-30 22:43) [6]

Замена текста на кнопках стандартного MessageBox :-)


var
 hHook : THandle = 0;

procedure ChangeButtonCaption(Dialog : HWnd; ControlID : Integer;
                             const Caption : string);
begin
 SetWindowText(GetDlgItem(Dialog, ControlID), PChar(Caption))
end;

function ChangeCaptionsProc(nCode  : Integer;
                   wParam : WPARAM;
                   lParam : LPARAM) : LRESULT; stdcall;
begin
 Result := CallNextHookEx(hHook, nCode, wParam, lParam);
 if nCode = HCBT_ACTIVATE then begin
   ChangeButtonCaption(wParam, IDYES,    "Да");
   ChangeButtonCaption(wParam, IDNO,     "Нет");
   ChangeButtonCaption(wParam, IDCANCEL, "Отмена");
   UnhookWindowsHookEx(hHook)
 end
end;

function MessageBoxRus(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;
begin
 hHook := SetWindowsHookEx(WH_CBT, @ChangeCaptionsProc, hInstance, GetCurrentThreadID);
 Result := MessageBox(hWnd, lpText, lpCaption, uType);
end;



 
Игорь Шевченко ©   (2004-10-30 23:04) [7]

Ученик   (30.10.04 22:43) [6]

А я форму честно сделал в свое время. Которая по CreateMessageDialog из dialogs.pas создается :)


 
GuAV ©   (2004-10-30 23:41) [8]

Игорь Шевченко ©   (30.10.04 23:04) [7]
А я форму честно сделал в свое время. Которая по CreateMessageDialog из dialogs.pas создается :)


Так там Ваш код ? :)


 
Игорь Шевченко ©   (2004-10-31 00:13) [9]

GuAV ©   (30.10.04 23:41) [8]

>
> Так там Ваш код ? :)


Нет, я примерно такой код писал :)


const
 SMsgDlgYes      = "Да";
 SMsgDlgNo       = "Нет";

function hs_MessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do
   try
     Caption := Application.Title;
     HelpContext := HelpCtx;
     Position := poMainFormCenter;
     (FindComponent("Yes") as TButton).Caption:=SMsgDlgYes;
     (FindComponent("No") as TButton).Caption:=SMsgDlgNo;
     Result := ShowModal;
   finally
     Free;
   end;
end;


 
GuAV ©   (2004-10-31 00:20) [10]

А смысл ? не легче ли было вызвать Application.MessageBox или исправить ресурсы ?


 
Игорь Шевченко ©   (2004-10-31 13:29) [11]

GuAV ©   (31.10.04 00:20) [10]

Не легче. Application.MessageBox, равно, как и Windows.MessageBox еще и звук играет, а мне это не требуется.


>  или исправить ресурсы ?


А это еще нафига ?


 
Игорь Шевченко ©   (2004-10-31 13:30) [12]

Забыл добавить: MessageBox показывает надписи на кнопках в соответствии с конкретной локализацией Windows, а у меня стояла задача, чтобы надписи показывались на русском вне зависимости от локализации Windows.


 
GuAV ©   (2004-10-31 13:41) [13]

понял.


 
Erik1 ©   (2004-11-01 10:34) [14]

to Ученик
Большое спасибо, в принципе я даже нидел пример на C++, но думал что затраты на написание будут больше. А получилось очень просто!


 
Erik1 ©   (2004-11-01 10:39) [15]

Удалено модератором
Примечание: Дубль



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

Форум: "WinAPI";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.6 MB
Время: 0.059 c
4-1099165516
S@shka
2004-10-30 23:45
2004.12.12
Создание и завершение потока


1-1101887751
RDen
2004-12-01 10:55
2004.12.12
Опять про второй экземпляр приложения...


14-1100858389
BorisUK
2004-11-19 12:59
2004.12.12
Задача


14-1099841079
Piter
2004-11-07 18:24
2004.12.12
Работа с RAS


14-1101297881
Маг Похмеляйнен
2004-11-24 15:04
2004.12.12
Про девчонок и вольтмод





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский