Trucs et astuces Delphi - page 10

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.

Accéder aux Radiobuttons dans un TWebBrowser

uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Document: IHTMLDocument2; rbTestList: IHTMLElementCollection; rbTest: IHTMLOptionButtonElement; I: Integer; begin // Get a...

Intercepter les messages d'Internet Explorer

{This component allows you to intercept Internet Explorer messages such as"StatusTextChangeEvent", "DocumentCompleteEvent" and so on.Mit folgende Komponente lassen sich Nachrichten...

Obtenir le nombre de frame, la durée et la résolution d'une vidéo

{--- english -------------------------------------------------------------------Easiest way I know to get frame count, video length (in ms) and pixel resolution of a video file.}unit...

Obtenir rapidement la taille d'un fichier

function GetFilesize(sFileName: string; iPrecision: integer): string; var i: longint; f: file of byte; isize: extended; begin //desactiver les erreurs les erreurs d'E/S {$I-} assignfile(f,...

Ecrire un fichier log dans vos applications

const sLOGFILE = 'c:TraceFile.log'; function WriteLog(LogString: string): Integer; var f: TextFile; begin {$IOCHECKS OFF} AssignFile(f, sLOGFILE); if FileExists(sLOGFILE) then ...

Savoir lorsque le contenu du Presse-Papier change

{ An application can be not if ied of changes in the data stored in the Windows clipboard by registering itself as a Clipboard Viewer. Clipboard viewers use two API calls and several messages to...

Effectuer une rotation de 90° du texte dans un TStringGrid

uses {...} Grids;type TForm1 = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); end;...

Dessiner un rectangle de sélection avec la souris

private { Private declarations } AnchorX, AnchorY, CurX, CurY: Integer; Bounding: Boolean; end; implementation procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh...

Connaitre la version d'ADO installée

uses ComObj ; function GetADOVersion: var iant; var ADO: Variant; begin try ADO := CreateOLEObject('adodb.connection'); Result := ADO.Version; ADO := Null; except Result :=...

Ajouter une fichier texte à la position du curseur dans un TMemo

procedure TForm1.Button1Click(Sender: TObject); var sl: TStringList; begin sl := TStringList.Create; try sl.LoadFromFile('c:afile.txt'); Memo1.SetSelTextBuf(PChar(sl.Text)); ...

Script Delphi

Catégorie
Résumé de la rubrique
Contenu
528 articles
Rédaction
3 auteurs
Mise a jour
28/04/2009
Partager sur les réseau sociaux