Alle DB Edit-Controls auf einem Panel auf Read-Only stellen

[mschaefer]

Moin, moin

An meinem Datenbankprogramm möchte ich nach Abschluss aller Einträge alle datensinsitive Controls
auf Read-only stellen. Da hänge ich. Also es sollen nur die Elemente auf einem bestimmten TPanel im Formular auf Read-only gestellt werden. Hat da jemand eine Idee ??

Grüße // Martin

[mirage228]

Du könntest mit PanelX.Controls auf alle Controls des Panels zugreifen und diese auf read-only stellen.

Delphi-Quellcode:

uses
  TypInfo;

var
  i: integer;
begin
  for i := 0 to PanelX.ControlCount-1 do
  begin
    if IsPublishedProp(PanelX.Controls[i], 'ReadOnly') then
      SetOrdProp(PanelX.Controls[i], 'ReadOnly', Integer(True));
  end;

P.S.: PanelX ist das Panel wo die ganzen Komponenten drauf liegen.

Edit: Rechtschreibfehler :twisted:

mfG
mirage228

[mschaefer]

Hallo Mirage228,

knapp und präzise! Danke

Grüße // Martin

[Stevie]

Wow, das ist ja mal genial! Das kann ich auch gut gebrauchen... :thuimb:

[mschaefer]

Ist übrigens die Delphi 6 und höher Variante,
bei den tieferen Versionen sieht das etwas anders aus...

Grüße // Martin

[dor557]

Wenn wir schon dabei sind. Kann ich auch einzelnen Komponenten wo der Quellcode existiert eine ReadOnly eigenschaft geben z.b. einer Checkbox ?

Soll namlich nicht anklickbar sein. Da es nur als Ablaufsinformation gillt....

Gruss Sascha

[mschaefer]

greyed := true