All pastes #396536 Raw Edit

Stuff

public text v1 · immutable
·published 2007-03-15 20:57 UTC
rendered paste body
Procedure TCSettingsFunctions.FocusLost;
Var
  ActiveHandle    : THandle;
Begin
  ActiveHandle := GetForegroundWindow();
  If ActiveHandle <> Form1.Handle Then
  Begin
    If HideOnMinimize = 1 Then
      Form1.Hide;
    If AddToSysTray = 1 Then
      form1.Minimize;
    If (HideOnMinimize = 0) And (AddToSysTray = 0) Then
      Application.Minimize;
  End;
End;