کدهای آماده دلفی

محبوب ترینِ مؤمنان نزد خداوند متعال، کسی است که در راه فرمانبری خدا بکوشد، خیرخواه امّت پیامبرش باشد، در عیب هایش بیندیشد و آگاه گردد، خِرد ورزد و عمل کند . [رسول خدا صلی الله علیه و آله]

کدهای آماده دلفی

مخفی کردن دکمه شروع ویندوز

ShowWindow (
    FindWindowEx(FindWindow(
                            "Shell_TrayWnd",
                             nil),
                            0,
                            "Button",
                            nil)
             ,SW_Hide);

و برای ظاهر کردن دکمه شروع:

ShowWindow (
    FindWindowEx(FindWindow(
                            "Shell_TrayWnd",
                             nil),
                            0,
                            "Button",
                            nil)
             ,SW_ShowNormal);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 1:17 عصر

نظرات دیگران: نظر

تغییر رزولیشن ویندوز

برای تغییر رزولیشن( ابعاد صفحه نمایش)

function NuevaRes(XRes, YRes: DWord):integer;
var
lpDevMode : TDeviceMode;
begin
    EnumDisplaySettings(nil, 0, lpDevMode);
    lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
    lpDevMode.dmPelsWidth:=XRes;
    lpDevMode.dmPelsHeight:=YRes;
    NuevaRes:=ChangeDisplaySettings(lpDevMode, 0);
end;

به عنوان نمونه

procedure TForm1.Button1Click(Sender: T);
begin
NuevaRes(800,600);
end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:46 صبح

نظرات دیگران: نظر

مخفی کردن آیکون های دسک تاپ

برای مخفی کردن:

ShowWindow(
FindWindow(nil,"Program Manager"),
SW_SHOW);

برای ظاهر کردن:

ShowWindow(
FindWindow(nil,"Program Manager"),
SW_HIDE);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:46 صبح

نظرات دیگران: نظر

تغییر فونت هینت

از این روش برای تغییر فونت هینت استفاده کنید

implementation

{$R *.DFM}

type
THintConFont = Class (THintWindow)
constructor Create (AOwner: TComponent); override;
end;

constructor THintConFont.Create (AOwner: TComponent);
begin
inherited
Create (Aowner);
Canvas.Font.Name := "Times New Roman";
Canvas.Font.Size := 20;
end;

procedure TForm1.FormCreate(Sender: T);
begin
Application.ShowHint := False;
HintWindowClass := THintConFont;
Application.ShowHint := True;
end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:45 صبح

نظرات دیگران: نظر

عوض کردن کلید های موس

از این تابع برای عوض کردن کلید های موس استفاده می شود

SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, nil, 0);

برای برگرداندن به حالت عادی خود از این تابع استفاده کنید

SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, nil, 0);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:45 صبح

نظرات دیگران: نظر

ذخیره یک متن در یک فایل

از این تابع برای ذخیره یک متن در یک فایل استفاده می شود

procedure StrToFile(Texte: String; File_Name: String);
var
Stream: TStream;
begin
Stream := TFileStream.Create(File_Name, fmCreate);
try
Stream.WriteBuffer(Pointer(Texte)^, Length(Texte));
finally
Stream.Free;
end;
end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:45 صبح

نظرات دیگران: نظر

کلیک کردن روی دکمه(باتون)

برای کلیک کردن روی دکمه...به وسیله کد..

Button1.Perform(WM_LButtonDown,0,0);
Sleep(250);
Button1.Perform(WM_LButtonUp,0,0);

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:44 صبح

نظرات دیگران: نظر

کارت صدا در سیستم نصب شده است یا خیر

با استفاده از این تابع می توانید بفهید که آیا کارت صدا در سیستم نصب شده است یا خیر

//(sound card - installed or not )

function waveOutGetNumDevs: UINT; stdcall; external "winmm.dll" name
"waveOutGetNumDevs";

به عنوان مثال

procedure TForm1.Button1Click(Sender: T);
begin
if waveOutGetNumDevs > 0 then
ShowMessage("Sound card is installed")
else
ShowMessage("Sound card is not installed")
end;

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:43 صبح

نظرات دیگران: نظر

شفاف کردن فرم برنامه

از این کد برای شفاف کردن فرم برنامه خود استفاده کنید

procedure TForm1.Button1Click(Sender: T);
var
frmRegion, tempRegion: HRGN;
i: Integer;
Arect: TRect;
begin
frmRegion := 0;
for I:= 0 to ControlCount - 1 do begin
    aRect := Controls[i].BoundsRect;
    OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );
    tempRegion := CreateRectRgnIndirect( aRect );
    if frmRegion = 0 then
      frmRegion := tempRegion
    else begin
      CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
      Delete( tempRegion );
    end;
end;
tempregion :=
    CreateRectRgn( 0, 0, Width,
                   GetSystemMetrics( SM_CYCAPTION )+
                   GetSystemMetrics( SM_CYSIZEFRAME )+
                   GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil));

CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );
Delete( tempRegion );
SetWindowRgn( handle, frmRegion, true );
end

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:43 صبح

نظرات دیگران: نظر

یک استرینگ گرید با خانه های چند خطی

با استفاده از این تابع می توانید یک استرینگ گرید با خانه های که می توانید در هر کدام از این خانه ها چند خط را نوشت به این صورت که نوشته ها در داخل خانه ها در صورت جا نشدن در خانه شکسته می شوند و به خط بعد می رود

procedure TForm1.StringGrid1DrawCell(Sender: T; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s : string;
h : integer;
begin
StringGrid1.Canvas.fillrect(rect);
s := StringGrid1.cells[acol,arow];
h := DrawText(StringGrid1.canvas.handle,PChar(s),length(s),Rect,dt_noprefix or dt_wordbreak or dt_left);
if h > StringGrid1.rowheights[arow] then
begin
StringGrid1.rowheights[arow]:= h;
end;
end

برگرفته شده از سایت دنیای برنامه نویسی دلفی(http://mt85.blogfa.com)

محمد مقصودلو ::: شنبه 87/4/29::: ساعت 11:42 صبح

نظرات دیگران: نظر

< 1 2 3 4 5 >> >

لیست کل یادداشت های این وبلاگ

بهترین کامپوننت تاریخ شمسی در دلفی 7
یک ساعت فوق العاده
اضافه کردن زبان فارسی به ویندوز XP
یک Message Dialog با امکان تغییر نوشته ی دکمه و تمام قسمتها
بستن پنجره
پاک کردن برنامه به وسیله ی خودش
دانلود کردن سورس یک سایت
بدست آوردن آدرس جاری IE
پاک کردن آدرسهای IE
آموزش کار با IntraWeb در دلفی
مبدل ها
تصویر به bmp2icon) Icon)
تشخیص اینکه HARD DISK ما چند درایو دارد.
اینم یک برنامه ای که ICON درایوها را تغییر می دهد.
درست کردن فیلتر زرد رنگ روی ایمیج
[همه عناوین(126)][عناوین آرشیوشده]

>> بازدیدهای وبلاگ <<

بازدید امروز: 5

بازدید دیروز: 8

کل بازدید :87573

>> درباره خودم <<

محمد مقصودلو
در این وبلاگ سعی میکنم مطالب مربوط به برنامه نویسی دلفی ، پاسکال و گرافیک رایانه ای 2 بعدی و 3 بعدی را به روز کنم منتظر سوالات شما نیز هستم

>>تست سرعت تایپ<<

9 کلمه

Speed test

>> پیوندهای روزانه <<