---
title: "Delphi Pascal fråga"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/192638-delphi-pascal-fråga"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "urban_hahne"
published: "2015-03-24T01:51:01.000Z"
updated: "2015-03-24T11:57:48.000Z"
replies: 1
views: 1613
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/192638-delphi-pascal-fråga"
---

# Delphi Pascal fråga

## #1 — urban_hahne, 2015-03-24T01:51Z

Jag har en rutin som när jag klickar på en ruta i en stringgrid så erhåller jag radnr och kolnr. Dessa vill jag använda i en procedur som ändrar färg på den rutan. Hur ka man göra detta?
Här är koden som ger mig rad & kol.

```
procedure TForm1.stgDataSelectCell(Sender: TObject; ACol,ARow: Integer; var CanSelect: Boolean);
begin
showmessage('Selected COL & ROV (number): '+IntToStr(ACol)+'  '+IntToStr(ARow));
end;
```

Här har jag en procedur som ändrar färg i angiven ruta. Är det en framkomlig väg att anropa denna procedur och hur gör man det i så fall?

```
procedure TForm1.stgDataDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

begin

  if (ACol = 2) and (ARow = 3) then
    with TStringGrid(Sender) do
    begin
      //paint the background Green
      Canvas.Brush.Color := clBlack;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol, ARow]);
    end;
end;
```

Permalänk: https://www.webforum.nu/p/192638

## #2 — metalboy, 2015-03-24T11:57Z

Här finns ett kodexempel som du kanske kan utgå ifrån:
<http://www.festra.com/wwwboard/messages/12892.html>

Permalänk: https://www.webforum.nu/p/2318420

---

Tråden på webben: https://www.webforum.nu/amne/programmering/192638-delphi-pascal-fråga