16-11-2009, 10:23 PM
شكرًا على تعاونكم معنا ولكن نفس المشكل وها هو الكود بالكامل اي الكود الذي اضفته تحت Uses
و الكود السابق
المشكلة لازالت قائمة
و الكود السابق
كود :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ExtCtrls;
const
WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children
WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBGrid2: TDBGrid;
Panel1: TPanel;
procedure FormCreate(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure SetWinControlBiDi(Control: TWinControl); // Make Control object Right
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;
end.