DBEdit Farbe ändern bei ReadOnly - Welches Event

[mschaefer]

In einer abgeleiteten DBEdit-Komponente möchte ich die Hintergrundfarbe ändern, wenn der DataSet nur im ReadOnly-Modus ist. Welches Event bekommt die Änderung des DataSet-Status mit ?

[Stevie]

Das wird so einfach nicht gehen, das ReadOnly wird über den TFieldDataLink gesteuert und der ist leider private.

[mschaefer]

Ja und OnDataChange ist auch private. Sich an die zugehörge Datasource zu hängen ist auch schon gescheitert. Bei Memos bekomme ich es im Moment nur bei Blobfeldern hin, da LoadMemo nur protected ist. Das bringt mich noch in den Wahn...

[Stevie]

Einfach mal so runtergeschrieben und ein wenig mit nem simplen Programm getestet:

Delphi-Quellcode:

type
  TDataSourceHack = class(DB.TDataSource)
  end;

  TControlHack = class(Controls.TControl)
  end;

// kommt ins OnDataChanged der DataSource - könnte man auch über das abgeleitete DBEdit dranhängen
var
  Link: Pointer;
begin
  for Link in TDataSourceHack(Sender).DataLinks do
  begin
    if (TObject(Link) is TFieldDataLink)
      and (TFieldDataLink(Link).Control is TControl) then
    begin
      if TDataSourceHack(Sender).DataSet.CanModify
        and (not Assigned(TFieldDataLink(Link).Field)
        or not TFieldDataLink(Link).Field.ReadOnly) then
        TControlHack(TFieldDataLink(Link).Control).Color := clWindow
      else
        TControlHack(TFieldDataLink(Link).Control).Color := clBtnFace;
    end;
  end;
end;

[mschaefer]

Hallo Stefan,

zunächst mal Danke. Du hast das doch mit Raffinesse garniert, denn so kann man mehrere Komponenten im DataSource.OnChange-Event aus umfärben.

Für meine Komponente hätte dies zur Folge gehabt, dass ich die Property-Zuweisungen für Datafield und Datasource hätte neu schreiben müsssen um mit der Zuweisung den Zeiger auf das DataSource.OnChange zu bekommen. Habe mich nun für einen anderen Weg entschieden:

Delphi-Quellcode:

constructor TC_DBMemo.Create(AOwner: TComponent);
begin
   inherited;
   { ...                    }
   FDataLink := TFieldDataLink(self.Perform(CM_GETDATALINK, 0, 0));
   PtrDataChange             := FDataLink.OnDataChange;
   FDataLink.OnDataChange    := OnNowDataChange;
end;

procedure TCR_DB_Memo.OnNowDataChange(Sender: TObject);
begin
   if DataSource <> nil then
      if DataSource.DataSet <> nil then
      begin 
        if    FDataLink.ReadOnly = true 
        then color:=clwindows 
        else color := clblue;
      end; 
   ;
   PtrDataChange( Sender );
end;

Da Private OnDataChange dem DataLink nach dem inherited im Create zugewiesen ist, habe ich einen Pointer auf die Private-Procedure und kann den zwischenspeichern. Hätte wohl noch einen Weg über Interfaces gegeben, aber die Webseite kennst Du ja bestens.

Grüße aus Hannover

[Stevie]

Mason hat vor einigen Monaten das gleiche Problem gehabt, und er hat's mit der Keule gelöst

Das mit der CM_CM_GETDATALINK Message ist eigentlich die "perfekte" Lösung in meinen Augen. Hab ich komplett übersehen.

[mschaefer]

Keulen gehören auf den Grill , aber die ist ziemlich allgemein, Danke für den Link !