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

Вниз

Поможите!!!!!!!   Найти похожие ветки 

 
QWest   (2002-06-05 09:34) [0]

Здравствуйте мастера. В который раз прошу вашей помощи: объясню суть проблы-при выполнении процедуры ShowMessage выводиться сообщение с кнопкой ОК, нельзя ли сделать так, чтоб рядом с ОК появилась кнопка Отмена ??
(свою форму для каждого условия создавать нехоца...)


 
fnatali   (2002-06-05 09:40) [1]

А обязательно ShowMessage? messageDlg не подходит?


 
Lord Warlock   (2002-06-05 09:42) [2]

MessageDlg, ShowMessageBox


 
PTE   (2002-06-05 09:50) [3]

if MessageDlgPos ("Закрыть?"; mtConfirmation, [mbYes, mbNo],0,BoundsRect.Left,BoundsRect.Bottom) = mrYes
then Close;


 
Lord Warlock   (2002-06-05 09:54) [4]


> PTE © (05.06.02 09:50)


зачем так сложно, если человек MessageDlg не знает? :)


 
QWest   (2002-06-05 10:09) [5]

Мона примерчик (messageDlg), а ??


 
Song   (2002-06-05 10:12) [6]

А выше не пример ?

IF MessageDlg("Выберите Да или Нет",mtConfirmation,[mbYes,mbNo],0)=mrYes then ShowMessage("Нажато Yes");


 
QWest   (2002-06-05 10:24) [7]

Угу, а русские заголовки у кноп не сделать ??


 
Song   (2002-06-05 10:27) [8]

consts.pas
или MessageBox()


 
Игорь Шевченко   (2002-06-05 10:29) [9]

Windows.MessageBox в русских Windows показывает русские надписи на кнопках.

Если хочется в MessageDlg, то, к примеру:

const
SMsgDlgYes = "Да";
SMsgDlgNo = "Нет";
SMsgDlgCancel = "Отмена";

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;
if mbYes in Buttons then
(FindComponent("Yes") as TButton).Caption:=SMsgDlgYes;
if mbNo in Buttons then
(FindComponent("No") as TButton).Caption:=SMsgDlgNo;
if mbCancel in Buttons then
(FindComponent("Cancel") as TButton).Caption:=SMsgDlgCancel;
Result := ShowModal;
finally
Free;
end;
end;



 
QWest   (2002-06-05 10:31) [10]

Про MessageBox() мона поподробнее ??
(у себя пробовал вставить-пишет undeclared indifined или чета типа...)


 
Виктор Щербаков   (2002-06-05 10:34) [11]

В uses добавь модуль windows или пользуйся методом Application.MessageBox


 
QWest   (2002-06-05 11:17) [12]

А какие параметры должны в нем указываться ??


 
Виктор Щербаков   (2002-06-05 11:22) [13]

А в хэлп заглянуть?


 
QWest   (2002-06-05 11:23) [14]

(В MessageBox)


 
QWest   (2002-06-05 11:34) [15]

Так и сделал и разобрался,тока я в школе немецкий изачал...
Всем спасибо...



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

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

Наверх




Память: 0.47 MB
Время: 0.007 c
14-55265
Сатир
2002-05-10 17:59
2002.06.17
Потоки


1-55078
Starkom
2002-06-04 08:29
2002.06.17
Не могу разобраться с выгрузкой Dll


1-55103
Andrew22
2002-06-06 09:03
2002.06.17
Курсор


3-55020
Explorer
2002-05-24 06:24
2002.06.17
Дайте кто -нибудь пример TQuery при работе с параметрами


6-55236
KoLega
2002-04-05 13:55
2002.06.17
Дорогие друзья!!! А какие еще форумы и склады ПО в и-нете?





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