StringGrid: Klick auf FixCol?

[Helmi]

Hallo,

wie kann ich rausfinden, wenn jemand mit der Maus auf eine Zelle in der FixCol (hab nur eine) klickt?

ich hab schon folgendes probiert:

Delphi-Quellcode:

procedure TMainForm.StringGrid_AblaufClick(Sender: TObject);
var
  Maus_Zeile, Maus_Spalte: Integer;
  MousePos: TPoint;

begin
  GetCursorPos(MousePos);

  with StringGrid_Ablauf do
    begin
      MouseToCell(MousePos.X, MousePos.Y, Maus_Spalte, Maus_Zeile);

      If Maus_Spalte = 0 then
        StringGrid_Zeile_markieren;
    end;
end;

Aber das OnClick-Event wird scheinbar nicht bei FixCols ausgelöst.

Ich hab auch schon mal OnSelectCell probiert, aber dies wird nur ausgelöst, wenn eine Zelle selectiert wird, da das aber eine FixCol ist, kann ich sie nicht selectieren.

[idontwantaname]

OnMouseDown hilft auch nicht ?

[Helmi]

Zitat:

Zitat von idontwantaname

OnMouseDown hilft auch nicht ?

shit - das hab ich total vergessen! :wall:

Das geht! - Danke! :thumb:

[Buddelflink089]

Delphi-Quellcode:

procedure TForm1.StringGrid_AblaufMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
begin
  StringGrid_Ablauf.MouseToCell(x, y, ACol, ARow);
  if (ARow = 0) and (Button = mBLeft) then 
{ Programmcode der ausgeführt werden soll }
    ShowMessage('Header ' + IntToStr(ACol));
end;

procedure TForm1.StringGrid_AblaufMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var ACol, ARow: Integer;
begin
  StringGRid_Ablauf.MouseToCell(x, y, ACol, ARow);
  if ARow = 0 then
    StringGrid_Ablauf.Cursor:= crHandPoint
   else
    StringGrid_Ablauf.Cursor:= crArrow;
end;

Sollte helfen :gruebel:

Liebe Grüsse Mario

PS: MouseMove als Zuckerl, damit der Benutzer sieht das an diesem 'Buttom' etwas zu machen ist :idea:

[Christian Seehase]

Moin Helmi,

nimm aber lieber MouseUp, um den "Click" auszulösen.
Das entspricht dann dem "normalen" Verhalten.