Текущий архив: 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.014 c
