TTMSFNCAnalogTimePicker.OnTimeSelected Event

Fires when the user selects a time from the analog clock drop-down.

API unit family: TMSFNCAnalogTimePicker Declaring type: TTMSFNCAnalogTimePicker Inherited from: TTMSFNCCustomAnalogTimePicker

Syntax

FMX.TMSFNCAnalogTimePicker.hppPascalC++

OnTimeSelected: TTMSFNCCustomAnalogTimePickerTimeSelectedEvent;

__property TTMSFNCCustomAnalogTimePickerTimeSelectedEvent OnTimeSelected = {read=FOnTimeSelected, write=FOnTimeSelected};

Usage examples

Sync picker and selector

Keep a read-only selector in sync with a picker to show selected time on an analog face.

Sync picker and selectorPascalC++

procedure TForm1.FormCreate(Sender: TObject);
begin
  { Selector shows the currently picked time as a large clock face }
  TMSFNCAnalogTimeSelector1.Settings.ReadOnly := True;
  TMSFNCAnalogTimeSelector1.Appearance.ShowSecondPointer := False;
  TMSFNCAnalogTimeSelector1.Time := TMSFNCAnalogTimePicker1.SelectedTime;
end;

procedure TForm1.TMSFNCAnalogTimePicker1TimeSelected(Sender: TObject;
  ATime: TTime);
begin
  { Update the display selector and a label simultaneously }
  TMSFNCAnalogTimeSelector1.Time := ATime;
  lblTime.Caption := FormatDateTime('hh:nn', ATime);
end;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  // Selector shows the currently picked time as a large clock face
  TMSFNCAnalogTimeSelector1->Settings->ReadOnly = true;
  TMSFNCAnalogTimeSelector1->Appearance->ShowSecondPointer = false;
  TMSFNCAnalogTimeSelector1->Time = TMSFNCAnalogTimePicker1->SelectedTime;
}

void __fastcall TForm1::TMSFNCAnalogTimePicker1TimeSelected(TObject *Sender,
  System::TTime ATime)
{
  // Update the display selector and a label simultaneously
  TMSFNCAnalogTimeSelector1->Time = ATime;
  lblTime->Text = FormatDateTime("hh:nn", ATime);
}

Read the related guide

Handle selected time changes

Updates another control when the user selects a time.

Handle selected time changesPascalC++

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFNCAnalogTimePicker1.OnTimeSelected := TMSFNCAnalogTimePicker1TimeSelected;
end;

procedure TForm1.TMSFNCAnalogTimePicker1TimeSelected(Sender: TObject;
  ATime: TTime);
begin
  Caption := FormatDateTime('hh:nn', ATime);
end;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TMSFNCAnalogTimePicker1->OnTimeSelected = TMSFNCAnalogTimePicker1TimeSelected;
}

void __fastcall TForm1::TMSFNCAnalogTimePicker1TimeSelected(TObject *Sender,
  System::TTime ATime)
{
  Caption = FormatDateTime("hh:nn", ATime);
}

Read the related guide