Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Поможите!!!!!!! [D5, Win2k]

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

QWest (2002-06-05 11:34:00) [1]
Так и сделал и разобрался,тока я в школе немецкий изачал...
Всем спасибо...

QWest (2002-06-05 11:23:00) [2]
(В MessageBox)

Виктор Щербаков (2002-06-05 11:22:00) [3]
А в хэлп заглянуть?

QWest (2002-06-05 11:17:00) [4]
А какие параметры должны в нем указываться ??

Виктор Щербаков (2002-06-05 10:34:00) [5]
В uses добавь модуль windows или пользуйся методом Application.MessageBox

QWest (2002-06-05 10:31:00) [6]
Про MessageBox() мона поподробнее ??
(у себя пробовал вставить-пишет undeclared indifined или чета типа...)

Игорь Шевченко (2002-06-05 10:29:00) [7]
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;

Song (2002-06-05 10:27:00) [8]
consts.pas
или MessageBox()

QWest (2002-06-05 10:24:00) [9]
Угу, а русские заголовки у кноп не сделать ??

Song (2002-06-05 10:12:00) [10]
А выше не пример ?

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

QWest (2002-06-05 10:09:00) [11]
Мона примерчик (messageDlg), а ??

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

> PTE © (05.06.02 09:50)

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

PTE (2002-06-05 09:50:00) [13]
if MessageDlgPos ("Закрыть?"; mtConfirmation, [mbYes, mbNo],0,BoundsRect.Left,BoundsRect.Bottom) = mrYes
then Close;

Lord Warlock (2002-06-05 09:42:00) [14]
MessageDlg, ShowMessageBox

fnatali (2002-06-05 09:40:00) [15]
А обязательно ShowMessage? messageDlg не подходит?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »