home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 May / Chip_1999-05_cd.bin / ctenari / Lukas / svatek_f.~pa < prev    next >
Text File  |  1999-02-24  |  15KB  |  501 lines
  1. {Autor: FrantiÜek Lukas
  2. Losinskß 166, 33209 èt∞novice
  3. listopad-prosinec 1998
  4. rozÜφ°eno o formulß° Velikonoce - ·nor 1999}
  5. unit svatek_f;
  6.  
  7. interface
  8.  
  9. uses
  10.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  11.   Forms, Dialogs, MmSystem, StdCtrls, Buttons, Mask;
  12.  
  13. type
  14.   Tdenvtydnu = class(TForm)
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Label3: TLabel;
  18.     MaskEdit1: TMaskEdit;
  19.     BitBtn1: TBitBtn;
  20.     BitBtn2: TBitBtn;
  21.     BitBtn3: TBitBtn;
  22.     BitBtn4: TBitBtn;
  23.     Label4: TLabel;
  24.     Label5: TLabel;
  25.     SpeedButton1: TSpeedButton;
  26.     SpeedButton2: TSpeedButton;
  27.     procedure BitBtn1Click(Sender: TObject);
  28.     procedure BitBtn2Click(Sender: TObject);
  29.     procedure BitBtn4Click(Sender: TObject);
  30.     procedure BitBtn3Click(Sender: TObject);
  31.     procedure Button1Click(Sender: TObject);
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.     procedure SpeedButton2Click(Sender: TObject);
  34.   private
  35.     { Private declarations }
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   denvtydnu: Tdenvtydnu;
  42.  
  43. implementation
  44.  
  45. uses Unit1, Unit2;
  46.  
  47. {$R *.DFM}
  48.  
  49. procedure Tdenvtydnu.BitBtn1Click(Sender: TObject);
  50. VAR
  51. Adate:TDateTime;
  52. Datum:String;
  53. Den,Year,Month,Day:word;
  54. begin
  55. Datum:=DateToStr(Now);
  56. ADate := StrToDate(MaskEdit1.Text);
  57. den:=DayOfWeek(Adate);
  58. DecodeDate(ADate,Year,Month,Day);
  59. SndPlaySound('trumpet.wav',snd_Async);
  60.     case Month of
  61.     12 : case Day of
  62.     1 : Label4.Caption:='Iva';
  63.     2 : Label4.Caption:='Blanka';
  64.     3 : Label4.Caption:='Svatoslav';
  65.     4 : Label4.Caption:= 'Barbora';
  66.     5 : Label4.Caption:= 'Jitka';
  67.     6 : Label4.Caption:='MikulßÜ';
  68.     7 : Label4.Caption:='Ambro₧';
  69.     8 : Label4.Caption:= 'Kv╪toslava';
  70.     9 : Label4.Caption:= 'Vratislav';
  71.    10 : Label4.Caption:='Julie';
  72.    11 : Label4.Caption:= 'Dana ';
  73.    12 : Label4.Caption:='Simona';
  74.    13 : Label4.Caption:='Lucie';
  75.    14 : Label4.Caption:='Lydie';
  76.    15 : Label4.Caption:='Radana';
  77.    16 : Label4.Caption:='Albina';
  78.    17 : Label4.Caption:='Daniel';
  79.    18 : Label4.Caption:='Miloslav';
  80.    19 : Label4.Caption:='Ester';
  81.    20 : Label4.Caption:='Dagmar';
  82.    21 : Label4.Caption:='Natßlie';
  83.    22 : Label4.Caption:='èimon';
  84.    23 : Label4.Caption:='Vlasta';
  85.    24 : Label4.Caption:='Adam a Eva';
  86.    25 : Label4.Caption:='1.svßtek vanoΦni';
  87.    26 : Label4.Caption:='2.svßtek vanoΦni';
  88.    27 : Label4.Caption:= 'Äaneta';
  89.    28 : Label4.Caption:='Bohumila';
  90.    29 : Label4.Caption:='Judita';
  91.    30 : Label4.Caption:='David';
  92.    31 : Label4.Caption:='Silvestr';
  93.    end;
  94.    1:case day of
  95. 1: Label4.Caption:='Nov² Rok';
  96. 2: Label4.Caption:= 'Karina';
  97. 3: Label4.Caption:= 'Radmila';
  98. 4: Label4.Caption:= 'Diana';
  99. 5: Label4.Caption:= 'Dalimil';
  100. 6: Label4.Caption:= 'T°i krßlovΘ ';
  101. 7: Label4.Caption:= 'Vilma';
  102. 8: Label4.Caption:= '╚estmφr';
  103. 9: Label4.Caption:= 'Vladan';
  104. 10: Label4.Caption:= 'B°etislav';
  105. 11: Label4.Caption:= 'Bohdana';
  106. 12: Label4.Caption:= 'Pravoslav';
  107. 13: Label4.Caption:= 'Edita';
  108. 14: Label4.Caption:= 'Radovan';
  109. 15: Label4.Caption:= 'Alice';
  110. 16: Label4.Caption:= 'Ctirad';
  111. 17: Label4.Caption:= 'Drahoslav';
  112. 18: Label4.Caption:= 'Vladislav';
  113. 19: Label4.Caption:= 'Doubravka';
  114. 20: Label4.Caption:= 'Ilona';
  115. 21: Label4.Caption:= 'Bela ';
  116. 22: Label4.Caption:= 'Slavomφr';
  117. 23: Label4.Caption:= 'Zden∞k';
  118. 24: Label4.Caption:= 'Milena';
  119. 25: Label4.Caption:= 'MiloÜ';
  120. 26: Label4.Caption:= 'Zora ';
  121. 27: Label4.Caption:= 'Ingrid';
  122. 28: Label4.Caption:= 'Ot∞lie';
  123. 29: Label4.Caption:= 'Zdislava';
  124. 30: Label4.Caption:= 'Robin';
  125. 31: Label4.Caption:= 'Marika';
  126.     end;
  127.    2: case day of
  128. 1 : Label4.Caption:= 'Hynek';
  129. 2 : Label4.Caption:= 'Nela ';
  130. 3 : Label4.Caption:= 'Bla₧ej';
  131. 4 : Label4.Caption:= 'Jarmila';
  132. 5 : Label4.Caption:= 'Dobromila';
  133. 6 : Label4.Caption:= 'Vanda';
  134. 7 : Label4.Caption:= 'Veronika';
  135. 8 : Label4.Caption:= 'Milada';
  136. 9 : Label4.Caption:= 'Apolena';
  137. 10 : Label4.Caption:= 'Mojmφr';
  138. 11 : Label4.Caption:= 'Bo₧ena';
  139. 12 : Label4.Caption:= 'Slav╪na';
  140. 13 : Label4.Caption:= 'V╪nceslav';
  141. 14 : Label4.Caption:= 'Valent∞n';
  142. 15 : Label4.Caption:= 'Ji²ina';
  143. 16 : Label4.Caption:= 'Ljuba';
  144. 17 : Label4.Caption:= 'Miloslava';
  145. 18 : Label4.Caption:= 'Gizela';
  146. 19 : Label4.Caption:= 'Patrik';
  147. 20 : Label4.Caption:= 'Old²ich';
  148. 21 : Label4.Caption:= 'Lenka';
  149. 22 : Label4.Caption:= 'Petr ';
  150. 23 : Label4.Caption:= 'Svatopluk';
  151. 24 : Label4.Caption:= 'Mat∞j';
  152. 25 : Label4.Caption:= 'nenφ ';
  153. 26 : Label4.Caption:= 'Dora ';
  154. 27 : Label4.Caption:='Alexandr';
  155. 28 : Label4.Caption:='Lumφr';
  156. 29 : Label4.Caption:= 'Albφn';
  157. end;
  158. 3: case Day of
  159. 1 : Label4.Caption:= 'Bed°ich';
  160. 2 : Label4.Caption:= 'AneÜka';
  161. 3 : Label4.Caption:= 'Kamil';
  162. 4 : Label4.Caption:= 'Stela';
  163. 5 : Label4.Caption:= 'Kazimφr';
  164. 6 : Label4.Caption:= 'Miroslav';
  165. 7 : Label4.Caption:= 'TomßÜ';
  166. 8 : Label4.Caption:= 'Gabriela';
  167. 9 : Label4.Caption:= 'FrantiÜka';
  168. 10 : Label4.Caption:= 'Viktorie';
  169. 11 : Label4.Caption:= 'And╪la';
  170. 12 : Label4.Caption:= '╪eho°';
  171. 13 : Label4.Caption:= 'R∙e₧na';
  172. 14 : Label4.Caption:= 'Matylda';
  173. 15 : Label4.Caption:= 'Ida  ';
  174. 16 : Label4.Caption:= 'Amos ';
  175. 17 : Label4.Caption:= 'Vlastimil';
  176. 18 : Label4.Caption:= 'Eduard';
  177. 19 : Label4.Caption:= 'Josef';
  178. 20 : Label4.Caption:= 'Sv∞tlana';
  179. 21 : Label4.Caption:= 'Radek';
  180. 22 : Label4.Caption:= 'Leona';
  181. 23 : Label4.Caption:= 'Ivona';
  182. 24 : Label4.Caption:= 'Gabriel';
  183. 25 : Label4.Caption:= 'Marian';
  184. 26 : Label4.Caption:= 'Emanuel';
  185. 27 : Label4.Caption:= 'Dita ';
  186. 28 : Label4.Caption:= 'So≥a ';
  187. 29 : Label4.Caption:= 'Ta¥ßna';
  188. 30 : Label4.Caption:= 'ArnoÜt';
  189. 31 : Label4.Caption:= 'Kvφdo';
  190.     end;
  191. 4: case Day of
  192. 1 : Label4.Caption:= 'Hugo ';
  193. 2 : Label4.Caption:= 'Erika';
  194. 3 : Label4.Caption:= 'Richard';
  195. 4 : Label4.Caption:= 'Ivana';
  196. 5 : Label4.Caption:= 'Miroslava';
  197. 6 : Label4.Caption:= 'Vendula';
  198. 7 : Label4.Caption:= 'Herman';
  199. 8 : Label4.Caption:= 'Ema  ';
  200. 9 : Label4.Caption:= 'DuÜan';
  201. 10 : Label4.Caption:= 'Darja';
  202. 11 : Label4.Caption:= 'Izabela';
  203. 12 : Label4.Caption:= 'Julius';
  204. 13 : Label4.Caption:= 'AleÜ ';
  205. 14 : Label4.Caption:= 'Vincenc';
  206. 15 : Label4.Caption:= 'Anastßzie';
  207. 16 : Label4.Caption:= 'Irena';
  208. 17 : Label4.Caption:= 'Rudolf';
  209. 18 : Label4.Caption:= 'Valerie';
  210. 19 : Label4.Caption:= 'nenφ svßtek';
  211. 20 : Label4.Caption:= 'nenφ svßtek';
  212. 21 : Label4.Caption:= 'Alexandra';
  213. 22 : Label4.Caption:=  'Ev₧enie';
  214. 23 : Label4.Caption:= 'Vojt∞ch';
  215. 24 : Label4.Caption:= 'Ji°φ ';
  216. 25 : Label4.Caption:= 'Marek';
  217. 26 : Label4.Caption:= 'Oto  ';
  218. 27 : Label4.Caption:= 'Jaroslav';
  219. 28 : Label4.Caption:= 'Vlastislav';
  220. 29 : Label4.Caption:= 'Robert';
  221. 30 : Label4.Caption:= 'Blahoslav';
  222.     end;
  223.  5:   case day of
  224. 1 : Label4.Caption:='1.mßje';
  225. 2  : Label4.Caption:='Zikmund';
  226. 3 : Label4.Caption:='Alexej';
  227. 4 : Label4.Caption:='Kv∞toslav';
  228. 5 : Label4.Caption:='nenφ svßtek';
  229. 6 : Label4.Caption:='Radoslav';
  230. 7 : Label4.Caption:='Stanislav';
  231. 8 : Label4.Caption:='Ctibor';
  232. 9 : Label4.Caption:='revoluce';
  233. 10 : Label4.Caption:='Bla₧ena';
  234. 11 : Label4.Caption:='Svatava';
  235. 12 : Label4.Caption:='Pankrßc';
  236. 13 : Label4.Caption:='Servßc';
  237. 14 : Label4.Caption:='Bonifßc';
  238. 15 : Label4.Caption:='Äofie';
  239. 16 : Label4.Caption:='P°emysl';
  240. 17 : Label4.Caption:='Aneta';
  241. 18 : Label4.Caption:='NataÜa';
  242. 19 : Label4.Caption:='Ivo';
  243. 20 : Label4.Caption:='ZbyÜek';
  244. 21 : Label4.Caption:='Monika';
  245. 22 : Label4.Caption:='Emil';
  246. 23 : Label4.Caption:='Vladimφr';
  247. 24 : Label4.Caption:='Jana';
  248. 25 : Label4.Caption:='Viola';
  249. 26 : Label4.Caption:='Filip';
  250. 27 : Label4.Caption:='Valdemar';
  251. 28 : Label4.Caption:='VilΘm';
  252. 29 : Label4.Caption:='Maxim';
  253. 30 : Label4.Caption:='Ferdinand';
  254. 31 : Label4.Caption:='Kamila';
  255. end;
  256. 6: case day of
  257. 1 : Label4.Caption:='Laura';
  258. 2 : Label4.Caption:='Jarmil';
  259. 3 : Label4.Caption:='Tamara';
  260. 4 : Label4.Caption:='Dalibor';
  261. 5 : Label4.Caption:='Dobroslav';
  262. 6 : Label4.Caption:='Norbert';
  263. 7 : Label4.Caption:='Iveta';
  264. 8 : Label4.Caption:='Medard';
  265. 9 : Label4.Caption:='Stanislava';
  266. 10 : Label4.Caption:='Gita';
  267. 11 : Label4.Caption:='Flora';
  268. 12 : Label4.Caption:='Antonie';
  269. 13 : Label4.Caption:='Antonφn';
  270. 14 : Label4.Caption:='Vasil';
  271. 15 : Label4.Caption:='Vφt';
  272. 16 : Label4.Caption:='Zbyn∞k';
  273. 17 : Label4.Caption:='Adolf';
  274. 18 : Label4.Caption:='Milan';
  275. 19 : Label4.Caption:='LeoÜ';
  276. 20 : Label4.Caption:='Kv∞ta';
  277. 21 : Label4.Caption:='Alois';
  278. 22 : Label4.Caption:='Pavla';
  279. 23 : Label4.Caption:='Zde≥ka';
  280. 24 : Label4.Caption:='Jan';
  281. 25 : Label4.Caption:='Ivan';
  282. 26 : Label4.Caption:='Adriana';
  283. 27 : Label4.Caption:='Ladislav';
  284. 28 : Label4.Caption:='Lubomφr';
  285. 29 : Label4.Caption:='Petr a Pavel';
  286. 30 : Label4.Caption:='èßrka';
  287.     end;
  288. 7: case Day of
  289. 1 : Label4.Caption:='Jaroslava';
  290. 2 : Label4.Caption:='Patricie';
  291. 3 : Label4.Caption:='Radomφr';
  292. 4 : Label4.Caption:='Prokop';
  293. 5 : Label4.Caption:='Cyril';
  294. 6 : Label4.Caption:='nenφ svßtek';
  295. 7 : Label4.Caption:='Bohuslava';
  296. 8 : Label4.Caption:='Nora';
  297. 9 : Label4.Caption:='Drahoslava';
  298. 10 : Label4.Caption:='LibuÜe';
  299. 11 : Label4.Caption:='Olga';
  300. 12 : Label4.Caption:='Borek';
  301. 13 : Label4.Caption:='MarkΘta';
  302. 14 : Label4.Caption:='Karolφna';
  303. 15 : Label4.Caption:='Jind°ich';
  304. 16 : Label4.Caption:='LuboÜ';
  305. 17 : Label4.Caption:='Martina';
  306. 18 : Label4.Caption:='Drahomφra';
  307. 19 : Label4.Caption:='╚enek';
  308. 20 : Label4.Caption:='Ilja';
  309. 21 : Label4.Caption:='Vφt∞zslav';
  310. 22 : Label4.Caption:='Magdalena';
  311. 23 : Label4.Caption:='Libor';
  312. 24 : Label4.Caption:='Krist²na';
  313. 25 : Label4.Caption:='Jakub';
  314. 26 : Label4.Caption:='Anna';
  315. 27 : Label4.Caption:='V∞roslav';
  316. 28 : Label4.Caption:='Viktor';
  317. 29 : Label4.Caption:='Marta';
  318. 30 : Label4.Caption:='Bo°ivoj';
  319. 31 : Label4.Caption:='Ignßc';
  320.     end;
  321. 8: case day of
  322. 1 : Label4.Caption:='Oskar';
  323. 2 : Label4.Caption:='Gustav';
  324. 3 : Label4.Caption:='MiluÜe';
  325. 4 : Label4.Caption:='Dominik';
  326. 5 : Label4.Caption:='Milivoj';
  327. 6 : Label4.Caption:='Old°iÜka';
  328. 7 : Label4.Caption:='Lada';
  329. 8 : Label4.Caption:='Sob╪slav';
  330. 9 : Label4.Caption:='Roman';
  331. 10 : Label4.Caption:='Vav°inec';
  332. 11 : Label4.Caption:='Zuzana';
  333. 12 : Label4.Caption:='Klßra';
  334. 13 : Label4.Caption:='Alena';
  335. 14 : Label4.Caption:='Alan';
  336. 15 : Label4.Caption:='Hana';
  337. 16 : Label4.Caption:='Jßchym';
  338. 17 : Label4.Caption:='Petra';
  339. 18 : Label4.Caption:='Helena';
  340. 19 : Label4.Caption:='Ludvφk';
  341. 20 : Label4.Caption:='Bernard';
  342. 21 : Label4.Caption:='Johana';
  343. 22 : Label4.Caption:='Bohuslav';
  344. 23 : Label4.Caption:='Sandra';
  345. 24 : Label4.Caption:='Bartolom∞j';
  346. 25 : Label4.Caption:='Radim';
  347. 26 : Label4.Caption:='Lud∞k';
  348. 27 : Label4.Caption:='Otakar';
  349. 28 : Label4.Caption:='August²n';
  350. 29 : Label4.Caption:='nenφ svßtek';
  351. 30 : Label4.Caption:='èt∞pßn';
  352. 31 : Label4.Caption:='Pavlφna';
  353. end;
  354. 9: case day of
  355. 1 : Label4.Caption:='Linda';
  356. 2 : Label4.Caption:='Adela';
  357. 3 : Label4.Caption:='Bronislav';
  358. 4 : Label4.Caption:='Jind°iÜka';
  359. 5 : Label4.Caption:='Boris';
  360. 6 : Label4.Caption:='Boleslav';
  361. 7 : Label4.Caption:='Regina';
  362. 8 : Label4.Caption:='Mariana';
  363. 9 : Label4.Caption:='Daniela';
  364. 10 : Label4.Caption:='Irma';
  365. 11 : Label4.Caption:='Denisa';
  366. 12 : Label4.Caption:='Marie';
  367. 13 : Label4.Caption:='Lubor';
  368. 14 : Label4.Caption:='Radka';
  369. 15 : Label4.Caption:='Jolana';
  370. 16 : Label4.Caption:='Ludmil';
  371. 17 : Label4.Caption:='Nad∞₧da';
  372. 18 : Label4.Caption:='KryÜtof';
  373. 19 : Label4.Caption:='Zita';
  374. 20 : Label4.Caption:='Oleg';
  375. 21 : Label4.Caption:='MatouÜ';
  376. 22 : Label4.Caption:='Darina';
  377. 23 : Label4.Caption:='Berta';
  378. 24 : Label4.Caption:='Jaromφr';
  379. 25 : Label4.Caption:='Zlata';
  380. 26 : Label4.Caption:='Andrea';
  381. 27 : Label4.Caption:='Jonas';
  382. 28 : Label4.Caption:='Vßclav';
  383. 29 : Label4.Caption:='Michal';
  384. 30 : Label4.Caption:='Jeron²m';
  385.     end;
  386.     10:case day of
  387. 1 : Label4.Caption:='Igor';
  388. 2 : Label4.Caption:='Galina';
  389. 3 : Label4.Caption:='Bohumil';
  390. 4 :
  391.    begin
  392.    SndPlaySound('joy.wav',snd_Async);
  393.    Label4.Caption:='FrantiÜek';
  394.    end;
  395. 5 : Label4.Caption:='EliÜka';
  396. 6 : Label4.Caption:='Hanus';
  397. 7 : Label4.Caption:='Sergej';
  398. 8 : Label4.Caption:='V∞ra';
  399. 9 : Label4.Caption:='ètefan';
  400. 10 : Label4.Caption:='Marina';
  401. 11 : Label4.Caption:='Andrej';
  402. 12 : Label4.Caption:='Marcel';
  403. 13 : Label4.Caption:='Renata';
  404. 14 : Label4.Caption:='nenφ svßtek';
  405. 15 : Label4.Caption:='Tereza';
  406. 16 : Label4.Caption:='Havel';
  407. 17 : Label4.Caption:='Hedvika';
  408. 18 : Label4.Caption:='LukßÜ';
  409. 19 : Label4.Caption:='Michaela';
  410. 20 : Label4.Caption:='Vendelín';
  411. 21 : Label4.Caption:='Brigita';
  412. 22 : Label4.Caption:='Sabina';
  413. 23 : Label4.Caption:='Teodor';
  414. 24 : Label4.Caption:='Nina';
  415. 25 : Label4.Caption:='Beata';
  416. 26 : Label4.Caption:='Erik';
  417. 27 : Label4.Caption:='Zoja';
  418. 28 : Label4.Caption:='nenφ svßtek';
  419. 29 : Label4.Caption:='Silvie';
  420. 30 : Label4.Caption:='TadeßÜ';
  421. 31 : Label4.Caption:='èt∞pßnka';
  422. end;
  423.  11:case day of
  424. 1 : Label4.Caption:='Felix';
  425. 2 : Label4.Caption:='nenφ svßtek';
  426. 3 : Label4.Caption:='Hubert';
  427. 4 : Label4.Caption:='Karel';
  428. 5 : Label4.Caption:='Miriam';
  429. 6 : Label4.Caption:='nenφ svßtek';
  430. 7 : Label4.Caption:='Bohumir';
  431. 8 : Label4.Caption:='Bohdan';
  432. 9 : Label4.Caption:='Ev₧en';
  433. 10 : Label4.Caption:='Martin';
  434. 11 : Label4.Caption:='Benedikt';
  435. 12 : Label4.Caption:='Tibor';
  436. 13 : Label4.Caption:='Sßva';
  437. 14 : Label4.Caption:='Leopold';
  438. 15 : Label4.Caption:='Otmar';
  439. 16 : Label4.Caption:='Mahulena';
  440. 17 : Label4.Caption:='Romana';
  441. 18 : Label4.Caption:='Al₧b∞ta';
  442. 19 : Label4.Caption:='Nikola';
  443. 20 : Label4.Caption:='Albert';
  444. 21 : Label4.Caption:='Cecílie';
  445. 22 : Label4.Caption:='Klement';
  446. 23 : Label4.Caption:='Emilie';
  447. 24 : Label4.Caption:='Kate°ina';
  448. 25 : Label4.Caption:='Artur';
  449. 26 : Label4.Caption:='XΘnie';
  450. 27 : Label4.Caption:='RenΘ';
  451. 28 : Label4.Caption:='Zina';
  452. 29 : Label4.Caption:='Ond°ej';
  453. 30 : Label4.Caption:='nenφ svßtek';
  454. end;
  455.     end;
  456. Label1.Caption:=MaskEdit1.Text;
  457. Label2.Caption:=MaskEdit1.Text;
  458. Label1.Caption := IntToStr(DayOfWeek(ADate)) + '. den v t²dnu';
  459. case den of
  460. 1: Label3.Caption:='ned∞le';
  461. 2: Label3.Caption:='pond∞lφ';
  462. 3: Label3.Caption:='·ter²';
  463. 4: Label3.Caption:='st°eda';
  464. 5: Label3.Caption:='Φtvrtek';
  465. 6: Label3.Caption:='pßtek';
  466. 7: Label3.Caption:='sobota';
  467. end;
  468. end;
  469.  
  470. procedure Tdenvtydnu.BitBtn2Click(Sender: TObject);
  471. begin
  472. MaskEdit1.Text:= DatetoStr(Now);
  473. BitBtn1.Click;
  474. end;
  475. procedure Tdenvtydnu.BitBtn4Click(Sender: TObject);var i:integer;begin
  476. begin
  477. close;
  478. end;
  479. end;
  480. procedure Tdenvtydnu.BitBtn3Click(Sender: TObject);
  481. begin
  482. MaskEdit1.SetFocus;
  483. end;
  484. procedure Tdenvtydnu.Button1Click(Sender: TObject);
  485. begin
  486. Form1.Show;
  487. end;
  488.  
  489. procedure Tdenvtydnu.SpeedButton1Click(Sender: TObject);
  490. begin
  491. Form1.ShowModal;
  492. end;
  493.  
  494. procedure Tdenvtydnu.SpeedButton2Click(Sender: TObject);
  495. begin
  496. Form2.Show;
  497.  
  498. end;
  499.  
  500. end.
  501.