我想要在MessageBox中提醒使用者是要刪那一筆的資料，不要刪錯哦！ 可是怎麼都加不上變數，有請各位高手指點...... xyz:=DBGrid1.DataSource.DataSet.Fields[3].Value; if Application.MessageBox('確定要刪除？','確認',MB_YesNo MB_DEFBUTTON2 MB_IconQuestion MB_ApplModal)=IDYES then begin .............. end;

提供delphi的help給你參考

 
Displays a specified message to the user.    function MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;    Description    Use MessageBox to display a generic dialog box a message and one or more buttons. Caption is the caption of the dialog box and is optional.    MessageBox is an encapsulation of the Windows API MessageBox function. TApplications encapsulation of MessageBox automatically supplies the missing window handle parameter needed for the Windows API function.    The value of the Text parameter is the message, which can be longer than 255 characters if necessary. Long messages are automatically wrapped in the message box. The value of the Caption property is the caption that appears in the title bar of the dialog box. Captions can be longer than 255 characters, but don't wrap. A long caption results in a wide message box.    To see the possible values of the Flags parameter, see the MessageBox function in the Windows API Help file. The corresponding parameter on the Windows function is called TextType. The values determine the buttons that appear in the message box and the behavior of the message box. These values can be combined to obtain the desired effect.    MessageBox returns 0 if there isnt enough memory to create the message box. Otherwise it returns one of the following values:    Value        Numeric value        Meaning    IDOK        1        The user chose the OK button.
IDCANCEL        2        The user chose the Cancel button.
IDABORT        3        The user chose the Abort button.
IDRETRY        4        The user chose the Retry button.
IDIGNORE        5        The user chose the Ignore button.
IDYES        6        The user chose the Yes button.
IDNO        7        The user chose the No button.

@@~~飛翔在天際的精靈~~@@

------
@@~~飛翔在天際的精靈~~@@

還是不太懂耶`~~能不能說明白一點丫~~~~~~

xyz:=DBGrid1.DataSource.DataSet.Fields[3].Value;
if Application.MessageBox('確定要刪除？' VarToStr(xyz),'確認',MB_YesNo   MB_DEFBUTTON2  MB_IconQuestion MB_ApplModal)=IDYES then
begin
..............
end;

引言:

xyz:=DBGrid1.DataSource.DataSet.Fields[3].Value;
if Application.MessageBox('確定要刪除？' VarToStr(xyz),'確認',MB_YesNo   MB_DEFBUTTON2  MB_IconQuestion MB_ApplModal)=IDYES then
begin
..............
end;

對不起, 補充一下, 這列應該要加上 pChar() 格式才對, 如果我沒記錯, 在 MessageBox中的 Text, 或 Caption, 如果有使用到變數時, 應以 pChar()函數再做轉換 if Application.MessageBox(pChar('確定要刪除？' VarToStr(xyz)),'確認',MB_YesNo MB_DEFBUTTON2 MB_IconQuestion MB_ApplModal)=IDYES

補充一下, 這列應該要加上 pChar() 格式才對 沒錯是我疏忽了, 原型為 function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer; 由於為const pchar, 因此const 字串可直接傳入變數則須轉型如P.D所言