Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal),
l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits.
Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.
uses Windows, ShellAPI, Forms, Classes,SysUtils... function FileListToStr ( FileList: TStringList ): string; var i :integer; begin Result:= ''; for i:= FileList.Count -1 downto 0 do begin ...
type TCustomSortStyle = (cssAlphaNum, cssNumeric, cssDateTime); var { var iable to hold the sort style } LvSortStyle: TCustomSortStyle; { array to hold the sort order } LvSortOrder:...
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Sh if t) and...
procedure LockControl(c: TWinControl; bLock: Boolean); begin if (c = nil) or (c.Handle = 0) then Exit; if bLock then SendMessage(c.Handle, WM_SETREDRAW, 0, 0) else begin ...
function Parse(Char, S: string; Count: Integer): string; var I: Integer; T: string; begin if S[Length(S)] Char then S := S + Char; for I := 1 to Count do begin T := Copy(S, 0,...
{As an example I'll show how to show an animation that you can use to minimize your application to the system tray area. This example doesn't actually minimize the application, it only shows the...