Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>Here's a more complicated (but more elegant) alternative solution, defining an entirely custom Form class from which you can inherit your own...</p> <pre><code>unit FMX.ConstrainedForm; interface uses System.Classes, System.Types, System.UITypes, FMX.Forms, FMX.Platform, FMX.Types; type TFormConstraints = class(TPersistent) private FMaxHeight: Integer; FMaxLeft: Integer; FMaxWidth: Integer; FMaxTop: Integer; FMinHeight: Integer; FMinLeft: Integer; FMinWidth: Integer; FMinTop: Integer; public constructor Create; published property MaxHeight: Integer read FMaxHeight write FMaxHeight default 0; property MaxLeft: Integer read FMaxLeft write FMaxLeft default 0; property MaxWidth: Integer read FMaxWidth write FMaxWidth default 0; property MaxTop: Integer read FMaxTop write FMaxTop default 0; property MinHeight: Integer read FMinHeight write FMinHeight default 0; property MinLeft: Integer read FMinLeft write FMinLeft default 0; property MinWidth: Integer read FMinWidth write FMinWidth default 0; property MinTop: Integer read FMinTop write FMinTop default 0; end; TConstrainedForm = class(TCustomForm) private FConstraints: TFormConstraints; protected procedure StartWindowResize; override; procedure StartWindowDrag; override; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; published property Constraints: TFormConstraints read FConstraints write FConstraints; property BiDiMode; property Caption; property Cursor default crDefault; property BorderStyle default TFmxFormBorderStyle.bsSizeable; property BorderIcons default [TBorderIcon.biSystemMenu, TBorderIcon.biMinimize, TBorderIcon.biMaximize]; property ClientHeight; property ClientWidth; property Left; property Top; property Margins; property Position default TFormPosition.poDefaultPosOnly; property Width; property Height; property ShowActivated default True; property StaysOpen default True; property Transparency; property TopMost default False; property Visible; property WindowState default TWindowState.wsNormal; property OnCreate; property OnDestroy; property OnClose; property OnCloseQuery; property OnActivate; property OnDeactivate; property OnResize; property Fill; property StyleBook; property ActiveControl; property StyleLookup; property OnPaint; end; procedure Register; implementation { TFormConstraints } constructor TFormConstraints.Create; begin inherited; FMaxHeight := 0; FMaxLeft := 0; FMaxWidth := 0; FMaxTop := 0; FMinHeight := 0; FMinLeft := 0; FMinWidth := 0; FMinTop := 0; end; { TConstrainedForm } constructor TConstrainedForm.Create(AOwner: TComponent); begin FConstraints := TFormConstraints.Create; inherited; end; destructor TConstrainedForm.Destroy; begin FConstraints.Free; inherited; end; procedure TConstrainedForm.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); begin if (FConstraints.FMinWidth &gt; 0) and (AWidth &lt; FConstraints.FMinWidth) then AWidth := FConstraints.FMinWidth; if (FConstraints.FMaxWidth &gt; 0) and (AWidth &gt; FConstraints.FMaxWidth) then AWidth := FConstraints.FMaxWidth; if (FConstraints.FMinHeight &gt; 0) and (AHeight &lt; FConstraints.FMinHeight) then AHeight := FConstraints.FMinHeight; if (FConstraints.FMaxHeight &gt; 0) and (AHeight &gt; FConstraints.FMaxHeight) then AHeight := FConstraints.FMaxHeight; if (FConstraints.FMinLeft &gt; 0) and (ALeft &lt; FConstraints.FMinLeft) then ALeft := FConstraints.FMinLeft; if (FConstraints.FMaxLeft &gt; 0) and (ALeft &gt; FConstraints.FMaxLeft) then ALeft := FConstraints.FMaxLeft; if (FConstraints.FMinTop &gt; 0) and (ATop &lt; FConstraints.FMinTop) then ATop := FConstraints.FMinTop; if (FConstraints.FMaxTop &gt; 0) and (ATop &gt; FConstraints.FMaxTop) then ATop := FConstraints.FMaxTop; Platform.SetWindowRect(Self, RectF(ALeft, ATop, ALeft + AWidth, ATop + AHeight)); inherited SetBounds(ALeft, ATop, AWidth, AHeight); end; procedure TConstrainedForm.StartWindowDrag; begin inherited; end; procedure TConstrainedForm.StartWindowResize; begin inherited; end; procedure Register; begin RegisterClass(TConstrainedForm); end; end. </code></pre> <p>Store this file as FMX.ConstrainedForm.pas, add it to your Form's "uses" section, and modify the declaration of your form so that instead of:</p> <pre><code>TForm1 = class(TForm) </code></pre> <p>it says:</p> <pre><code>TForm1 = class(TConstrainedForm) </code></pre> <p>Due to the lack of a custom designed (at this point anyway, this is a "quick solution"), you then need to hook your form's OnCreate event as follows:</p> <pre><code>procedure TForm1.FormCreate(Sender: TObject); begin Constraints.MinWidth := 400; Constraints.MinHeight := 400; end; </code></pre> <p>Now this form will not allow the user to set its width or height below 400!</p> <p>Again, without making some substancial changes to the FireMonkey Platform itself, this is the best you're going to get for now!</p>
    singulars
    1. This table or related slice is empty.
    1. POHow to restrict minimum form's width in FireMonkey?
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USLaKraven
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COYikes...! Is that what it takes these days to just set a form minimum??? It used to just be one field in Delphi...
      singulars
      1. PO
      1. UStdog2
    2. COCould you tell me, where would I put the above code? In a new unit? Forgive my ignorance. I'm not very knowledgable about anything that leaves the default Delphi form. Can you somehow work this code into the default Form1
      singulars
      1. PO
      1. UStdog2
    3. COYes, you'd place this ideally in a separate unit with the name "FMX.ConstrainedForm.pas", which is then linked to your project!
      singulars
      1. PO
      1. USLaKraven
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload