Exemples pour coder avec Delphi, page 5
Afficher les Hints dans une StatusBar |
||||
{....} private { Private-Deklarationen } procedure MyHint(Sender: TObject); {....} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := MyHint; ShowHint := true; ... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 10/06/2006 | vu 2328 fois | Rainer Kümmerle | |
Ajouter du texte à la fin du document HTML dans un TWebBrowser |
||||
uses MSHTML; procedure TForm1.Button1Click(Sender: TObject); var Range: IHTMLTxtRange; begin Range := ((WebBrowser1.Document as IHTMLDocument2).body as IHTMLBodyElement).createTextRange; ... | ||||
| Delphi - Trucs et astuces - Internet | le 26/05/2006 | vu 1537 fois | SwissDelphiCenter | |
Mettre à jour une table |
||||
Mettre à jour les calcul d'une table à partird'une autre avec 2 ligne de prog seulement | ||||
| Delphi - Grenier - Base de donnees | le 25/05/2006 | vu 2076 fois  |
Ada B | |
WebBrowser : erreur fatale avec certains jScript |
||||
Solutions:1. utiliser le TEmbeddedWB de www.euromind.com Fixer la propriété fpExceptions à false2. utiliser le TWebBrowser- Appeler la fonction dans OnCreate ou InitialisationSet8087CW($133F); | ||||
| Delphi - Trucs et astuces - Internet | le 06/05/2006 | vu 1199 fois | Communauté Delphi | |
Delphi DBASE RaveReport CodeBarre |
||||
Delphi +DBASE+ RaveReport + CodeBarreDésoler pour le tuto 'tutoRaveBarre_code.pdf' ; il fait 1427 Ko a lui seul; je n'ai pas pu le posterVoila si vous avez un problęme concernantRave... | ||||
| Delphi - Grenier - Base de donnees | le 02/05/2006 | vu 1995 fois | Ada B | |
Ajouter la page en cours dans un TWebBrowser aux favoris |
||||
// Placer sur la TForm: 1 TEdit, 2 TButtons, 1 TWebbrowser const NotAllowed: set of Char = ['"'] + ['/'] + [''] + ['?'] + [':'] + ['*'] + ... | ||||
| Delphi - Trucs et astuces - Internet | le 26/04/2006 | vu 2296 fois | Screaminator | |
Connaitre la position de la barre des tâches |
||||
var hTaskbar : HWND; T : TRect; begin hTaskBar:=FindWindow('Shell_TrayWnd',nil); // Find the handle of the taskbar GetWindowRect(hTaskBar,T); if (T.Top > Screen.Height DIV 2)... | ||||
| Delphi - Trucs et astuces - Systeme | le 12/04/2006 | vu 1547 fois | SwissDelphiCenter | |
Règler le volume du Mediaplayer |
||||
procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);{ Volume: 0 - 1000 } const MCI_SETAUDIO = $0873; MCI_DGV_SETAUDIO_VOLUME = $4002; MCI_DGV_SETAUDIO_ITEM = $00800000; ... | ||||
| Delphi - Trucs et astuces - Multimedia | le 01/04/2006 | vu 2324 fois | SwissDelphiCenter | |
Dessiner sur le bureau |
||||
procedure TForm1.Button1Click(Sender: TObject); var Picture : TPicture; Desktop : TCanvas; X, Y : Integer; begin Picture := TPicture.Create; Desktop := TCanvas.Create; ... | ||||
| Delphi - Trucs et astuces - Graphisme | le 25/03/2006 | vu 2506 fois | SwissDelphiCenter | |
Tracé de fonction physique |
||||
Tracé de fonction (deux fonctions possibles) avec zoom ( commande par menu et par la roulette de souris ainsi que le click droit maintenu), positionnement de points expérimentaux, lissage par... | ||||
| Delphi - Grenier - Graphisme | le 21/02/2006 | vu 842 fois | Whybrew | |