Marker en celle eller et item i en listbox

I en Listbox markere du en item med ItemIndex f.eks.

Listbox1.ItemIndex := 1;

også er det item med index i markeret på skærmen eller hvad?

Ved du hvordan det gøres i StringGrid?

Ved ik om det virker, men du kan prøve:

http://www.swissdelphicenter.ch/torry/showcode.php?id=349

Jeg prøver når jeg kommer hjem.

Jeg ved godt at man ikke må reklamere for spm, men nu når du plejer at svare på delphi spm, så .... Kender du noget til det her:

http://www.eksperten.dk/spm/404828

Nej, desværre... Har kun Delphi 7 Personal (Uden Database komponenter), så har ik haft mulighed for at "lege" med databaser.

du finder det markerede element ved i listbox1click at skrive:

showmessage('du klikkede på '+listbox1.items.strings[listbox1.itemindex]);

ja. Men nu er det fordi at jeg kender et index og vil have det markeret. Det er altså ikke brugeren, der skal markere.

StringGrid1.Col := 7;
StringGrid1.Row := 3;

Så vil celle(7, 3) (nulbaseret, husk det) være markeret.
Du kan også bruge dem omvendt:

ShowMessage(IntToStr(StringGrid1.Col), IntToStr(StringGrid1.Row));

Det var naturligvis et svar :-)

Rettelse:
Ikke

ShowMessage(IntToStr(StringGrid1.Col), IntToStr(StringGrid1.Row));

men

ShowMessage(IntToStr(StringGrid1.Col) + ' x ' + IntToStr(StringGrid1.Row));

Athlon er det så sådan at brugeren kan se den er markeret?

I stringgridens Options sætter du goDrawFocusSelected til true, så kan man :-)

Den kender ikke goDrawFocusSelected. Jeg bruger delphi 4.

Den er i Object Inspectoren, hvis du klikker på + ud for Options :-)

ha ha. Jeg kan alligevel ikke se det fordi der er farver i griden så selected bliver overmalet. Kan jeg ikke sætte en ramme omkring istedet? Det samme gælder i øvrigt listen.

Tror man kan lave det med canvas.. måske:

procedure TStringGrid1DrawCell(....);
begin
if (StringGrid1.Row = ARow) and (StringGrid1.Col = ACol) then
begin
  StringGrid1.Canvas.Pen.Color := clRed;
  StringGrid1.Canvas.Rectangle(Rect);
end;
end;

Ellers kan du jo bare farve den markede celle med en anden farve sådan:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = StringGrid1.Col) and (ARow = StringGrid1.Row) then
  begin
    StringGrid1.Canvas.Brush.Color := clRed;
    StringGrid1.Canvas.Rectangle(Rect);
    StringGrid1.Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, StringGrid1.Cells[ACol, ARow]);
  end;
end;

Ja, men det ønsker jeg ikke, så jeg prøver lige det med rammen

Prøv at kigge på State: TGridDrawState,
if (ACol = StringGrid1.Col) and (ARow = StringGrid1.Row) then
kan erstattes med noget simplere :-)

I øvrigt kan StringGrid1.Canvas.DrawFocusRect; anbefales når rammen skal tegnes :-)

Kan se den procedure jeg lavede længere oppe ikke virker, men med athlons.. DrawFocusRect under StringGrid1.Canvas.Rectangle(Rect); virker den vist som den skal :-)

Ok. Nu virker det sgu. Tak for hjælpen. Men rammen er rimelig utydelig. Er der nogen måde, hvorpå man kan gøre rammen tyk og fed?

Det her skulle gøre den dobbelt så tyk:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol = StringGrid1.Col) and (ARow = StringGrid1.Row) then
  begin
    StringGrid1.Canvas.Pen.Color := clRed;
    StringGrid1.Canvas.Pen.Width := 2;
    StringGrid1.Canvas.Rectangle(Rect.Left+1,Rect.Top+1,Rect.Right,Rect.Bottom);
    StringGrid1.Canvas.DrawFocusRect(Rect);
  end;
end;

Hej. Smider lige nogle flere point, da problemet ikke var så simpelt som først antaget. hejhej det kan jeg ikke rigtig få til at fungere. Hvis jeg i min TStringGrid1DrawCell har jeg:

Canvas.Brush.color := BGColor;
      Canvas.Font.Color := FColor;
    end;
      Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, cells[acol, arow]);
      Canvas.FrameRect(Rect);
      if (TidGrid.row = Arow) and (tidGrid.col = Acol) then
      begin
        TidGrid.Canvas.Pen.Color := clBlack;
        TidGrid.Canvas.Pen.Width := 5;
        TidGrid.Canvas.DrawFocusRect(Rect);
      end;

Men rammen bliver ikke mere markant. ?!?!?

Prøv det her:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
R:TRect;
begin
  with StringGrid1 do
  begin
  Canvas.Brush.color := clRed;
  Canvas.Font.Color := clBlack;
  Canvas.FillRect(Rect);
  if (Row = ARow) and (Col = ACol) then
  begin
    Canvas.Pen.Color := clBlack;
    Canvas.Pen.Width := 5;
    Canvas.Rectangle(Rect.Left+2,Rect.Top+2,Rect.Right-2,Rect.Bottom-2);
    Canvas.DrawFocusRect(Rect);
  end;
  R := Rect;
  Inc(R.Left,5);
  Inc(R.Top,5);
  Dec(R.Right,5);
  Dec(R.Bottom,5);
  Canvas.TextRect(R, R.Left, R.Top, Cells[acol, arow]);
  end;
end;

Sker der mere??

Ja. Undskyld jeg ikke har svaret, men jeg har simpelt hen ikke haft tid til at komme videre med projektet, hvilket betyder at jeg ikke har afprøvet det. Jeg skal nok svare så snart jeg får tid til at afprøve det.

Så fik jeg endelig tid til at kigge på det. Jeg brugte næsten din løsning hejhej, men jeg brugte framerect istedet for textrect.