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ß