تمامی مسائل و مباحث در مورد دلفی

[satin]

سلام
لطفا کمکم کنید
من بیشتر برنامه هایی که می نویسم اصلا اجرا نمیشه یا اینکه فقط 1 بار اجرا میشه . مثلا Run که می کنم خود محیط برنامه رو نشون می ده . بعضی مواقع 1 پیامی میده که نمیتونه کامپیل کنه .
مشکل چیه ؟؟؟ برنامه هایی که می نویسم درسته .
1 سوال دیگه . من بانک اطلاعاتی اکسس توی برنامم دارم . با Quick Report که می خوام گزارش بگیرم اصلا نمی تونم فیلد ها رو به لیبیل ها وصل کنم . بانک اطلاعاتی رو با Ado و Sql کار می کنم . لطفا راهنمایی کنید .
ممنون

[NoneForce]

سلام
لطفا کمکم کنید
من بیشتر برنامه هایی که می نویسم اصلا اجرا نمیشه یا اینکه فقط 1 بار اجرا میشه . مثلا Run که می کنم خود محیط برنامه رو نشون می ده . بعضی مواقع 1 پیامی میده که نمیتونه کامپیل کنه .
مشکل چیه ؟؟؟ برنامه هایی که می نویسم درسته .
1 سوال دیگه . من بانک اطلاعاتی اکسس توی برنامم دارم . با Quick Report که می خوام گزارش بگیرم اصلا نمی تونم فیلد ها رو به لیبیل ها وصل کنم . بانک اطلاعاتی رو با Ado و Sql کار می کنم . لطفا راهنمایی کنید .
ممنون

سلام

يه پست هم توي متفرقه مي داديد!

دوست عزيز لطفا رعايت كنيد.

[HA2000]

اين هم يك برنامه با حال براي كسايي كه تا آخرش آمدن :

برنامه Magnifier يا ذره بين

يك فرم بسازيد و يك تايمر روش بزارين , ... :

}
‍Zoom
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
Zoom in portion of your desktop screen like a loope.
********************************************
Zarko Gajic
About.com Guide to Delphi Programming
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
email: [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
********************************************
{
unit uZoom;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, Buttons;
type
TFormZoom = class(TForm)
Image1: TImage;
Timer1: TTimer;
Panel1: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Slider: TTrackBar;
cbSrediste: TCheckBox;
procedure FormResize(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;
public
end;
var
FormZoom: TFormZoom;
implementation
{$R *.DFM}
procedure TFormZoom.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
inherited;
Msg.MinMaxInfo^.ptMinTrackSize := Point(158, 177); // min form size
Msg.MinMaxInfo^.ptMaxTrackSize := Point(350, 350); // max form size (width, height)
end;

procedure TFormZoom.FormResize(Sender: TObject);
begin
// panel in the middle of the form
Panel1.Left:=(FormZoom.ClientWidth Div 2) - Panel1.Width div 2;
Panel1.Top:=(FormZoom.ClientHeight Div 2) - Panel1.Height div 2;
Image1.Picture:=nil;
end;
procedure TFormZoom.FormDestroy(Sender: TObject);
begin
Timer1.Interval:=0;
end;
procedure TFormZoom.Timer1Timer(Sender: TObject);
var
Srect,Drect,PosForme:TRect;
iWidth,iHeight{,DmX,DmY}:Integer;
iTmpX,iTmpY:Real;
C:TCanvas;
hDesktop: Hwnd;
Kursor:TPoint;
begin
If not IsIconic(Application.Handle) then begin
hDesktop:= GetDesktopWindow;
GetCursorPos(Kursor);
PosForme:=Rect(FormZoom.Left,FormZoom.Top,FormZoom .Left+FormZoom.Width,FormZoom.Top+FormZoom.Height) ;
If not PtInRect(PosForme,Kursor) then begin
If Panel1.Visible=True then Panel1.Visible:=False;
If Image1.Visible=False then Image1.Visible:=True;
iWidth:=Image1.Width;
iHeight:=Image1.Height;
Drect:=Rect(0,0,iWidth,iHeight);
iTmpX:=iWidth / (Slider.Position * 4);
iTmpY:=iHeight / (Slider.Position * 4);
Srect:=Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);
InflateRect(Srect,Round(iTmpX),Round(iTmpY));
// move Srect if outside visible area of the screen
If Srect.Left<0 then OffsetRect(Srect,-Srect.Left,0);
If Srect.Top<0 then OffsetRect(Srect,0,-Srect.Top);
If Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
If Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
C:=TCanvas.Create;
try
C.Handle:=GetDC(GetDesktopWindow);
Image1.Canvas.CopyRect(Drect,C,Srect);
finally
ReleaseDC(hDesktop, C.Handle);
C.Free;
end;
{ If cbSrediste.Checked=True then begin // show crosshair
with Image1.Canvas do begin
DmX:=Slider.Position * 2 * (Kursor.X-Srect.Left);
DmY:=Slider.Position * 2 * (Kursor.Y-Srect.Top);
MoveTo(DmX - (iWidth div 4),DmY); // -
LineTo(DmX + (iWidth div 4),DmY); // -
MoveTo(DmX,DmY - (iHeight div 4)); // |
LineTo(DmX,DmY + (iHeight div 4)); // |
end; // with image1.Canvas
end; // show crosshair}
Application.ProcessMessages;
end // Cursor not inside form
else begin // cursor inside form
If Panel1.Visible=False then Panel1.Visible:=True;
If Image1.Visible=True then Image1.Visible:=False;
end;
end; // IsIconic
end;
end.

[شرعيات]

لطفا لینک سر راستی برایم بگذارین که بتونم از آن کمپوننتهای اصلی دلفی با شکل جدید و نه به شکل کلاسیک دانلود کنم .من به دکمه با لبه گرد و Scrollbar و RadioGroup و CheckBox ویندوز XP نیاز دارم .
یه چیز دیگه که خیلی نیاز دارم کادر تصویر با توانایی کشش تصویر با مابین سازی رنگ بین پیکسلها (که در TIMage نیست)هستش.
هرکی میتونه بهم کمک کنه .دستتون درد نکنه...

[ناصر60]

من وقتی می خواه با rvreport پرینت بگیرم ، سطرهایی که به عنوان فیلد در چاپ استفاده می کنم فقط در صفحه اول می یاد و در صفحه دوم به بعد دیگه نیست و اطلاعات روی آن چاپ میشه . لطفن بگین چی کار کنم .

[مرد مباح]

به دنبال مجموعه كامپوننت tsm بگرد و دانلود كن.
توي اون يكي از كارايي كه ميتوني بكني همينه.
نيازي هم نيست كه بري و برنامتو دونه دونه كامپوننتاشو عوض كني.
يك كامپوننت توي صفحت ميزاري كه همه شكلارو اون جوري كه دوست داري ميكنه. خيلي قابليتهاي قوي و به درد بخور ديگه هم داره و فكر كنم حدود 70-80 تا كامپوننت با امكانات خيلي زيادتر از استاندارد هم بهت ميده. موفق باشي.

[Ramin Khan]

با سلام خدمت دوستان محترم
من يه كامپوننت مي خوام تا باهاش بتونم از طريق برنامه خط تلفن را كنترل كنم

[Ramin Khan]

اگه كسي ميتونه با كامپوننت يا مثال يا نمونه برنامه كمكم كنه.
ممنون ميشم

[ایمان61]

تبدیل اطلاعات

[khshtip]

سلام دوستان
من میخواهم توی یک edit عدد وارد کنم که هر سه رقم یه ویرگول بزاره بدون زدن یک دکمه formatfloat رو تست کردم اما کاری که میخواستم نکرد می خواهم راهنماییم کنید مننون