http://imageshack.us/photo/my-images/715/howtogk.jpghttp://www11.0zz0.com/2011/07/12/18/635254679.jpgإقتباس : في الصورة المرفقه مشار على مستطيل عند تحريكك له يضبط مكان ظهور برنامجك على الشاشة
http://www4.0zz0.com/2011/07/12/20/631888817.jpgprocedure TNxAlertWindow.DoPopupTimer(Sender: TObject);
var
Delta, h, Y, Sound: Integer;
TaskbarRect: TRect;
TaskbarPosition: Integer;
begin
Delta := 0;
TaskbarPosition := FindTaskbar(TaskbarRect);
case TaskbarPosition of
ABE_BOTTOM, ABE_TOP: Delta := TaskbarRect.Bottom - TaskbarRect.Top;
ABE_LEFT, ABE_RIGHT: Delta := TaskbarRect.Right - TaskbarRect.Left;
end;
case FAlertDirection of
adUp:
if Height + 5 >= FRealHeight then { full open }
begin
case TaskbarPosition of
ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
begin
SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft,
(Screen.Height - delta) - FRealHeight - FIndent, Width, FRealHeight, SWP_SHOWWINDOW);
end;
ABE_TOP:
begin
SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft,
TaskbarRect.Bottom + FIndent, Width, FRealHeight, SWP_SHOWWINDOW);
end;
end;
FPopupTimer.Enabled := False;
FDelayTimer.Enabled := FCloseDelay <> -1;
FFullOpen := True;
DoPopup;
if FPopupSound <> msNone then { play sound }
begin
Sound := 0;
case FPopupSound of
msIconAsterisk: Sound := MB_ICONASTERISK;
msIconExclamation: Sound := MB_ICONEXCLAMATION;
msIconHand: Sound := MB_ICONHAND;
msIconQuestion: Sound := MB_ICONQUESTION;
msOk: Sound := MB_OK;
end;
MessageBeep(Sound);
end;
end else
begin { in progress }
case TaskbarPosition of
ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
begin
h := Height + 5;
Y := TaskbarRect.Top - h - FIndent;
end;
else {ABE_TOP}
begin
h := Height + 5;
Y := TaskbarRect.Bottom + FIndent;
end
end;
SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft, Y,
Width, h, SWP_SHOWWINDOW);
end;
adDown:
if Height <= 0 then
begin
DoClosed;
end else
begin
case TaskbarPosition of
ABE_BOTTOM, ABE_LEFT, ABE_RIGHT:
begin
h := Height - 5;
Y := TaskbarRect.Top - h - FIndent;
end;
else {ABE_TOP}
begin
h := Height - 5;
Y := TaskbarRect.Bottom + FIndent;
end;
end;
SetWindowPos(Handle, HWND_TOPMOST, GetPopupLeft, Y,
Width, h, SWP_SHOWWINDOW);
end;
end; { case }
end;http://www.youtube.com/watch?v=FNWcy8S2k4Yprocedure TForm1.Button1Click(Sender: TObject);
var
Ident: Integer;
MyLang: PChar;
const
Size: Integer = 250;
begin
GetMem(MyLang, Size);
Ident:=GetSystemDefaultLangID;
VerLanguageName(Ident, MyLang, Size);
Label1.Caption:=StrPas(MyLang);
FreeMem(MyLang);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If label1.Caption='Français (France)' then
showmessage('France')
//change la position de form
else if Label1.Caption='Arabic (Algérie)' then
ShowMessage('Algérie')
//change la position de la form
else
ShowMessage('Anglais');
end;//لقراءة ارتفاع شريط المهام function TaskBarHeight: integer;var hTB: HWND; // taskbar handle TBRect: TRect; // taskbar rectanglebegin hTB:= FindWindow('Shell_TrayWnd', ''); if hTB = 0 then Result := 0 else begin GetWindowRect(hTB, TBRect); Result := TBRect.Bottom - TBRect.Top; end;end;procedure TForm1.FormCreate(Sender: TObject);beginForm1.Left:=Screen.Width-Form1.Width;Form1.Top:=Screen.Height-TaskBarHeight-Form1.Height;end;//هذا للنسخ الأجنبية (فرنسي إنجليزي ) والأخر للعربية procedure TForm1.FormCreate(Sender: TObject);beginForm1.Left:=0;Form1.Top:=Screen.Height-TaskBarHeight-Form1.Height;end;إقتباس :أنظر هذا الكود أخي لمعرفة لغة النظام تم التصرف في تغير مكان الفورمكود :procedure TForm1.Button1Click(Sender: TObject);var Ident: Integer; MyLang: PChar;const Size: Integer = 250; begin GetMem(MyLang, Size); Ident:=GetSystemDefaultLangID; VerLanguageName(Ident, MyLang, Size); Label1.Caption:=StrPas(MyLang); FreeMem(MyLang);end;procedure TForm1.Button2Click(Sender: TObject);beginIf label1.Caption='Français (France)' thenshowmessage('France')//change la position de formelse if Label1.Caption='Arabic (Algérie)' thenShowMessage('Algérie')//change la position de la formelseShowMessage('Anglais');end;