StringGrid Objects: Warum geht das nicht?

[guidobrose]

Hallo zusammen,

ein kleines Problem: Ich experimentiere gerade damit herum die Objects des StringGrid zu verwenden und zwar möchte ich im Grid festhalten, ob eine Row des Grid als Vorschlagswert verwendet wird (Daten kommen aus einer DB) und sobald der Benutzer das Grid anklickt soll die Row als Ausgewählt markiert werden. Hier mal ein paar Codeschnipsel:

Delphi-Quellcode:

//Der Objekttyp für das Grid
type
  TStellplatz = class(TObject)
    private
      Suggested: boolean;
      Selected: boolean;
      end;

//Hier wird das Objekt dem Grid (immer Spalte 0) zugeordnet
procedure TFrmLlesy.AnmeldungAddStellplatzToGrid;
var
  AObject : TStellplatz;
begin
  AObject:=TStellplatz.Create;
  AObject.Suggested:=IsSuggested;
  AObject.Selected:=false;
  StrngGrdAnmeldungStellplaetze.Objects[0,ARow]:=AObject;
end;

//Hier wird geprüft, ob das Bit Suggested gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSuggested;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
  result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Suggested
else
  result:=false;
end;

//Hier wird geprüft, ob das Bit Selected gesetzt ist
function TFrmLlesy.AnmeldungStellplatzSelected;
begin
if StrngGrdAnmeldungStellplaetze.Objects[0,ARow]<>nil then
  result:=TStellplatz(StrngGrdAnmeldungStellplaetze.Objects[0,ARow]).Selected
else
  result:=false;
end;

//Hier wird das Grid zum ersten Mal befüllt
...
AnmeldungAddStellplatzToGrid(ARow,ADOQry.FieldByName('stv').AsInteger>0);
...

//Hier ein Ausschnitt aus der OnDrawCell Routine
...
  if ACol=1 then
    begin
    Canvas.Brush.Color:=clBtnFace;
    Canvas.FillRect(Rect);
    if AnmeldungStellplatzSuggested(ARow) then
      begin
      ImgLst.GetBitmap(6,AImage);
      Canvas.StretchDraw(Rect,AImage);
      end;
    if AnmeldungStellplatzSelected(ARow) then
      begin
      ImgLst.GetBitmap(7,AImage);
      Canvas.StretchDraw(Rect,AImage);
      end;
    end;

//Hier soll beim Klicken des Grid Selected zugewiesen werden
procedure TFrmLlesy.StrngGrdAnmeldungStellplaetzeClick(Sender: TObject);
begin
(StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected:=true//not (StrngGrdAnmeldungStellplaetze.Objects[0,StrngGrdAnmeldungStellplaetze.Row] as TStellplatz).Selected;
end;

Das Einfügen der Grafik in das Gitter bei Suggested funktioniert so perfekt, wenn ich gleich am Anfang auch Selected auf True setzte dann wird auch korrekt die andere Grafik angezeigt. Es scheint also am Klickereignis des Gitters zu liegen. Ich habe da jetzt schon alle möglichen Sachen probiert, aber irgendwie klappt es nicht. Warum???

Danke und Gruß, Guido

[uwewo]

Brauchen Deine Funktionen den keinen Ergebnistyp?

[guidobrose]

Ja, sorry. Der steht in der Deklaration.

Delphi-Quellcode:

    procedure AnmeldungAddStellplatzToGrid(ARow:Integer;IsSuggested:boolean);
    function AnmeldungStellplatzSuggested(ARow:Integer):boolean;
    function AnmeldungStellplatzSelected(ARow:Integer):boolean;

Daran sollte es aber definitiv nicht liegen. "Suggested" funktioniert einwandfrei und wenn ich bei der Objektzuweisung an das Grid Selected gleich mit auf True setze, dann klappt das auch.

[uwewo]

Schau mal bei Delphi about vorbei, dort findest Du mehrere Artikel zum Bsp. Drop down list (DBLookupComboBox) inside a DBGrid

Schönes Wochenende

[guidobrose]

Naja, ist ja ganz interessant und ich werde es tatsächlich demnächst benötigen, eine Combobox in ein Grid zu bauen, aber was hat das mit meinem Problem zu tun? Ich steh ein wenig auf dem Schlauch.

[uwewo]

Ok stimmt, vielleicht hat das

Zitat von guidobrose:

Ich experimentiere gerade damit herum die Objects des StringGrid zu verwenden und zwar möchte ich im Grid festhalten, ob eine Row des Grid als Vorschlagswert verwendet wird (Daten kommen aus einer DB) und sobald der Benutzer das Grid anklickt soll die Row als Ausgewählt markiert werden.

mich etwas verwirrt.

Was steht eigentlich in der function IsSuggested?

[guidobrose]

IsSuggested ist ein boolscher Übergabeparamter für die procedure AnmeldungAddStellplatzToGrid

[guidobrose]

Hab es jetzt herausgefunden warum es nicht ging. Im Prinzip hat alles funktioniert wie gewollt, das Grid wurde nur nicht neu gezeichnet. Jetzt rufe ich Repaint auf und es geht!

Leider habe ich jetzt ein neues Problem, das Drehen des Scrollrades an der Maus wird wohl als Clickereignis gewertet und führt jetzt auch zum Markieren.
Wie kann ich das verhindern?

[Muehle]

wo kriegst du eigentlich das aRow in deinen
Prozeduren/Funktionen her ???