Announcement

Collapse
No announcement yet.

Doppelklick auf Button aktiviert Button auf neu angezeigtem Fenster

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Doppelklick auf Button aktiviert Button auf neu angezeigtem Fenster

    Hallo,

    durch Doppelklick auf eine TreeViewNode wird ein anderes Fenster Modal angezeigt. Das Problem ist, dass dieser Click auch im neuen Fenster ausgelösst wird und dort unter Umständen eine anderen Button aktiviert.

    Wie kann man dieses Problem lösen ?

    Vielen Dank im voraus

    MfG
    Stefan Glock

  • #2
    sage mir mal die eigenschaften(werte) deines aufrufenden formulars und den code mit dem du das
    andere formular aufrufst!!!!

    mfg

    marku
    Herzliche Grüße

    Markus Lemcke
    barrierefreies Webdesign

    Comment


    • #3
      Hallo,

      an den Eigenschaften des Formulares wurden keine Änderungen durchgeführt, also Standardvorgaben von Delphi (wenn du mir gezielt
      die Eigenschaften nennst, werde ich Sie dir gerne nennen).

      Der Aufruf erfolgt mit der Methode ShowModal des anderen Formulares, also:

      {Ereignisbehandlung für Button Doppelklick)
      begin
      ..Diverse Abfragen von Benutzerberechtigungen und Verbindungs-
      informationen zum SQL-Server
      Unit2.ShowModal;
      end

      Comment


      • #4
        steht in dem fenster das aufgerufen wird, bei onshow oder oncreate drin?????????????

        mfg

        marku
        Herzliche Grüße

        Markus Lemcke
        barrierefreies Webdesign

        Comment


        • #5
          Hallo,

          das Problem kommt mir bekannt vor - die Frage tauchte schon einmal im alten Forum auf (damals waren es 2 normale Button, die "zufällig" in beiden Formularen an der gleichen Stelle waren). Wenn ich micht richtig erinnere, verschwand der Effekt nur dann, wenn zu einer kleinen Krücke gegriffen wird. Probiere einmal das folgende aus:
          <pre>
          const
          PM_BTNCLICK = WM_APP + 1;

          type
          TForm1 = class(TForm)
          ...
          private
          { Private-Deklarationen }
          procedure PMBTNCLICK (var Msg: TMessage); message PM_BTNCLICK ;
          public
          { Public-Deklarationen }
          end;

          procedure TForm1.Button1Click(Sender: TObject);
          begin
          Application.ProcessMessages;
          PostMessage(Handle, PM_BTNCLICK 0, 0);
          end;

          procedure PMBTNCLICK Msg: TMessage);
          begin
          // Formular aufrufen
          end;
          </pre>

          Über die private Botschaft wird versucht, den Aufruf zeitlich zu entkoppeln. Ich kann mich aber auch irren :-

          Comment

          Working...
          X