[Change Form.NavigateKeys at runtime]

No.

 

Version FMSoft_uniGUI_Complete_Professional_1.10.0.1459

[Change Form.NavigateKeys at runtime]

Hi.

 

I used this solution but from the FMSoft_uniGUI_Complete_Professional_1.10.0 doesn't work.

 

What is the soluction?

[Problema com TUniDBDateTimePicker]

Olá.

 

Gostaria de saber que componente utilizar para obtenção de Horário (hh:nn:ss)?

Utilizando o TUniDBDateTimePicker com Kind = tUniTime a máscara de obtenção mantém como Data (DD/MM/YYYY) incorretamente.

 

Agradeço pela ajuda.

[Todos os Brasileiros]

Olá.

 

Gostaria de saber que componente utilizar para obtenção de Horário (hh:nn:ss)?

Utilizando o TUniDBDateTimePicker com Kind = tUniTime a máscara de obtenção mantém como Data (DD/MM/YYYY).

 

Agradeço pela ajuda.

[Custom Components (UniLabel)]

Hi.

 

Yes, I know the label properties.

But it's just an example.

Should not my example work?

 

Thanks

[Custom Components (UniLabel)]

Hi.

 

I'm building custom components by adding UniLabel's to UniEdit, UniComboBox ...

I have similar components in VCL mode.

In the new components inherited from UniGui at design time the UniLabel components are shown correctly.

But at runtime the UniLabel components are not shown next to the UniEdit, UniComboBox ...

 

Can someone direct me so that I can evolve with this problem?

Are there any examples that might help me with this problem?

 

Thanks

 

 

Here are examples of source code:

 

unit CmpTest;


interface


uses
  Windows, Messages, Classes, Controls, uniGUIClasses, uniEdit, uniLabel, SysUtils;


type
  TCmpTest = class(TUniEdit)
  private
    FLabelCmp: TUniLabel;
    procedure SetLabelPosition;
  protected
    procedure SetParent(AParent: TWinControl); override;
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
    procedure SetName(const Value: TComponentName); override;
    procedure CMVisiblechanged(var Message: TMessage); message CM_VISIBLECHANGED;
    procedure CMEnabledchanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure CMBidimodechanged(var Message: TMessage); message CM_BIDIMODECHANGED;
  public
    constructor Create(AOwner: TComponent); override;
    procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override;
  published
    property LabelCmp: TUniLabel read FLabelCmp;
  end;


procedure register;


implementation


constructor TCmpTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  if not Assigned(FLabelCmp) then
    begin
      FLabelCmp := TUniLabel.Create(Self);
      FLabelCmp.Parent := TWinControl(Self.Owner);
      FLabelCmp.FreeNotification(Self);
    end;
  SetLabelPosition;
end;

 

[Test]

Testing