Know if the form is modal

Spread the love

Know if the form is modal

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (fsModal in FormState) then
    ShowMessage('Form is modal.');
end;