|
|
Pour
information |
Si
vous souhaitez nous faire partager vos astuces, envoyer les moi
par email.
Une
fois testée, je les placerais dans cette section.
|
|
|
 |
Forms
& Composants |
Déplacer
une Form avec la souris (sans utiliser la barre de titre) :
Le principe est de vérifier quand la souris se déplace, dans
ce cas on met à jour les coordonnées de la souris. Si le
bouton gauche de la souris est pressé, on déplace la Form au coordonnées
correspondantes.
var
Xpos, Ypos : Integer;
procedure TForm1.FormMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
begin
If Shift = [ssLeft] then begin
Top:= Top + Y - Ypos;
Left:= Left + X - Xpos;
end
else begin
Xpos:= X;
Ypos:= Y;
end;
end;
|
|
|
|
Effet
Graphique |
Dessiner
un rectangle de sélection sur le bureau :
Le principe est capturer le Handle du bureau Windows®, de
l'attribuer au Canvas, de paramétrer le stylo (Pen) et de
spécifier un rectangle (de coordonnées X1,
Y1, X2,
Y2).
procedure
DrawDesk(Sender: TObject);
var
DC: hwnd;
begin
DC:= GetDC(0);
with canvas do begin
Handle:= DC;
Pen.Style:= psSolid;
Pen.Mode:=pmNot;
Pen.Width:= 4;
Rectangle(X1, Y1,
X2, Y2);
end;
end; |
|
|
|
Matériel
& Système |
Vérifier
la présence d'une disquette dans le lecteur :
Cette fonction renvoi TRUE si une disquette est présente. Pour
l'utilisation de DiskSize(1), 1
pour le lecteur A et 2 pour le
lecteur B.
function
TForm1.PresenceDisk: boolean;
var
ErrorMode: Word;
begin
// Désactive la gestion
des erreurs
ErrorMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
try
result:= DiskSize(1)
<> -1;
finally
// Ré-active la gestion
des erreurs
SetErrorMode(ErrorMode);
end;
end; |
|
|
Quelques
petites astuces utiles & pratiques