[Delphi] Kilka pytań

0

Witam jestem nowy na forum i dopiero zaczynam programować w Delphi mam dwa pytania:

  1. Jak zrobić kiedy wpisze sie do edit1 trzy znaki przeskoczyć do Edit2 aby tam można było pisać dalej?

procedure TForm1.TimerTimer(Sender: TObject);
var
Present : TDateTime;
Hour, Min, Sek, MSec : Word;
begin
Present := Now;
DecodeTime(Present, Hour, Min, Sek, MSec);
if (Hour = 12) and (Min = 11) and (Sek = 10) then
ShowMessage('Tutaj Text');
end;

Jak w tej procedurze zamiast zdefiniowanych godzin(minut i sekund) pobrać te wartosci z editów?

Wielkie dzieki z góry za wszelaką pomoc.

Vogel
  • Rejestracja:ponad 22 lata
  • Ostatnio:prawie 7 lat
0
  1. W OnKeyUp Edit1:

if Length(Edit1.Text) = 3 then Edit2.SetFocus


Life is just a dream, you know...
[Cowboy Bebop]
SzYbkI
  • Rejestracja:ponad 22 lata
  • Ostatnio:ponad 21 lat
0

-= Feel The Beat =-
W0
  • Rejestracja:ponad 22 lata
  • Ostatnio:około 14 lat
  • Postów:384
0

Hour := StrToInt(Edit1.text);
Min := StrToInt(Edit2.text);

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.