Posts

Showing posts with the label Forms Tips

know if the form is modal

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