Thema: Delphi Mauspoitison zum Fenster

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#5

Re: Mauspoitison zum Fenster

  Alt 12. Okt 2008, 18:26
Zitat:
Die Methode MouseToCell gibt die Spalte und die Zeile der Zelle zurück, die sich an den Bildschirmkoordinaten X und Y befindet.
[edit]
Hier mal ein Beispiel:
Delphi-Quellcode:
procedure TForm1.StringGrid1Click(Sender: TObject);
var aCol, aRow: Integer;
    P: TPoint;
begin
  //Screen-Koordinaten in relative Koordinaten umrechnen
  P := StringGrid1.ScreenToClient(Mouse.CursorPos);
  //Entsprechende Zelle ermitteln
  StringGrid1.MouseToCell(P.X,P.Y,aCol,aRow);
  //fixe Spalten/Zeilen lasse ich mal außen vor
  if (aCol >= StringGrid1.FixedCols) and (aRow >= StringGrid1.FixedRows) then
    StringGrid1.Cells[aCol,aRow] := 'X';
end;
[/edit]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat