PDA

View Full Version : جا به جایی دکمه ضربدر پنجره به سمت چپ



francosoft
دوشنبه 30 آبان 1384, 09:22 صبح
با سلام

چه کسی می تواند مرا یاری سازد در انتقال دکمه ضربدر پنجره به سمت چپ یک پنجره؟

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

مننظرم.

موفق باشید

اَرژنگ
دوشنبه 30 آبان 1384, 09:39 صبح
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
protected
procedure CreateParams(var Params : TCreateParams); override;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

const
WS_EX_LAYOUTRTL = $00400000;
WS_EX_LAYOUT_RTL = WS_EX_LAYOUTRTL;

procedure TForm1.CreateParams(var Params : TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := WS_EX_LEFT or WS_EX_RTLREADING or WS_EX_LEFTSCROLLBAR or WS_EX_LAYOUT_RTL;
{WS_EX_LEFT عنوانِ پنجره در طرف راست,
use WS_EX_RIGHT عنوانِ پنجره در طرف چپ}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
BiDiMode := bdLeftToRight;//حتماً لاضمه
end;

end.