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

[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

mfG
mirage228