الرسم على سطح المكتب من برنامجك في ديلفي

[Adnan]

تسطيع بواسطة ديلفي ان تتعامل مع سطح المكتب كان ترسم او تكتب اي شي
او اضافة اي تاثير من برنامجك
وهذا مثال صغير للمهتمين بهذا الموضوع مكتوب بلغة ديلفي
فقط ضع زرين واستعمل الكود التالي

==================================
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Canv:TCanvas;

implementation

{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);
begin
Canv := TCanvas.Create;
Canv.Handle := GetWindowDC(0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
Canv.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Canv.pen.Color := clred;
Canv.pen.Width := 20;
Canv.moveto(Screen.Width, 2);
Canv.lineto(2, 2);
Canv.lineto(2, Screen.Height);
Canv.lineto(Screen.Width, Screen.Height);
Canv.lineto(Screen.Width, 2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Canv.Font.Name := 'Arial';
Canv.Font.Size := 55;
Canv.Font.Color := clWhite;
Canv.Brush.Style := bsclear;
Canv.textout(240, Screen.Height div 2 - 30, 'Adnan Kanaan !');
end;

end.
=======================================

[Fahad]

شكرا لك اخي عدنان على هذه المشاركات المتميزة .. وبارك الله فيك ..



:can: