Mega Code Archive
Neoturk - soru sor functionu
<![CDATA[
herkese merhaba,
bazen hızlı program yazarken kullanıcıya soru sormak isteriz, ama bunu yaparken uzun uzadıya messagedlg functionunu
kullanmak zorunda kalırız.... ben bunları kendi arşivimdeki kodlarla rahatça yapabiliyorum.. yüzlercesi olsa da, önemli gördüklerimi
sizlerle paylaşmak istedim...
{archive by neoturk}
{************** sorusor **************************}
function sorusor(konu:byte;tur:byte;x:string):string;
var ssonuc:integer;
begin
case konu of
0: //EVET
begin
MessageDlg(x,TMsgDlgType(tur), [mbOK],0);
sorusor:='yes';
end;//0
1://EVET - HAYIR
begin
if MessageDlg(x,TMsgDlgType(tur), [mbYes, mbNo], 0) = mrYes then
sorusor:='yes'
else
sorusor:='no';
end;//1
2://EVET - HAYIR - İPTAL
begin
ssonuc:=MessageDlg(x,TMsgDlgType(tur), [mbYes, mbNo,mbCancel], 0);
case ssonuc of
6:sorusor:='yes';
7:sorusor:='no';
2:sorusor:='cancel';
end;
end;//2
3://EVET - HAYIR - İPTAL - HEPSİNE_EVET
begin
ssonuc:=MessageDlg(x,TMsgDlgType(tur), [mbYes, mbNo,mbCancel,mbYestoAll], 0);
sorusor:=inttostr(ssonuc);
case ssonuc of
6:sorusor:='yes';
7:sorusor:='no';
2:sorusor:='cancel';
10:sorusor:='yestoall';
end;
end;//3
end;//case
//final
end;
kullanımı:
if sorusor(1,3,'Programdan Çıkmak İsiyor musunuz?')='yes' then .........
if sorusor(2,3,'İşleme Devam Edeyim mi')='cancel' then .........
ilk parametre "evet-hayır-iptal" düğme seçimleri grubu,
ikinci parametre messageicon seçimi ( confirm warning vs.. )
saygılarımla_
xxnt03@lycos.co.uk
neoturk_
]]>