• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

sal1150

اعضاء
  • عدد المشاركات

    68
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن sal1150

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0
  1. هل توجد تقنية برمجيه تجعلني افتح الملف التنفيذي مباشرة من السيرفر الى مستعرض الزبون بدون تنزيله او بمعنى اصح استعراض الـform في مستعرض الويب مباشرة؟
  2. انا سمعت ان DELPHI2005 تدعم العربية ... نامل من يستخدمها يخبرنا !
  3. كيفية معرفة انه حصل تغيير على Record

    استخدم beforpost و afterpost
  4. جعل شكر الفورم غير مربع

    جرب هذا الكود وحاول ان تعدل فيه حسب ماتريد وان اردت مساعده فانا حاضر.......... unit unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  Buttons, Menus, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure Button1Click(Sender: TObject);    procedure FormPaint(Sender: TObject);  private    { Private declarations }    rTitleBar : THandle;    Center    : TPoint;    CapY   : Integer;    Circum    : Double;    SB1       : TSpeedButton;    RL, RR    : Double;    procedure TitleBar(Act : Boolean);    procedure WMNCHITTEST(var Msg: TWMNCHitTest);      message WM_NCHITTEST;    procedure WMNCACTIVATE(var Msg: TWMNCACTIVATE);      message WM_NCACTIVATE;    procedure WMSetText(var Msg: TWMSetText);      message WM_SETTEXT;  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} CONST  TitlColors : ARRAY[Boolean] OF TColor =    (clInactiveCaption, clActiveCaption);  TxtColors : ARRAY[Boolean] OF TColor =    (clInactiveCaptionText, clCaptionText); procedure TForm1.FormCreate(Sender: TObject); VAR  rTemp, rTemp2    : THandle;  Vertices : ARRAY[0..2] OF TPoint;  X, Y     : INteger; begin  Caption := 'GOOD SHAPE';  BorderStyle := bsNone; {required}  IF Width > Height THEN Width := Height  ELSE Height := Width;  {harder to calc if width <> height}  Center  := Point(Width DIV 2, Height DIV 2);  CapY := GetSystemMetrics(SM_CYCAPTION)+8;  rTemp := CreateEllipticRgn(0, 0, Width, Height);  rTemp2 := CreateEllipticRgn((Width DIV 4), (Height DIV 4),    3*(Width DIV 4), 3*(Height DIV 4));  CombineRgn(rTemp, rTemp, rTemp2, RGN_DIFF);  SetWindowRgn(Handle, rTemp, True);  DeleteObject(rTemp2);  rTitleBar  := CreateEllipticRgn(4, 4, Width-4, Height-4);  rTemp := CreateEllipticRgn(CapY, CapY, Width-CapY, Height-CapY);  CombineRgn(rTitleBar, rTitleBar, rTemp, RGN_DIFF);  Vertices[0] := Point(0,0);  Vertices[1] := Point(Width, 0);  Vertices[2] := Point(Width DIV 2, Height DIV 2);  rTemp := CreatePolygonRgn(Vertices, 3, ALTERNATE);  CombineRgn(rTitleBar, rTitleBar, rTemp, RGN_AND);  DeleteObject(rTemp);  RL := ArcTan(Width / Height);  RR := -RL + (22 / Center.X);  X := Center.X-Round((Center.X-1-(CapY DIV 2))*Sin(RR));  Y := Center.Y-Round((Center.Y-1-(CapY DIV 2))*Cos(RR));  SB1 := TSpeedButton.Create(Self);  WITH SB1 DO    BEGIN      Parent     := Self;      Left       := X;      Top        := Y;      Width      := 14;      Height     := 14;      OnClick    := Button1Click;      Caption    := 'X';      Font.Style := [fsBold];    END; end; procedure TForm1.Button1Click(Sender: TObject); begin  Close; End; procedure TForm1.WMNCHITTEST(var Msg: TWMNCHitTest); begin  Inherited;  WITH Msg DO    WITH ScreenToClient(Point(XPos,YPos)) DO      IF PtInRegion(rTitleBar, X, Y) AND       (NOT PtInRect(SB1.BoundsRect, Point(X,Y))) THEN        Result := htCaption; end; procedure TForm1.WMNCActivate(var Msg: TWMncActivate); begin  Inherited;  TitleBar(Msg.Active); end; procedure TForm1.WMSetText(var Msg: TWMSetText); begin  Inherited;  TitleBar(Active); end; procedure TForm1.TitleBar(Act: Boolean); VAR  TF      : TLogFont;  R       : Double;  N, X, Y : Integer; begin  IF Center.X = 0 THEN Exit;  WITH Canvas DO    begin      Brush.Style := bsSolid;      Brush.Color := TitlColors[Act];      PaintRgn(Handle, rTitleBar);      R  := RL;      Brush.Color := TitlColors[Act];      Font.Name := 'Arial';      Font.Size := 12;      Font.Color := TxtColors[Act];      Font.Style := [fsBold];      GetObject(Font.Handle, SizeOf(TLogFont), @TF);      FOR N := 1 TO Length(Caption) DO        BEGIN          X := Center.X-Round((Center.X-6)*Sin(R));          Y := Center.Y-Round((Center.Y-6)*Cos(R));          TF.lfEscapement := Round(R * 1800 / pi);          Font.Handle := CreateFontIndirect(TF);          TextOut(X, Y, Caption[N]);          R := R - (((TextWidth(Caption[N]))+2) / Center.X);          IF R < RR THEN Break;        END;      Font.Name := 'MS Sans Serif';      Font.Size := 8;      Font.Color := clWindowText;      Font.Style := [];    end; end; procedure TForm1.FormPaint(Sender: TObject); begin  WITH Canvas DO    BEGIN      Pen.Color := clBlack;      Brush.Style := bsClear;      Pen.Width := 1;      Pen.Color := clWhite;      Arc(1, 1, Width-1, Height-1, Width, 0, 0, Height);      Arc((Width DIV 4)-1, (Height DIV 4)-1,        3*(Width DIV 4)+1, 3*(Height DIV 4)+1, 0, Height, Width, 0);      Pen.Color := clBlack;      Arc(1, 1, Width-1, Height-1, 0, Height, Width, 0);      Arc((Width DIV 4)-1, (Height DIV 4)-1,        3*(Width DIV 4)+1, 3*(Height DIV 4)+1, Width, 0, 0, Height);      TitleBar(Active);    END; end; end.
  5. اجبار مربع النص ان لايقبل الا الاعداد من 0 الى 9 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If not (Key in ['0'..'9', #13]) then     Key := #0; end;
  6. هذا الاجراء يجعلك تنقل مؤشر الفارة الى اي عنصر في النموذج procedure SetCursorToControl(Control: TControl); var pt: TPoint; begin pt:=Control.ClientToScreen(Point(0, 0)); SetCursorPos(pt.X, pt.Y) end;
  7. القيام ب Enter عن طريق الكود؟

    في حدث keypress يمكنك تفعيل زر enter مثلا :- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=chr(13) then Edit2.SetFocus; end;
  8. يعطيك العافيه اخي عروه اتمنى ان يكون لدي الوقت الكافي للمساهمه في تطوير مشروعك.... انا اعكف حاليا على تطوير مشروع ماسنجر واتمنى ان اجد فرصه لطلب مساعدتك. تقبل تحياتي،،،،،،،،
  9. sal 1150

    الاخ عدنان يفضل ان تكون الردود في نفس الموضوع... لن ازيد عن ماقال الاخ دلفي
  10. sal 1150

    انا سعيد بانك حليت معضلتك الطرق عديده ولكن ماقمت به هي الابسط والاسهل تحياتي،،،
  11. memolines

    var  Form1: TForm1;  i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Add(inttostr(i)); i:=i+1; end; procedure TForm1.FormCreate(Sender: TObject); begin i:=0; end;
  12. كيفية التحكم بالصوت

    وضح ماذا تعني التحكم بالصوت.... حاول ان تكتب الكلمات الاجنبيه بحروفها حتى نعرف ماذا تقصد... تحيات,,,
  13. أحتاج إلى كائن أرجو المساعدة .

    const  WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children  WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring procedure SetWinControlBiDi(Control: TWinControl); var  ExStyle: Longint; begin  ExStyle := GetWindowLong(Control.Handle, GWL_EXSTYLE);  SetWindowLong(Control.Handle, GWL_EXSTYLE, ExStyle or WS_EX_RTLREADING or WS_EX_RIGHT    or WS_EX_LAYOUTRTL or WS_EX_NOINHERITLAYOUT ); end; procedure TForm1.FormCreate(Sender: TObject); begin  SetWinControlBiDi(PageControl1); end;
  14. انت مبرمج دلفي فبتالي كل ماتريد متاح بين اناملك نعم تستطيع ان تجعل الفورم في ملف dll وتستطيع ان تستدعيها في تطبيقك وهي احدى الطرق السهلة لتقليل حجم البرنامج اليك هذا الكود library test; { Important note about DLL memory management: ShareMem must be the  first unit in your library's USES clause AND your project's (select  Project-View Source) USES clause if your DLL exports any procedures or  functions that pass strings as parameters or function results. This  applies to all strings passed to and from your DLL--even those that  are nested in records and classes. ShareMem is the interface unit to  the BORLNDMM.DLL shared memory manager, which must be deployed along  with your DLL. To avoid using BORLNDMM.DLL, pass string information  using PChar or ShortString parameters. } uses  SysUtils,  Classes,  Unit1 in 'Unit1.pas' {Form1}; {$R *.RES} procedure showform;stdcall; var        f:Tform1; begin        f:=Tform1.Create(nil);        f.ShowModal; end; exports        showform; begin end. This is unit1 in dll project unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin        self.caption:='Hello World'; end; end. من هنا تستطيع ملف dll المذكور اعلاه. unit Unit11; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; procedure showform;stdcall;external 'test.dll'; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin        showform; end; end.
  15. عندي مشكلة العربي

    الاخ مجرد انسان ادوات ادخال البيانات موجوده انظر الصورة