Einzelnen Beitrag anzeigen

davtix

Registriert seit: 29. Mai 2003
Ort: Berlin
87 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#8

AW: stringgrid fixedcol oder fixedrow klick

  Alt 12. Aug 2014, 17:14
uii, danke schön.

hab mir heut morgen auf m rad so überlegt das mit Mouse.CursorPos zu realisieren ... aber die ganze rechnerei ist bestimmt keine gute idee für die cpu ,oder??

jetzt muss ich nur noch so kleinen pfeil (für sortierung) auf die fixed col bringen ... könnt ich das mit (code unten) auch realisieren???

Code:
  if ( 4 = vari ) and (bearbMod = 1) and (MRow >= form5.StringGrid1.FixedRows) then begin
    form5.StringGrid1.Perform(WM_CANCELMODE, 0, 0);
    R := form5.StringGrid1.CellRect(MCol, MRow);
    org := form5.StringGrid1.ScreenToClient(form5.StringGrid1.ClientToScreen(R.TopLeft));
    with form5.ComboBox1 do begin
      SetBounds(org.X, org.Y, R.Right-R.Left, form5.Stringgrid1.Height);
      ItemIndex := Items.IndexOf(form5.StringGrid1.Cells[MCol, MRow]);
      Show;
      BringToFront;
      SetFocus;
      DroppedDown := true;
    end;
  end else begin
      form5.ComboBox1.Visible:=false;
  end;

Geändert von davtix (12. Aug 2014 um 17:23 Uhr)
  Mit Zitat antworten Zitat