Semitransparente Abdeckung eines Grids

[MaBuSE]

Hallo,
ich habe mir erlaubt, die uSchleier um einen class helper zu erweitern und die Unit von DevExpress zu befreien.

Damit ist es nun sehr einfach möglich den Schleier zu verwenden.

Jedes TWinControl wird damit um 2 Eigenschaften erweitert.

• property SchleierMessage: string; .
  Das ist die Meldung die über der ausgegrauten Komponente angezeigt wird.
  (Default = 'bitte warten...')
• property SchleierActive: Boolean; .
  Damit wird die Komponente ausgegraut und die Meldung angezeigt

Es muß nur die Unit uSchleier eingebunden werden.

Beisp.

Delphi-Quellcode:

...
uses 
  uSchleier;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  Panel1.SchleierMessage := 'MaBuSE';
  Panel1.SchleierActive := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Panel1.SchleierActive := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Panel1.SchleierActive := not Panel1.SchleierActive;
end;
...

Viel Spaß