Текущий архив: 2003.04.17;
Скачать: CL | DM;

Вниз

Как поместить Caption из TListView в MessageBox?   Найти похожие ветки 

← →
Demon_mhm ©   (2003-04-07 03:35) [0]

Help! Help!!!
Есть ListView, из которого надо удалить запись. Для подьверждения удаления используется MessageBox. Выражения типа: if (Application.MessageBox("Удалить " + Form1.ListView.Selected.Caption + "?",
"Внимание! Удаление записи!",
MB_ICONQUESTION + MB_YESNO ) = IDOK) then...
или
var Vmessage1, VMessage2 :PChar;
begin
Vmessage1 := "Удаление " + StrPCopy(Vmessage2, Form1.ListView.Selected.Caption);
if (Application.MessageBox(StrPCopy(Vmessage2, Form1.ListView.Selected.Caption),
"Внимание! Удаление записи!",
MB_ICONQUESTION + MB_YESNO ) = IDOK)then...
вызывают ошибку компиляции:
[Ошибка] main.pas(150): Incompatible types: "String" and "PAnsiChar"

Я в растеряности, помогите кто-нибудь, пожалуйста...

---

← →
крот ©   (2003-04-07 05:42) [1]

Application.MessageBox("Удалить " + PChar(Form1.ListView.Selected.Caption + "?"),
"Внимание! Удаление записи!",
MB_ICONQUESTION + MB_YESNO )

---

← →
крот ©   (2003-04-07 05:44) [2]

Блин, криво написал, щас еще раз...

Application.MessageBox( PChar("Удалить " + Form1.ListView.Selected.Caption + "?"),
"Внимание! Удаление записи!",
MB_ICONQUESTION + MB_YESNO )


---

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

Текущий архив: 2003.04.17;
Скачать: CL | DM;

Наверх

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