rad-studio

I've changed my form to a borderless form, I just changed the BorderStyle property to bsNone , but now my application loses the windows anchor and some commands like WIN + ↑ (Align the form Client) WIN + ↓ (Minimize the form) WIN + →(Align the form Right) WIN + ←(Align the form Left) I've tried to set BorderStyle: bsSizeable and use the below code inside of the FormCreate , but this does not worked: procedure TfrmBase.FormCreate(Sender: TObject); begin SetWindowLong(Handle ,GWL_STYLE ,GetWindowLong(Handle, GWL_STYLE) AND (NOT WS_CAPTION) AND (NOT WS_THICKFRAME) ); Refresh; FormColor :=

When use TEdit control on the right side stay small icon 'x'. How after click on icon clear TEdit box. Tnx all! Sami Delphi provide TClearEditButton to clear the TEdit content. It can be added by right clicking and selecting AddItem - TClearEditButton from the popup menu. It also has a Click procedure overriden in FMX.Edit unit like: procedure TClearEditButton.Click; var EditTmp: TCustomEdit; begin inherited Click; EditTmp := GetEdit; if EditTmp <> nil then begin if EditTmp.Observers.IsObserving(TObserverMapping.EditLinkID) then if not TLinkObservers.EditLinkEdit(EditTmp.Observers) then Exit;