Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#6

Re: TStringGrid, DblClick Ereignis auf fixed Row vermeiden

  Alt 31. Aug 2006, 16:28
Hallo,

so gehts direkt im OnDblClick-Event:

Delphi-Quellcode:
var aPoint : TPoint;
    ACol,ARow : Integer;
begin
  with StringGrid1 do
    begin
    GetCursorPos(aPoint);
    aPoint := ScreenToClient(aPoint);
    MouseToCell(aPoint.x,aPoint.y,ACol,Arow);
    if ARow >= FixedRows then
      //mach was;
    end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat