Zobrazeni textu v komponentach (Delphi)

Zdravím.
Poradite.

procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
Combobox1.Text:='AHOJ';
end;

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
Edit1.Text:= 'AHOJ'
end;

Při použiti tohohle tak po 2x klik se vepiše text do komponenty.
Kursor však blika uplně vlevo.
Jak docilim toho aby blikal až za textem aby se dalo hned psat.

Předmět	Autor	Datum
procedure TForm1.ComboBox1DblClick(Sender: TObject); begin Combobox1.Text:='AHOJ'; Combobox1.SelStar… pme 06.03.2012 18:53	pme	06.03.2012 18:53
Děkuji :-D Mužu ještě jedem. Když dam na form pod sebe třeba 4x Edit nebo Combobox a spustin tak je… poslední Mirek00001 06.03.2012 20:17	Mirek00001	06.03.2012 20:17

procedure TForm1.ComboBox1DblClick(Sender: TObject);
begin
  Combobox1.Text:='AHOJ';
  Combobox1.SelStart := Length(ComboBox1.Text);
end;

procedure TForm1.Edit1DblClick(Sender: TObject);
begin
  Edit1.Text:= 'AHOJ';
  Edit1.SelStart := Length(Edit1.Text);
end;

Děkuji
Mužu ještě jedem.
Když dam na form pod sebe třeba 4x Edit nebo Combobox a spustin tak je vždy v tom prvním text označen modře.
Jak se toho zbavím.

Zpět do poradny Odpovědět na původní otázku Nahoru