Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.628 Beiträge
Delphi 12 Athens
|
Re: Mauspoitison zum Fenster
12. Okt 2008, 19: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
|