Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
824 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: MouseUp Shift bleibt leer

  Alt 17. Apr 2013, 18:06
Hallo,

ich habe leider doch noch ein Problem:

In einem anderen StringGrid bekomme ich das jetzt aus irgendeinem Grund nicht hin.

Delphi-Quellcode:
procedure TMain.GridOwnRFQnachfassenDblClick(Sender: TObject);
var Col, Row: integer;
      Objekt: TPageChange;
begin
   GridOwnRFQNachfassen.MouseToCell(Mouse.CursorPos.X,Mouse.CursorPos.Y,Col,Row);
   if Col<9 then begin
   end;
Col bekommt immer den Wert -1.

Ich habe mal nachgesehen, und die Werte von Mouse.CursorPos.X und Mouse.CursorPos.Y liegen innerhalb von Grid.top-Grid.Height und Grid.Left und Grid.Width.

Hat jemand eine Idee, warum das jetzt hier nicht klappt. Bei dem anderen Grid läuft es wunderbar...

Vielen Dank
Patrick
Patrick
  Mit Zitat antworten Zitat