Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi ValueListEditor mit rechter Maustaste Zeile selektieren (https://www.delphipraxis.net/79833-valuelisteditor-mit-rechter-maustaste-zeile-selektieren.html)

marabu 30. Okt 2006 10:27

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Klaus,

deine Demo habe ich ausprobiert. Das Kontextmenü wird zwar für den zweiten Feed angezeigt, der erste Feed bleibt aber selektiert. Insofern funktioniert dein Code bei mir unter XP genauso schlecht wie bei dir. Es ist immer noch nicht ausgeschlossen, dass dieser Fehler nicht von dir verursacht wird. Anbei eine Demo von mir, die auf meinem Rechner das von mir beabsichtigte Verhalten zeigt.

Grüße

Klaus01 30. Okt 2006 10:37

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Hallo Achim,

Dein Programm zeigt bei mir das gleiche Verhalten wie das meine.
Die blaue Markierung bleibt in Zeile 1 auch wenn ich mit der rechten Maustaste
z.B. in Zeile 2 klicke.
Demzufolge würde es eher für ein Problem bei Delphi 6 sprechen.

Wenn Du vielleicht noch Lust und Laune hast, könntest Du mir
meinen Quelltext (nicht erschrecken) mal compilieren.

Danke für Deine Hilfe.

Edit: Attachment gelöscht.

Grüße
Klaus

marabu 30. Okt 2006 10:47

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Wenn ich die von dir auskommentierten Zeile wieder aktiviere, dann funktioniert bei mir alles wie gewünscht, d.h. die Selektion wird temporär verschoben.

Delphi-Quellcode:
// ...
    if (button = mbRight) and (iRow > 0) and (iRow < RowCount) then
      begin
//        Row := iRow;
        ContextRow := iRow;
        pt := ClientToScreen(Point(x, y));
        PopUpMenu1.Items.Find('delete').Enabled:= row = irow;
        PopUpMenu1.Popup(pt.x, pt.y);
//        Row := iSelected;
      end
// ...
Grüße

Klaus01 30. Okt 2006 10:50

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Ich habe schon verstanden, das diese Zeilen
für die Verschiebung elementar sind aber
bei mir macht das keinen Unterschied in der Funktionalität.
Es sind keine Auswirkungen spürbar, ob auskommentiert oder nicht.

Grüße
Klaus

marabu 30. Okt 2006 10:59

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Dann schlage ich vor, dass du kurz die Nachrichtenschleife abarbeitest:

Delphi-Quellcode:
// ...
    if (button = mbRight) and (iRow > 0) and (iRow < RowCount) then
      begin
        Row := iRow;
        Application.ProcessMessages;
        ContextRow := iRow;
        pt := ClientToScreen(Point(x, y));
        PopUpMenu1.Items.Find('delete').Enabled:= row = irow;
        PopUpMenu1.Popup(pt.x, pt.y);
        Row := iSelected;
      end
// ...

Klaus01 30. Okt 2006 11:09

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Hallo Achim,


ich habe ja folgende Zeile in meinem Code:

PopUpMenu1.Items.Find('delete').Enabled:= row = irow;

Damit enable ich den 'delete' Menüeintrag.

Wenn goRowSelect auf false ist, ist der Menüeintrag bei jeder Zeile
in die ich hineinklicke enabled.

Wenn goRowSelect auf true gesetzt ist, ist der Menäeintrag
nur bei der Zeile enabled die blau markiert ist.

Das Application.ProcessMessages zeigt auch keine Änderung.

Grüße
Klaus

marabu 30. Okt 2006 12:33

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Hallo Klaus,

ich fürchte, ich kann dir nicht weiter helfen. Da scheinen Unterschiede zwischen D6 und D7 zu sein und D6 habe ich nicht zur Verfügung.

Grüße

Klaus01 30. Okt 2006 12:35

Re: ValueListEditor mit rechter Maustaste Zeile selektieren
 
Hallo Achim,

trotzdem Danke für Deine Hilfe,
da haben wir den Fehler wenigstens etwas
einkreisen können.

Wenn es die Zeit erlaubt werde ich
das mal mit Turbo-Delphi durchspielen.

Grüße
Klaus


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz