Vlastnosti a metody formulß°∙

Na formulß°, s nφm₧ chceme manipulovat, se m∙₧eme odvolßvat t°emi cestami:

• pomocφ jmΘna formulß°e, tedy pomocφ jmΘna, pod nim₧ je formulß° vid∞t na °φdicφm panelu aplikace,
  
  
• pomocφ prom∞nnΘ typu formulß° deklarovanΘ v programu,
  
  
• pomocφ klφΦovΘho slova thisform, kter²m oznaΦujeme ten formulß°, v n∞m₧ se odkaz nachßzφ.

  Prvnφ cesta, tedy odvolßvßnφ se na formulß° pomocφ jmΘna formulß°e, je jednoduÜÜφ, proto₧e nevy₧aduje existenci programu, v n∞m₧ by byla deklarovßna prom∞nnß typu formulß°. Dovoluje vÜak ovlßdat pouze formulß°e otev°enΘ na obrazovce, neumo₧≥uje tedy nap°φklad nastavovat vlastnosti formulß°e p°ed jeho otev°enφm. Pokud na obrazovce otev°ete vφce instancφ stejnΘho formulß°e, neumφ je rozliÜit. Pokusφte-li touto cestou se manipulovat s formulß°em, kter² nenφ otev°en, pak se automaticky otev°e.

  Druhß cesta vy₧aduje deklarovßnφ prom∞nnΘ typu formulß°, umo₧≥uje vÜak ovlßdat formulß° i dob∞, kdy nenφ otev°en na obrazovce. Dovoluje tedy nap°φklad upravit polohu a rozm∞ry formulß°e p°ed jeho otev°enφm. NastavenΘ vlastnosti formulß°e se zachovßvajφ i kdy₧ je jeho okno zavφrßno a otevφrßno.

  T°etφ cesta slou₧φ pouze pro ten p°φpad, kdy jedna slo₧ka formulß°e odkazuje na slo₧ku jinou nebo na formulß° jako celek.

  P°φklad nastavenφ vlastnosti WIDTH (Üφ°ka):

  Nech¥ v aplikaci je formulß° BASFORM. Po jeho otev°enφ na obrazovce lze zm∞nit jeho Üφ°ku na 400 pixel∙ p°φkazem

      BASFORM.WIDTH := 400;

  Nenφ-li formulß° BASFORM p°i provedenφ tohoto p°φkazu otev°en, automaticky se otev°e a pak se zm∞nφ jeho Üφ°ka.

  Nech¥ v projektu je deklarovßna globßlnφ prom∞nnß BASFORMVAR takto:

      VAR BASFORMVAR : FORM BASFORM;

  èφ°ku tohoto formulß°e lze nastavit na 400 pixel∙ p°φkazem

      BASFORMVAR.WIDTH := 400;

  a¥ je okno s formulß°em zrovna otev°enΘ Φi nikoli. Pokud okno nebylo p°i provedenφ tohoto p°φkazu otev°enΘ, pak p°i nejbli₧Üφm otev°enφ bude mφt nastavenou Üφ°ku 400 pixel∙.

  Je-li ve formulß°i tlaΦφtko, jeho₧ funkcφ je nastavit Üφ°ku tohoto formulß°e na 400 pixel∙, pak akci sdru₧enou s tφmto tlaΦφtkem popφÜeme jako:

      THISFORM.WIDTH:=400;

  P°φklad:

  procedure OtevritInfo;
  {*************************************}
  var
    cc : cursor;
    ss : string[255];
    lidiform : form X_superlidi;   //deklarace prom∞nnΘ typu formulß°
  begin
   ss := "SELECT * FROM Lidi WHERE cislo="+Int2str(cisloCtenare);
   if not Open_sql_cursor(cc,ss) then begin
    lidiform.CursNum := cc;        // nastavenφ zdroje dat (vlastnost)
    lidiform.Editable := false; 
    if not lidiform.Open(NIL)      // otev°enφ (metoda) 
      then Info_box("Chyba","Otev°enφ");     
    end;
  end;

  PokraΦovßnφ:	Vlastnosti formulß°e
  	Metody formulß°e