Вниз
Скачать: CL | DM;

MessageBox   Найти похожие ветки 

← →
1234567   (2008-12-05 11:20) [0]

Еще один вопрос: Написал MessageBox, в котором можно устанавливать свой заголовок. А как сделать чтобы была активна кнопка закрыть в правом верхнем углу окна.  

function MessageInf(const Msg: string; const MsgCaption: string): Integer;
 begin
   Result := MessageBox(0, PChar(Msg), PChar(MsgCaption), MB_YESNO or MB_ICONINFORMATION);
 end;


← →
Ega23 ©   (2008-12-05 11:28) [1]



Flag Meaning
MB_DEFBUTTON1 The first button is the default button. MB_DEFBUTTON1 is the default unless MB_DEFBUTTON2, MB_DEFBUTTON3, or MB_DEFBUTTON4 is specified.
MB_DEFBUTTON2 The second button is the default button.
MB_DEFBUTTON3 The third button is the default button.
MB_DEFBUTTON4 The fourth button is the default button.


← →
clickmaker ©   (2008-12-05 11:30) [2]

> как сделать чтобы была активна кнопка закрыть в правом верхнем
> углу окна

а что она тогда должна означать: yes или no?


← →
Правильный$Вася   (2008-12-05 11:30) [3]

это зависит от операционки


← →
Сергей М. ©   (2008-12-05 11:32) [4]


> что она тогда должна означать: yes или no?


Видимо, она должна означать "может быть")


← →
{RASkov} ©   (2008-12-05 12:39) [5]

Т.е. если вопрос не понятен пользователю, он этот диалог закрывает "крестиком" и программа перефразирует вопрос и т.д.....)


← →
AndreyV ©   (2008-12-05 12:54) [6]

> [5] {RASkov} ©   (05.12.08 12:39)

А функция вернёт IDCROSS



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

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



Память: 0.46 MB
Время: 0.011 c
2-1228146799
Petr
2008-12-01 18:53
2009.01.18
procedure TForm1.Writing(Text: string);


1-1206352689
tytus
2008-03-24 12:58
2009.01.18
Как послать сообщение форме из скрипта FastReport


2-1228326483
Юрии
2008-12-03 20:48
2009.01.18
Раскладка клавиатуры


2-1228402429
учащийся
2008-12-04 17:53
2009.01.18
YearsBetween


15-1227442403
Slider007
2008-11-23 15:13
2009.01.18
С днем рождения ! 22 ноября 2008 суббота




   Наверх