[Delphi] Edit, Memo, LisBox i inne...

0

Witam...
2 pytanka...

Pierwsze proste ale nie chce mi się szukać w archiwum a zapomniełem...
Jak po wpisaniu np. 8 litery w Edit1 przeskoczyło mi automatycznie do Edit2

Drugie chyba trudniejsze ale wierze w was ;)
Mam w Memo lub w ListBox 10 lini pojedynczych słow. Jak zrobić żeby po dwukrotnym kliknieciu
na daną linie (słowo) została wykonana jakaś funkcja...--"Wniosek to punkt, w którym nie masz już siły dalej myśleć"

----- MCkawa -----
Delphi 6 / C / C++

0

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)=8 then Edit2.SetFocus;
end;

--
Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

MCkawa napisał:

&gt
&gtMam w Memo lub w ListBox 10 lini pojedynczych słow. Jak zrobić żeby po dwukrotnym kliknieciu
&gtna daną linie (słowo) została wykonana jakaś funkcja...

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
case ListBox1.ItemIndex of
0: funkcja0;
1: funkcja1; itd

Z Memo bedzie trudniej bo w OnDblClick musisz odczytac w ktorej linii jest kursor. Kiedys to bylo na 4p, ale nie moge znalezc.

Pozdrowka--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

THX pq--"Wniosek to punkt, w którym nie masz już siły dalej myśleć"

----- MCkawa -----
Delphi 6 / C / C++

0

pq napisal:
Z Memo bedzie trudniej bo w OnDblClick musisz odczytac w ktorej linii jest kursor. Kiedys to bylo na 4p, ale nie moge znalezc.

mam artykul na dysku ;)

Memo1.Perform(EM_LINEFROMCHAR, $FFFF, 0); // zwraca numer linii w ktorej jest kursor---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1