تغيير شكل مؤشر الماوس

Screen.Cursors[1] := LoadCursorFromFile('\Windows\Cursors\banana.ani');
Form1.Cursor := 1;

شكراً يا أخي محمد عبد العزيز الكود اشتغل و كل عام و أنت بخير في عيد الأضحى المبارك :D

هذا البرنامج صغير و مضحك و مفتوح المصدر

هدية مني إلى أعضاء النادي

Button.zip

Form1.TransparentColor := true;
Form1.TransparentColorValue := clred;

var
X,Y:integer;
begin
X:=0;
Y:=0;
while Y < Form1.Height  do
  begin
   X:=X+3;
   if X > Form1.Width then
	 begin
	  X:=0;
	  Y:=Y+3;
	 end;
   Canvas.Pixels[x,y] := clred;
  end;

end;

هذا الكود جميل يجعل مؤشر الماوس يرتجف

Timer Interval := 1;

procedure TForm1.Timer1Timer(Sender: TObject);
var
A:TPoint;
B:integer;
begin
A:=Mouse.CursorPos;
B:=random(4);
  case B of
	0:A.X := Mouse.CursorPos.X+3;
	1:A.X := Mouse.CursorPos.X-3;
	2:A.Y := Mouse.CursorPos.Y+3;
	3:A.Y := Mouse.CursorPos.Y-3;
  end;
Mouse.CursorPos := A;
end;

يمكنك من خلال هذا الكود التحكم بحجم الصوت داخل البرنامج فقط

//Uses//
, StdCtrls, MPlayer, ExtCtrls, Gauges, ComCtrls,inifiles,mmsystem,
  Buttons;

//TrackBar//
case TrackBar1.Position of
0:waveOutSetVolume(0,$00000000);
1:waveOutSetVolume(0,$10001000);
2:waveOutSetVolume(0,$20002000);
3:waveOutSetVolume(0,$30003000);
4:waveOutSetVolume(0,$40004000);
5:waveOutSetVolume(0,$50005000);
6:waveOutSetVolume(0,$60006000);
7:waveOutSetVolume(0,$70007000);
8:waveOutSetVolume(0,$80008000);
9:waveOutSetVolume(0,$90009000);
10:waveOutSetVolume(0,$a000a000);
11:waveOutSetVolume(0,$b000b000);
12:waveOutSetVolume(0,$c000c000);
13:waveOutSetVolume(0,$d000d000);
14:waveOutSetVolume(0,$e000e000);
15:waveOutSetVolume(0,$f000f000);
16:waveOutSetVolume(0,$ff00ff00);
end;

السلام عليكم .....

+ أحتاج إلى كود لرسم الموجات الصوتية للميديا بلير الموجود مع الدلفي .

+ و فرد مرة أريد كود لمعرفة وقت الملف الصوتي أو الفيديو في الميديا بلير .

و شكراً سلفاً