[Delphi] MessageDlg gaat niet correct

[Verwijderd]

hallo,

Ik ben een calculatie programma aan het maken en ik maak gebruik van MessegeDlg's maar als ik bij MessageDlg "Code bestaat al" kom dan lijkt het wel of hij hem overslaat. Hij steld de vraag wel maar als ik op Yes druk dan gaat hij niet naar de procedure "vullen_code(txtelcode.Text)". Hier worden alle gegevens opgehaalt van de desbetreffende code. Als ik de MessageDlg weg haal komt hij er wel .........:S

Ik zou niet weten wat hier het probleem van is, kan iemand mij helpen.

Code:

code:

if (txtElCode.text<>'') and invoerwijz then
begin
  datConnectie.adoqCheckCode.close;
  datConnectie.adoqCheckCode.sql.Clear;
  datConnectie.adoqCheckCode.sql.Add('select * from elementen where elementcode = '''+txtElCode.Text+''' ; ');
  datConnectie.adoqCheckCode.open;
  if datConnectie.adoqCheckCode.RecordCount > 0 then
  begin
    if MessageDlg('Code bestaat al. Bestaande gegevens kopieeren',mtInformation,mbYesNoCancel,0)=mrYes then
    begin
      vullen_code(txtelcode.Text);
    end;
  end;

end;
end;

Alvast bedankt

Grtz Michael

[André]

En als je dat =mrYes weghaalt dan?
Of je maakt van mrYes een 6.

[ Voor 35% gewijzigd door André op 23-03-2004 09:16 ]

[LordLarry]

Kijk even voor mij wat MessageDlg dan wel als resultaat teruggeeft.

[NMe]

Mijn Delphi is een beetje roestig, maar is het niet zo?

code:

if MessageDlg('Code bestaat al. Bestaande gegevens kopieeren',mtInformation,[mbYes, mbNo, mbCancel],0)=mrYes then

Volgens mij staat in de help van Delphi zelfs precies een voorbeeld van wat jij zoekt.

offtopic:
Je gebruikt nogal veel empty statements (overbodige puntkomma's). Niet erg netjes.

[André]

NMe84 schreef op 23 maart 2004 @ 09:21:
Volgens mij staat in de help van Delphi zelfs precies een voorbeeld van wat jij zoekt.

Hier staat ook wel wat:

http://www.delphibasics.co.uk/RTL.asp?Name=MessageDlg

[whoami]

Dit is gewoon een kwestie van debuggen en de doc's te lezen.