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
Dasej (C) 2024 : 0