Page 1 of 2 1 2 LastLast
Results 1 to 15 of 27

Thread: dialogresult werkt niet

  1. #1
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52

    dialogresult werkt niet

    Code:
    procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
    begin
      if combobox1.Text = 'Bart Seinen' then
        begin
        if textbox1.Text = 'trabalph' then
        begin
        button1.DialogResult := System.Windows.Forms.DialogResult.OK
        end
        else
        begin
        button1.DialogResult := System.Windows.Forms.DialogResult.None
        end
        end
      else
      begin
      end
    end;
    waarom lukt dit niet?

    ik wil graag dat als je Bart Seinen invoert in de combobox en trabalph in de textbox dat dan het inlogscherm weer weggaat.

    ik krijg geen foutmelding, maar hij werkt ook niet. het form gaat niet weg als je op ok klikt.
    Delphi 8, no kiddin!

  2. #2
    Ik zie geen code dat je form weg moet gaan ..

    Wat gebeurd er als je een breakpoint zet?

    Succes

  3. #3
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    ik open dat form doormiddel van een link op een ander form.
    dan heb ik er een knop en als de dialog result van die knop op ok staat en je er op klikt gaat hij weg. maar nu lukt het niet. dat is het probleem
    Delphi 8, no kiddin!

  4. #4
    Misschien moet je het zo doen:

    Code:
    procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
    begin
      if (combobox1.Text = 'Bart Seinen') and (textbox1.Text = 'trabalph') then
        button1.DialogResult := System.Windows.Forms.DialogResult.OK
      else
        button1.DialogResult := System.Windows.Forms.DialogResult.None
    end;
    Maar je moet volgens mij op je Mainform je result afvangen.

    even testen

  5. #5
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    Code:
    procedure TStartForm.LinkLabel1_LinkClicked(sender: System.Object; e: System.Windows.Forms.LinkLabelLinkClickedEventArgs);
    begin
      TWinForm.Create.Showdialog;
    end;
    dit gebruik ik om hem op te roepen. maar hij doet het nog steeds niet :S
    Delphi 8, no kiddin!

  6. #6
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    hmm... nou doet hij het wel!!!
    bedankt!
    Delphi 8, no kiddin!

  7. #7
    Ik heb:

    " aanroep form " :
    Code:
    procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
    var
      Scherm: TForm2;
    begin
      Scherm := TForm2.Create;
      try
        Scherm.ShowDialog;
        if Scherm.DialogResult = System.Windows.Forms.DialogResult.Ok then
          MessageBox.Show('Ja dat was goed zeg');
      finally
        Scherm.Free;
      end;
    end;
    "ShowModal Form"
    Code:
    procedure TForm2.Button1_Click(sender: System.Object; e: System.EventArgs);
    begin
      if (TextBox1.Text = 'TextBox1') and (TextBox2.Text = 'TextBox2') then
        DialogResult := System.WIndows.Forms.DialogResult.Ok
      else
        DialogResult := System.WIndows.Forms.DialogResult.Abort;
    
      Close;
    end;
    En dit werkt gewoon ...

    Succes

  8. #8
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    ik heb nu dit:


    in de timer:

    Code:
    procedure TWinForm.Timer1_Tick(sender: System.Object; e: System.EventArgs);
    begin
       if (combobox1.Text = 'Bart Seinen') and (textbox1.Text = 'trabalph') then
        button1.DialogResult := System.Windows.Forms.DialogResult.OK
    end;


    en in de button:

    Code:
    procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
    begin
         if (combobox1.Text = 'Bart Seinen') and (textbox1.Text = 'trabalph') then
         else
         MessageBox.Show('U heeft een foute gebruikersnaam of wachtwoord opgegeven.',
    'Fout', Messageboxbuttons.OK, Messageboxicon.Error);
    end;

    en dat was ook goed.
    Delphi 8, no kiddin!

  9. #9
    Originally posted by bartseinen
    Code:
    procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
    begin
         if (combobox1.Text = 'Bart Seinen') and (textbox1.Text = 'trabalph') then
         else
         MessageBox.Show('U heeft een foute gebruikersnaam of wachtwoord opgegeven.',
    'Fout', Messageboxbuttons.OK, Messageboxicon.Error);
    end;
    Stukje na Then vergeten?
    DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden

  10. #10
    Of gewoon:

    Code:
    if (combobox1.Text <> 'Bart Seinen') and (textbox1.Text <> 'trabalph') then
     // wat er in je else staat

  11. #11
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    nee, gewoon niks nodig, maar hoeft er dan geen then in ofzo?
    Delphi 8, no kiddin!

  12. #12
    SillyMember
    Join Date
    May 2003
    Location
    Gent
    Posts
    7,725
    Enkele opmerkingen:
    1) Je hebt daar geen timer voor nodig, gewoon een TextChanged event handler schrijven en die toekennen aan de edits is voldoende.
    2) Gebruik van ButtonDialogResult hiervoor lijkt me niet aangewezen. Als je een ButtonOK hebt en je klikt daarop dan sluit je een Modal venster. Je zou eventueel de Enabled property kunnen instellen (voorzie ook een ButtonCancel), al lijkt me dat hier ook niet echt van toepassing (zie ook 3.: scheiden van de tests)
    3) Als je de validatie absoluut in het Modal Form wil, gebruik dan een zelf toegevoegde property van het Form om dit bij te houden. Bijvoorbeeld een property LoginOK: Boolean read FLoginOK en een private Field FLoginOK dat je zet bij het klikken. De test of de waarden juist zijn moet je scheiden van de test (in oproepende method) of de gebruiker OK heeft geklikt of op een andere manier het dialoogvenster heeft afgesloten.
    4) Je kan de validatie eventueel buiten de Modal Form laten gebeuren. Voorzie dan gewoon de properties Naam en Paswoord in het Modal Form en test in de de oproepende method.
    All methodologies are based on fear. -- Kent Beck.

  13. #13
    Reader Bart Seinen's Avatar
    Join Date
    May 2004
    Location
    Oudleusen (zwolle)
    Posts
    52
    :S:S:S
    hier snap ik echt niks van!!!
    Last edited by Marcel; 15-May-04 at 18:32.
    Delphi 8, no kiddin!

  14. #14
    Bij welk punt begrijp je wat niet?

  15. #15
    • Overbodige qoutes verwijderd, zie Quoten
    Marcel

Page 1 of 2 1 2 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. AsyncPro ComPort in DLL werkt niet...
    By lzandman in forum Algemeen
    Replies: 2
    Last Post: 16-Apr-04, 13:35
  2. PageControl1.Pages[8].Visible := False; werkt niet
    By Francois Schumans in forum Algemeen
    Replies: 3
    Last Post: 26-Aug-03, 12:37
  3. Code hergebruikt maar werkt NIET
    By eagle00789 in forum Algemeen
    Replies: 26
    Last Post: 23-Jul-03, 00:41
  4. waarom werkt [DBGrid.kolomnaam.visible] niet?
    By pdebie in forum Algemeen
    Replies: 5
    Last Post: 30-Dec-02, 15:36
  5. Replies: 2
    Last Post: 11-Dec-02, 12:48

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •