Schön wäre es, wenn du diese
Unit bei Verbesserungen
mir dann auch wieder zukommen lassen könntest.
Gruß aus den Bergen
Günter
Hallo,
Pack mal ein TMemo auf ein Form, füll es mit Text, schalte beide Scrollbalken an (
scrollbars := ssBoth
) und erzeuge dann den Schleier.
Delphi-Quellcode:
var
t: TSchleier;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(t) then
begin
t := TSchleier.Create(self);
t.HideControl := Memo1;
t.MessageText := 'Test';
t.Active := True;
end
else
begin
t.Active := False;
t.Free;
t := nil;
end;
end;
Ich hoffe das ist so richtig.
Der Scheier wird auf das TMemo gelegt.
Folgende Probleme sind mir aufgefallen:
- Scheier ist nur auf der Editfläche, nicht auf den Scrollbereich.
- Scrollbalken lassen sich anklicken und bewegen
- Es ist noch ein kleiner weißer Bereich des Editbereichs sichtbar
- Der weiße Rand ist klickbar und man ist im TMemo und kann editieren.
- Man kann via Tab Taste in das TMemo gelangen und es Editieren.
Eine einfache Lösung dieses Problem ware eine zusätzliche Zeile in Deinem Quellcode um Enabled des Controls zu setzen:
Delphi-Quellcode:
procedure TSchleier.SetActive(const Value: Boolean);
begin
if FActive = Value then exit;
FActive := Value;
if FActive then begin
DoThunk;
FHook := SetWindowsHookEx(WH_CALLWNDPROC, FStub, 0, GetCurrentThreadId);
if FForm = nil then FForm := TSchleierForm.mgmCreate(TWinControl(HideControl.Owner));
MessageText := MessageText;
FForm.HideControl := HideControl;
end
else begin
if FForm <> Nil
then FForm.HideControl := nil;
if FHook <> 0
then UnhookWindowsHookEx(FHook);
FHook :=0;
end;
//
if (FForm <> Nil) then begin
FForm.Visible := Value;
end;
HideControl.Enabled := not Value; // <--
end;
Ich hoffe das hilft Dir.