´╗┐´╗┐ ´╗┐
Podstrony o programowaniu w Delphi

Strona o Delphi Pascal

Wprowadzanie hasła przy pomocy InputBox z ukrywaniem znaków
InputBox odp := InputBox('Potwierd- uprawnienia!',#31'Has┼éo : ','');
dodajemy #31
Okno dialogowe z klawiszami
MessageDlg if MessageDlg('Czy napewno usun─ů─ç tego u┼╝ytkownika?',
               mtInformation, [mbYes, mbNo], 0, mbNo) = mrYes then

- tre┼Ť─ç
- ikona
- zestaw klawiszy
- 0
- domy┼Ťlny ( pod┼Ťwietlony klawisz )
OK        mrOK      1
Anuluj    mrCancel  2
Tak       mrYes     6
Nie       mrNo      7
Przerwij  mrAbort   3
Powt├│rz   mrRetry   4
Ignoruj   mrIgnore  5

mtCustom        nazwa programu   brak
mtInformation   Information      dymek z liter┼í I
mtWarning       Warning          tr├│jk┼ícik z wykrzyknikiem
mtError         Error            k├│┼éeczko z X
mtConfirmation  Confirmation     dymek ze znakiem zapytania
Hex wprowadzany przy pomocy MaskEdit
MaskEdit Object Inspector > EditMask
Wprowadzamy nast─Öpuj─ůc─ů filtr      !AA-AA-AA-AA-AA-AA-AA-AA;1;_
Dodajemy zdarzenie 
procedure TForm4.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
     key := UpCase(key);
     if not (Key in ['0'..'9','A'..'F']) then Key := #0;
end;
Shift: TShiftState
Shift = pusto Sprawdzenie czy kt├│rykolwiek z dodatkowych klawiszy zosta┼é wci┼Ťni─Öty

ssShift  Klawisz Shift jest wci┼Ťni─Öty.  
ssAlt  Przytrzymany jest klawisz Alt.  
ssCtrl  Przytrzymany jest klawisz Ctrl.  
ssLeft  Lewy przycisk myszy jest wci┬ťni─Öty.  
ssPrawa  Prawy przycisk myszy jest wci┬ťni─Öty.  
ssMiddle   ┬îrodkowy przycisk myszy jest wci┬ťni─Öty.  
ssDouble   Mysz zosta┼éa dwukrotnie klikni─Öta.  
procedure Form1.gGridKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin     
 if (key=13) and (Shift = [] ) then
         begin
              // wci┬ťni─Öty sam enter bez Ctrl i Shift
        end;
end;

lub  if ( Key = VK_DELETE ) and ( ssCtrl in shift ) then
potwierdzi─ç if ([ssShift, ssCtrl] in shift) then


Fatal error: Uncaught Error: Call to undefined function mysql_result() in /home/server433550/ftp/licznik.php:30 Stack trace: #0 /home/server433550/ftp/allLang.php(410): licznik_all() #1 {main} thrown in /home/server433550/ftp/licznik.php on line 30