Defmessagedlg edit veya değişkenin içindeki veriyi gösterme

[delphist]

if DefMessageDlg('Lütfen',
'Bu Resim Kodunu Kabul Ediyormusunuz?',
mtConfirmation,
mbYesNoCancel,
mrno,
0) = mrYes then
begin

Resim kodunu göstermek istiyorum diğer tüm şeylerde sytnaxları doğru yazıyorum ama defmessadlg da bunu yapamadım örneğin edit içindeki veriyi göstermek istiyorum.....Teşekkürler

[miskin]

[code
var
Teklif: string;
begin
Teklif := Edit1.Text + #10#13 +''Bu Resim Kodunu Kabul Ediyormusunuz? ";
if DefMessageDlg('Lütfen', Teklif, mtConfirmation, mbYesNoCancel, mrno, 0) = mrYes then
begin[/code]

birde böyle dene.

[delphist]

Teşekkür ederim kardeş..Sağolasın...birer tırnak fazla kodda yanlız...ok

[mussimsek]

DefMessageDlg ayrı bir fonksiyon.. kodu forumda birkaç kez vermiştim ben.

DefMessageDlg

Kolay gelsin.

[delphist]

Mustafa Abi, Ok function için çok teşekkür deriz şu default no gelmesi falan gibi....function kullanırken bir türlü edit veya bi bileşen içindeki veya değişken içindeki veriyi ekleyemedim ama arkadaş sağolsun yardımcı oldu...Neden ekleyemedim bende bilmiyorum...Yani sytnaxı görede yazıyordum ama olmadı ama değişken kullanıp değişkeni function içindekullandığım zaman oldu..Teşekkürler