0:3 12/03/1387
سورس های مفید
با سلام و خسته نباشید
یه سری کدهای مفید که فکر کنم واسه برنامه نویسان دلفی مفید باشه رو به امید خدا می خوام اینجا بزارم.ایشالله که مفید باشه
- پیدا کردن مسیر دایرکتوری برنامه در حال اجرا
procedure TForm1.Button1Click(Sender: TObject);
var path:string;
begin
path:=ExtractFilePath(Application.ExeName);
ShowMessage(path);
end;
-undo کردن یک عمل
procedure TForm1.Button1Click(Sender: TObject);
begin
with memo1 do
begin
Perform(EM_UNDO,0,0);
end;
end;
-حرکت کرسر درون memo با حرکت دادن موس
procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Memo1.SelStart:=loword(SendMessage(Memo1.Handle,EM_CHARFROMPOS,0,MakeLParam(x,y)));
Memo1.SelLength;
end;
-نمایش دادن ساعت جاری سیستم به صورت گرافیکی
public
{ Public declarations }
desktopcanvas : tcanvas;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
var a:tdatetime;
i :integer;
str:string;
begin
desktopcanvas := TCanvas.Create;
desktopcanvas.Handle := GetDC(HWND_DESKTOP);
a:=time;
str:=TimeToStr(a);
desktopcanvas.Font.Color := clblue;
desktopcanvas.Font.Name := ('timesnewrandom'); //show font
desktopcanvas.Font.Size:=18;
desktopcanvas.TextOut(567,0,str); //show location
SetBkMode(Canvas.Handle,i);
|