Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c