اين دستور را مي توان در رويداد OnEnter قرار داد
LoadKeyboardLayout('00000429',KLF_ACTIVATE);راست چين كردن
LoadKeyboardLayout('00000409',KLF_ACTIVATE);چپ چين كردن
مثال:
procedure TForm1.LabeledEdit1Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000409',KLF_ACTIVATE);
end;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, ExtCtrls, Buttons, XPMan;
type
...............
implementation
Function mask_tarikh(str:string):boolean;
var
b:boolean;
x:integer;
s:string;
begin
b:=true;
if b and (str=' / / ') then
begin
b:=false;
ShowMessage('تاريخ مشخص نشده است');
end;
x:=pos(' ',str );
if b then
if x>0 then
begin
b:=false;
showmessage('تاريخ صحيح نمي باشد');
end;
if b then
begin
s:=str;
s:=copy(s,6,2);
x:=strtoint(s);
if (x >12) or (x<1) then
begin
ShowMessage('ماه تاريخ صحيح نمي باشد');
b:=false;
end;
if x>6 then
begin
s:=str;
s:=copy(s,9,2);
x:=strtoint(s);
if (x>30) or (x<1) then
begin
ShowMessage('روز تاريخ صحيح نمي باشد');
b:=false;
end;
end;
if b then
begin
s:=str;
s:=copy(s,9,2);
x:=strtoint(s);
if (x >31) or (x<1) then
begin
b:=false;
ShowMessage('روز تاريخ صحيح نمي باشد');
end;
end;
end;
mask_tarikh:=b;
end;
{$R *.dfm}
procedure TForm1.MaskEdit1Exit(Sender: TObject);
var b1:Boolean;
begin
b1:=mask_tarikh(maskedit1.Text );
if b1=false then maskedit1.SetFocus
else MaskEdit2.SetFocus;
end;
end.
procedure ListFileDir(Path: string; FileList: TStrings); var SR: TSearchRec; begin if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then begin repeat if (SR.Attr <> faDirectory) then begin FileList.Add(SR.Name); end; until FindNext(SR) <> 0; FindClose(SR); end; end; procedure TForm1.Button1Click(Sender: TObject); begin ListFileDir('C:\WINDOWS\', ListBox1.Items); end;
procedure TForm1.DBGrid1TitleClick(Column: TColumn); begin if (TCustomADODataSet(Self.DataSource1.DataSet).Sort='')Or(Pos('DESC',TCustomADODataSet(Self.DataSource1.DataSet).Sort)> 0) then TCustomADODataSet(Self.DataSource1.DataSet).Sort := Column.FieldName+' ASC' else TCustomADODataSet(Self.DataSource1.DataSet).Sort := Column.FieldName+' DESC'; end;
procedure TForm1.Edit1Change(Sender: TObject);
var
LenNumber,I:Integer;
s:string[40];
begin
s:=Edit1.Text;
LenNumber:=StrLen( pchar( Edit1.Text ) );
Panel1.Caption:='';
for i:=0 to LenNumber-1 do
begin
Panel1.Caption := s[ LenNumber-I ] + Panel1.Caption;
if ((i+1) mod 3 =0)and(LenNumber <> (I+1) ) then
Panel1.Caption:= ',' + Panel1.Caption;
end;
end;
از قسمت uses فراموش نکنید قسمتی که رنگی هست باید اضافه شود
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls
,Shellapi;
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
ShellAbout(Form1.Handle,'عنوان پنجره','www.jrn.blogfa.com اينجا ميشه نوشت',Form1.Icon.Handle)
end;
end.
برای نصب Quick Report در Delphi7 به صورت زیر عمل کنید
۱- Delphi 7 رو اجرا کنيد.
۲- از منوی Componet گزينه Install Packages رو انتخاب کنيد.
۳- روی دکمه Add کليک کنيد.
۴- به شاخه ای که دلفی رو نصب کرده ايد برويد و وارد شاخه Bin بشويد.
۵- فايل dclqrt70.bpl رو انتخاب کنيد.
۶- روی دکمه Open کليک کنيد.
7- روی دکمه Ok کليک کنيد.
۸- نظرتون رو برام بنويسين.
{ مخفي کردن کليد}
procedure TForm1.Button1Click(Sender: TObject);
Var
Rgn : hRgn;
Begin
Rgn := CreateRectRgn(0, 0, 0, 0);
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd' , nil), 0, 'Button' , nil) , Rgn, true);
end;
{ ظاهر کردن کليد }
procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button' ,nil),0,true);
end;
{ غير فعال کردن کليد }
procedure TForm1.Button3Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0, 'Button', nil),false);
end;
{ فعال کردن کليد }
procedure TForm1.Button4Click(Sender: TObject);
begin
EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button',nil),true);
end;
کد زیر مسیر اجرای برنامه که فایل exe ما آنجا قرار دارد را به ما می دهد و آن را داخل رشته s مي ريزد.
procedure TForm1.FormCreate(Sender: TObject);
VAR
S:String;
begin
GetDir(0,S);
end;
کد های زیر را در KeyPres شئی های مورد نظر وارد کنید
ما هر کلیدی که وارد کنیم تست میشود که داخله مجموعه ما هست یا خیر اگر داخل مجموعه نباشد شرط نادرست و کداسکی که ما وادر کردیم یا همون کلید که زدیم به کداسکی ۰ تبدیل شده و کاری انجام نمیشود.
procedure TForm1.Edit2KeyPres(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',chr(0)..chr(25)])then
Key:=#0;
end;
این کد برای گرفتن عدد استفاده می شود
chr(0)..chr(25) برای کلیدهای کنترلی استفاده می شود مثل حذف حرکت و
در صورت نیاز میتوانید کدهای اسکی یا کارکتر مورد نظر خود راد داخل مجموعه اضافه کنید.
