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

Problem sa MsgBox-om i OnKeyPress

[es] :: Pascal / Delphi / Kylix :: Problem sa MsgBox-om i OnKeyPress

[ Pregleda: 3085 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.



+1 Profil

icon Problem sa MsgBox-om i OnKeyPress20.02.2005. u 19:34 - pre 211 meseci
Imam sledeci problem:

Code:

proc Kontrola.KeyDown
begin
  if Key = VK_RETURN then
  begin
    ...
    ...
    if MessageDlg('Da li zelite opet?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      ...
  end;
end;


Problem je sto ako se stisne Enter na MsgBox-u, ponovo se poziva Kontrola.OnKeyDown i posto je pritisnut enter prolazi [if Key = VK_RETURN] proveru (naravno nece ako se klikne misem dugmad u MsgBox-u)...
Probao sam i sa App.PcsMsgs posle MsgBox poziva ali ne radi...
Ima li neki nacin da ocistim bafer tastature posto ocigledno MsgBox prosledjuje poruku o pritisnutom tasteru, a ne guta poruku?
 
Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.metrohive.net.



Profil

icon Re: Problem sa MsgBox-om i OnKeyPress20.02.2005. u 19:46 - pre 211 meseci
Na primer:

Code:

var MozeDalje:Boolean;

proc Kontrola.KeyDown
begin
  if (Key = VK_RETURN) and MozeDalje then
  begin
    ...
    ...
    MozeDalje := False;
    if MessageDlg('Da li zelite opet?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      ...
    MozeDalje := True;
  end;
end;

 
Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.



+1 Profil

icon Re: Problem sa MsgBox-om i OnKeyPress20.02.2005. u 20:01 - pre 211 meseci
Ne razumes, tako nece ni doci do msgbox-a prilikom pritiskanja entera, nema nacina da odredim da li je enter stisnut u kontroli ili u msgbox-u.
 
Odgovor na temu

engineer

Član broj: 45205
Poruke: 113
*.metrohive.neobee.net.

Jabber: engineer


Profil

icon Re: Problem sa MsgBox-om i OnKeyPress20.02.2005. u 20:21 - pre 211 meseci
Citat:
_v!rus_: Imam sledeci problem:
Code:

proc Kontrola.KeyDown
begin
  if Key = VK_RETURN then
  begin
    ...
    ...
    if MessageDlg('Da li zelite opet?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      ...
  end;
end;
Erm, kod mene to radi OK...
 
Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.



+1 Profil

icon Re: Problem sa MsgBox-om i OnKeyPress20.02.2005. u 22:12 - pre 211 meseci
Jao!
Ovde sam napisao Kontrola.OnKeyDown, a u mom kodu gde je problem stoji Kontrola.OnKeyUp... idiot...

Sada radi, hvala!

...samo teorijski...problem i dalje stoji...
Code:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    MessageDlg('Da li zelite opet', mtInformation, [mbYes, mbNo], 0);
end;



 
Odgovor na temu

Rapaic Rajko
Bgd

Član broj: 4105
Poruke: 802
217.119.242.*



+62 Profil

icon Re: Problem sa MsgBox-om i OnKeyPress23.02.2005. u 08:39 - pre 211 meseci
Code:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var aevent: TKeyEvent;
begin
  if Key = VK_RETURN then begin
    aevent := Edit1.OnKeyUp;
    Edit1.OnKeyUp := nil;
    MessageDlg('Da li zelite opet', mtInformation, [mbYes, mbNo], 0);
    Edit1.OnKeyUp := aevent;
end;


Ovo bi trebalo da odradi. Samo, moram da kazem da je ipak neubicajeno da se dijalozi ispucavaju na ovakvim mestima...

Rajko
 
Odgovor na temu

_v!rus_
BGD

Član broj: 40451
Poruke: 313
*.vdial.verat.net.



+1 Profil

icon Re: Problem sa MsgBox-om i OnKeyPress23.02.2005. u 13:03 - pre 211 meseci
Zasto neobicno?
To je bio samo deo veceg koda koji radi pretragu, samo sam izolovao problem radi lakse ilustracije. Kada dodje do kraja pretrage program pita da li korisnik zeli da pretrazuje opet od pocetka...
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Problem sa MsgBox-om i OnKeyPress

[ Pregleda: 3085 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

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