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

Вниз

Как MessageBox задать кнопки со своим текстом?   Найти похожие ветки 

 
Aleksandr   (2003-04-23 12:20) [0]

Возникла необходимость перед пользователем выкинуть окошко с кнопками "Повторить" и "Завершить программу". Причем по-русски, учитывая, что у кого-то винда может быть не русской. И, соответственно, смочь получать два результата закрытия этого окна. Как это можно сделать? Очень уж не хочется делать программу беременной лишними TForm.


 
DVM   (2003-04-23 12:22) [1]

Сделать свой диалог. Это пара пустяков.


 
Aleksandr   (2003-04-23 12:28) [2]

Вам, наверное, пара пустяков. А мне - китайская грамота. Мои познания в создании окон с WinApi ограничиваются созданием немодальной формочки с текстом в ней. :(


 
DVM   (2003-04-23 12:34) [3]

Берешь редактор ресурсов (из VC6 или BC++5). Рисуешь в нем диалог, какой хочется. Сохраняешь в *.res файл.
Подцепляешь файл к своей программе.

Подробнее можно здесь почитать:

http://web.ict.nsc.ru/~cancel/delphi/vclfree.html/file3.html


 
Крот   (2003-04-23 13:14) [4]


> Очень уж не хочется делать программу беременной лишними
> TForm

А что, программа сильно потяжелеет от одной TForm?


 
12   (2003-04-23 17:19) [5]


> А что, программа сильно потяжелеет от одной TForm?

Если написана на Апи то на 300 кило


 
Proton   (2003-04-23 19:48) [6]

Из анналов Российского политбюро

procedure TForm1.Button1Click(Sender: TObject);
var AMsgDialog: TForm;
ACheckBox: TCheckBox;
begin
AMsgDialog := CreateMessageDialog ("This is a test message.", mtWarning, [mbYes, mbNo]);
ACheckBox := TCheckBox.Create(AMsgDialog);
with AMsgDialog do
try
Caption := "Dialog Title" ;
Height := 169;
with ACheckBox do
begin
Parent := AMsgDialog;
Caption := "Dont show me again.";
Top := 121;
Left := 8;
end;
if (ShowModal = ID_YES) then
begin
if ACheckBox.Checked then
begin //... do if checked
end; //... do if NOT checked
end;
finally
ACheckBox.Free;
Free;
end;
end;


 
Evgeny   (2003-04-24 05:03) [7]

>Proton © (23.04.03 19:48)
Можно и так конечно, но просили без TForm, так что лучший вариант описать диалог все же в ресурсе.



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

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

Наверх





Память: 0.46 MB
Время: 0.03 c
3-84039
OxOTHuK
2003-05-31 16:39
2003.06.26
Печать из DbGrid


7-84767
keymaster
2003-04-16 18:21
2003.06.26
Как запустить ScreenSaver?


3-83968
andrey__
2003-05-27 15:25
2003.06.26
Нужно определить фиксированную часть в <B>TDBGrid </B>


3-84031
ivlex
2003-05-31 19:36
2003.06.26
Подключение к базе Access 2000


1-84298
X-Man
2003-06-14 18:33
2003.06.26
Hint





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский