Поможите!!!!!!!

← →
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 или чета типа...)

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

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

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

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

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

(В MessageBox)

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

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

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