Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

kako da detektujem fokus tastature i/ili miša...

[es] :: Pascal / Delphi / Kylix :: kako da detektujem fokus tastature i/ili miša...

[ Pregleda: 2889 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Igor Kovačević

Član broj: 12736
Poruke: 244
*.cmu.carnet.hr



Profil

icon kako da detektujem fokus tastature i/ili miša...04.08.2003. u 18:43 - pre 235 meseci
zanima me sljedeće :
imam:edit1;
edit2;
button1;

znam kako da button na klik ispiše određeni tekst ali kako da taj tekst ispiše u određeno polje(edit1 ili edit2) ovisno o tome u kojem polju je kursor miša (aktivno polje) probao sam ovo ali ne ide ; ne znam zašto...

>>> if Edit1.Focused then Edit1.Text:='Određeni text';
else Edit2.Text:='Određeni text'; <<<

pozdrav



[Ovu poruku je menjao -zombie- dana 05.08.2003. u 04:43 GMT]
In nature, nothing is ever right. Therefore, if everything is going right ... something is wrong.
 
Odgovor na temu

silverglider

Član broj: 651
Poruke: 218
*.dip.t-dialin.net

Sajt: www.benchmark.co.yu


Profil

icon Re: delphi problem05.08.2003. u 00:51 - pre 235 meseci
Cekaj, nisi sad ti precizan - da li hoces ispis u onom TEditu u kojem je kursor (za kucanje) ili kako ti kazes "kursor misa", tj. strelica?
Za ovo prvo jeste property focused, koje je postavljeno na true ukoliko si na to polje kliknuo ili do njega dosao sa tab tasterom.
Za ovo drugo mozes da uradis istu logiku kao za "mouse over" event; u trenutku ispisa, pogledas koordinate misa i ako je mis u okviru jednog TEdita (pocetne top i left, kao i width i height imas), onda ispisi u njemu.
 
Odgovor na temu

Ilija Studen
Novi Sad

Član broj: 3864
Poruke: 859
*.som.sezampro.yu

Sajt: www.activecollab.com


+1 Profil

icon Re: kako da detektujem fokus tastature i/ili miša...05.08.2003. u 14:55 - pre 235 meseci
Problem nastaje kada kliknes. Tada se fokus prebacuje na button!

Mozes ovako: imas jednu globalnu promenljivu (var Unita ili var Forme kako hoces, na oba ce nacina raditi) Edit tipa TEdit.

OnEnter svakog Edita stavi da menja njegovu vrednost. Evo primera za OnEnter. Oba edita ga dele (tj. ne moraju biti dva odvojena metoda):

Code:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  if Sender is TEdit then
    Edit := (Sender as TEdit);
end;


A evo ti i za OnClick button-a:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit <> nil then
    Edit.Text := 'neki tekst!';
end;



http://www.activecollab.com - Alat za upravljanje projektima
 
Odgovor na temu

Igor Kovačević

Član broj: 12736
Poruke: 244
*.cmu.carnet.hr



Profil

icon Re: kako da detektujem fokus tastature i/ili miša...16.08.2003. u 15:17 - pre 234 meseci
e hvala vam puno...

In nature, nothing is ever right. Therefore, if everything is going right ... something is wrong.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: kako da detektujem fokus tastature i/ili miša...

[ Pregleda: 2889 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.