Form Utilities¶

Forms and components extensions.

The following contains custom components and methods to be used in a TLazForm.

TFormUtils¶

Type that olds several method utilities for TLazForms.

FormUtils.NumberField¶

procedure TFormUtils.NumberField(sender: TLazObject; var key: Char);

Callback method to limit user input to numbers only and backspace. This numbers can be Integers only. For Doubles check FormUtils.FloatField

FormUtils.FloatField¶

procedure TFormUtils.FloatField(sender: TLazObject; var key: Char);

Callback method to limit user input to numbers only and backspace. This numbers can be Integers or Doubles only. For Integers only check FormUtils.FloatField

FormUtils.MailField¶

procedure TFormUtils.MailField({$H-}sender: TLazObject;{$H+} var key: Char);

Callback method to limit user input to characters used in email addresses.

FormUtils.TimeField¶

procedure TFormUtils.TimeField(sender: TLazObject; var key: Char);

Callback method to limit user input to numbers only, backspace and a few characters used in time like “:”, “-”, “_”, “,”, etc.

FormUtils.NumberArrayField¶

procedure TFormUtils.NumberArrayField(sender: TLazObject; var key: Char);

Callback method to limit user input to a TIntegerArray. Brackets not included.

FormUtils.OpenURL¶

procedure TLazControl.OpenURL(sender: TLazObject);

Opens the URL in the control caption if there’s any.

FormUtils.OnMouseEnterURL¶

procedure TFormUtils.OnMouseEnterURL(sender: TLazObject);

Mouse hover callback for URLs. Basically changes the control text color to blue. If you use this you should also use FormUtils.OnMouseLeaveURL to restore the color to the default when the mouse leaves the control.

FormUtils.OnMouseLeaveURL¶

procedure TFormUtils.OnMouseLeaveURL(sender: TLazObject);

Mouse leave callback for URLs. Basically changes the control text color to the default.

This should only be used if you are also using FormUtils.OnMouseEnterURL to change the control text color to blue.

FormUtils.OnCheckboxAnchorClick¶

procedure TFormUtils.OnCheckboxAnchorClick(sender: TLazObject);

Made for components that are anchored to a TLazCheckbox, this makes it so clicking them toggles the checkbox.

FormUtils.OnCheckboxToggleParent¶

procedure TFormUtils.OnCheckboxToggleParent(sender: TLazObject);

Made for TLazCheckbox so they can enable/disable all of their sibling components.

TLazControl.SetFontColor¶

procedure TLazControl.SetChildsFontColor(value: Integer);

Recursevely sets all childrens fonts colors to value.

TLazComponent.GetChild¶

function TLazComponent.GetChild(name: String): TLazComponent;

Recursively search for a children with the specified name.

TLazComponent.RemoveChildren¶

procedure TLazComponent.RemoveChildren(release: Boolean = False);

Recursively remove children from a parent.

To also free the parent set release to true.

All children are freed when using this.

TLazLabel.SetURL¶

procedure TLazLabel.SetURL();

Makes a TLazLabel a clickable URL that will open in the browser.

You must set the caption yourself.

Example:

lbl.Caption := 'https://waspscripts.dev';
lbl.SetURL();

CustomEdit.IsEmpty¶

function TCustomEdit.IsEmpty(): Boolean;

Returns true or false if the TCustomEdit are empty. This includes:

TCustomEdit
TLazEdit
TLazMemo

CustomEdit.GetIntegerArray¶

function TCustomEdit.GetIntegerArray(): TIntegerArray;

Returns the TIntegerArray in the TCustomEdit (TLazEdit and TLazMemo). It’s probably a good idea to limit the TCustomEdit input with TLazComponent.IntArrayField().

TLazControl.CreateEx¶

function TLazPanel.CreateEx(owner: Pointer): TLazPanel; static;
function TLazPanel.CreateEx(
  owner: Pointer; width, height: Integer
): TLazPanel; static; overload;

function TLazPageControl.CreateEx(owner: Pointer): TLazPageControl; static;
function TLazPageControl.CreateEx(
  owner: Pointer; left, top, width, height: Integer
): TLazPageControl; static; overload;

function TLazLabel.CreateEx(owner: Pointer): TLazLabel; static;
function TLazLabel.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazLabel; static; overload;

function TLazEdit.CreateEx(owner: Pointer): TLazEdit; static;
function TLazEdit.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazEdit; static; overload;

function TLazSpinEdit.CreateEx(owner: Pointer): TLazSpinEdit; static;
function TLazSpinEdit.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazSpinEdit; static; overload;

function TLazFloatSpinEdit.CreateEx(owner: Pointer): TLazFloatSpinEdit; static;
function TLazFloatSpinEdit.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazFloatSpinEdit; static; overload;

function TLazMemo.CreateEx(owner: Pointer): TLazMemo; static;
function TLazMemo.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazMemo; static; overload;

function TLazButton.CreateEx(owner: Pointer): TLazButton; static;
function TLazButton.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazButton; static; overload;

function TLazCheckBox.CreateEx(owner: Pointer): TLazCheckBox; static;
function TLazCheckBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazCheckBox; static; overload;

function TLazToggleBox.CreateEx(owner: Pointer): TLazToggleBox; static;
function TLazToggleBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazToggleBox; static; overload;

function TLazRadioButton.CreateEx(owner: Pointer): TLazRadioButton; static;
function TLazRadioButton.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazRadioButton; static; overload;

function TLazComboBox.CreateEx(owner: Pointer): TLazComboBox; static;
function TLazComboBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazComboBox; static; overload;

function TLazListBox.CreateEx(owner: Pointer): TLazListBox; static;
function TLazListBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazListBox; static; overload;

function TLazCheckListBox.CreateEx(owner: Pointer): TLazCheckListBox; static;
function TLazCheckListBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazCheckListBox; static; overload;

function TLazTrackBar.CreateEx(owner: Pointer): TLazTrackBar; static;
function TLazTrackBar.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazTrackBar; static; overload;

function TLazImage.CreateEx(owner: Pointer): TLazImage; static;
function TLazImage.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazImage; static; overload;

function TImageBox.CreateEx(owner: Pointer): TImageBox; static;
function TImageBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TImageBox; static; overload;

function TLazScrollBox.CreateEx(owner: Pointer): TLazScrollBox; static;
function TLazScrollBox.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazScrollBox; static; overload;

function TLazTimeEdit.CreateEx(owner: Pointer): TLazTimeEdit; static;
function TLazTimeEdit.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazTimeEdit; static; overload;

function TLazDateEdit.CreateEx(owner: Pointer): TLazDateEdit; static;
function TLazDateEdit.CreateEx(
  owner: Pointer; caption: String; hint: String = '';
  left, top, width, height: Integer = 0
): TLazDateEdit; static; overload;

Constructor functions for most TLazControls.

TLazPageControl.AddTabEx¶

function TLazPageControl.AddTabEx(caption: String): TLazTabSheet;

Created a TLazTabSheet on the page control with the specified caption.

TLazControl.LoadImage¶

procedure TLazControl.LoadImage(path: String);
procedure TLazControl.LoadImage(img: TImage); overload;

Load a image file and set it as the background for a TLazControl. This can be used to set images for TLazPanels, TLazPageControls, TLazTabSheet, TLazButtons, etc.