calıştıramadım nersin de eksik var bulamadım
selamlar


private
function mesajkutum(baslik,mesaj:string;ikon:tmsgdlgtype; butonlar:tmsgdlgbuttons; aktifbuton: tmsgdlgbuttons):integer;

public

end;
var
Form1: TForm1;
implementation


function TForm1.mesajkutum(baslik, mesaj: string; ikon: tmsgdlgtype;
butonlar: tmsgdlgbuttons; aktifbuton: tmsgdlgbuttons): integer;
const
trbtn:array[0..9] of string=('tamam', 'iptal', 'durdur', 'yeniden dene', 'yoksay', 'evet', 'hayır',
'tumu', 'tumune hayır', 'tumune evet');
var
msj:tform;
btnno,i:integer;
begin
msj:=createMessageDialog(mesaj, ikon, butonlar);
with msj do
try
Caption:=baslik;
for i :=0 to componentcount - 1 do
if Components[i]is Tbuttons then
begin
btnno:=tbutton(Components[i]).modalresult;
if btnno in [0..10] then
tbutton(Components[i]).caption :=trbtn[btnno];
end;
Result:=ShowModal;
finally
free;
end;
end;
__________________