procedure TCreateForm.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if Stringgrid1.Col = 0 then label1.Caption := stringgrid1.Cells[ACol,ARow]; end;
Og jeg har prøvet med Begin...End. Det samme resultat.
Hvis jeg gør sådanne her:
procedure TCreateForm.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin label1.Caption := inttostr(stringgrid1.Col); label2.Caption := inttostr(stringgrid1.Row); end;
og trykker sådan lidt rundt omkring sker der det, at hvis jeg har trykket på Cell[0,1] får jeg svar der hedder 0,1. Hvis jeg trykker Cell[1,1] får jeg 0,1 men hvis jeg trykker tilbage på cell[1,1] får jeg 1,1.
For det første kan jeg ikke se, hvorfor at jeg skulle acceptere dit svar idet, at det du har beskrevet er en ting jeg har lavet før at du kom med den. Og for det andet, er det slet ingen forskel i de 2 mulige løsninger.
procedure TCreateForm.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if Stringgrid1.Col = 0 then label1.Caption := stringgrid1.Cells[ACol,ARow]; end;
procedure TCreateForm.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if Stringgrid1.Col = 0 then begin label1.Caption := stringgrid1.Cells[ACol,ARow]; end; end;
Men hvis du mener at den du har beskrevet er den rigtige, så fortæl mig i hvilken event at den skal skrives. For jeg kan ikke få den til at virke.
Hej Martin, tak for indlægget, men jeg tror faktisk at jeg kunne se hvad det var at Spil2Vind mente nu. Han manglede dog lige at nævne at den skulle have været i OnClick. Så jeg vil acceptere spil2vinds forslag.
Jeg tror det er ligesom CanClose på din FormCloseQuery event. Noget med at du kan bestemme om man må Select'e den celle, så jeg tænkte at det måske var fordi den ikke var TRUE. Det var bare en hurtig tanke :)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.