Get_ext_message

Internφ programovacφ jazyk

function Get_ext_message(var msg : integer; var handle : window_id; var info : integer) : Boolean;

Parametry

msg v²stupnφ parametr: Φφslo zprßvy
handle v²stupnφ parametr: identifikace (handle) formulß°e u notifikaΦnφch zprßv
info v²stupnφ parametr: rezervovßno pro budoucφ pou₧itφ

Popis

Funkce Get_ext_message Φekß na dalÜφ zprßvu, kterou programu p°edß u₧ivatel. Takovßto zprßva m∙₧e vzniknout stiskem tlaΦφtka provßd∞jφcφho p°φkaz Return ve formulß°i (nebo standardnφ akci Zaslat zprßvu), vybrßnφm n∞kterΘ polo₧ky z u₧ivatelskΘho menu , stiskem zaregistrovanΘ klßvesy (funkce Register_key) nebo provedenφm akce ve formulß°i, kterß automaticky generuje notifikaΦnφ zprßvu.

V parametru msg bude vrßceno Φφslo zprßvy.

V parametru handle bude handle (Φφslo) formulß°e, je-li zprßva notifikaΦnφ (automaticky generovanß ve formulß°i), v jinΘm p°φpad∞ nula.

Parametr info je rezervovßn pro budoucφ pou₧itφ, v souΦasnosti smφ mφt hodnotu NIL.

Pokud ve front∞ neΦekajφ ₧ßdnΘ zprßvy, funkce Get_ext_message neskonΦφ, dokud u₧ivatel takovou zprßvu nevygeneruje. To znamenß, ₧e ôuvnit°ö provßd∞nφ funkce Get_ext_message u₧ivatel m∙₧e nap°. editovat obsah databßze prost°ednictvφm formulß°∙ otev°en²ch na obrazovce nebo volat procedury projektu pomocφ tlaΦφtek.

Je-li v debuggeru funkce p°eruÜena stiskem Ctrl+Break, v parametru msg vrßtφ hodnotu -2.

Funkce pln∞ nahrazuje starÜφ funkci Get_message.

Hodnota funkce

Funkce vrßtφ FALSE ve dvou p°φpadech:

- pokud se vracφ zprßva s hodnotou -1

- pokud aplikace byla ukonΦena zvenΦφ.

P°φklad 1

while Get_ext_message(msg, handle, NIL) do
begin
  case msg of
{oÜet°enφ definovan²ch zprßv}
    msg1 : ...
    msg2 : ...
    ...
{oÜet°enφ notifikaΦnφch zprßv}
    else : if (handle=id_pohl1) and (msg=4) then ...
  end;

P°φklad 1

while not konec and Get_ext_message(msg,handle,NIL) do begin
   if msg = 1111 then konec := true;
   ...
end;

Viz