SpkControls/SpkPopupWindow.inc at main · 1-berto/SpkControls · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
{%MainUnit SpkCtrls.pp}

(*
    TSpkPopupWindow
*)

(*
    PROTECTED
*)
procedure TSpkPopupWindow.Deactivate;
begin
  inherited Deactivate;
  if FAutoDestroy then
    begin
      PopupFrm := nil;
      Self.Destroy();
    end
  else
    Self.Hide;
end;

(*
    PUBLIC
*)
constructor TSpkPopupWindow.CreateNew(AOwner: TComponent; Num: Integer=0);
begin
  inherited CreateNew(AOwner,Num);
  Visible      := False;
  ShowInTaskBar:= stNever;
  FormStyle    := fsStayOnTop;
  BorderStyle  := bsNone;
  PopupFrm     := Self;
end;

procedure TSpkPopupWindow.ShowAt(const AX, AY: Integer; AAutoDestroy: Boolean = False);
begin
  FAutoDestroy := AAutoDestroy;
  Self.SetBounds(AX, AY, Width, Height);
  Self.ShowOnTop;
end;

procedure TSpkPopupWindow.ShowMe(ADeactiveEvent: TNotifyEvent; AAutoDestroy: Boolean = False);
begin
  FAutoDestroy := AAutoDestroy;
  OnDeactivate := ADeactiveEvent;
  Self.ShowOnTop;
end;

procedure TSpkPopupWindow.Finishit();
begin
  Self.Deactivate;
end;