Arama sonuçlarınız

kodu istediğiniz yere yazabilirsiniz. animatewindow(handle,500,aw_center); kod bu arkadaşlar. 500: kaç milisaniyede gelsin isterseniz... aw_center: buraya nasıl gelsin isterseniz onu yazın.. yani "aw_" yazın ctrl+space yapın orada neler yazılabilir görürsünüz.. ayrıca aralarına or...

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER,

Bir tane image componenti eklemek zorundasınız. procedure TForm1.FormCreate(Sender: TObject); var DCDesk: HDC; begin DCDesk:=GetWindowDC(GetDesktopWindow); BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY); ReleaseDC(GetDesktopWindow, DCDesk); end;

unit IARotateTimer; interface uses Windows,Classes,Forms,Controls; const cm_RotatedOn =cm_Base+105; type TiaRotateTimer = class(TThread) private { Private declarations } protected procedure Execute; override; public Dtime : integer; Handle1 : HWND; end; implementation { Important: Methods...

procedure TForm1.bClick(Sender: TObject); begin dblook.keyvalue := Null; q1.First ; while not q1.Eof do begin dblook.KeyValue := q1FKODU.AsString ; bdfoClick(Self); if q1FFAX.Text := '' then begin q1.next; Application.ProcessMessages ; end; q1.next; Application.ProcessMessages ; end...

type Tweb = class(TForm) WebBrowser1: TWebBrowser; Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; Edit1: TEdit; Edit2: TEdit; procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton2Click(Sender...

... const SC_MyMenuItem1 = WM_USER + 1; ... procedure TForm1.btnAddClick(Sender: TObject); const sMyMenuCaption1='My n&ew system menu item'; var SysMenu : HMenu; begin {Get system menu} SysMenu := GetSystemMenu(Handle, FALSE); {Add a seperator bar to main form-form1} AppendMenu(SysMenu...

Windows programının açılışı WinExec('C:\WINDOWS\NOTEPAD.EXE', SW_SHOWNORMAL); Komut satırı ile birlikte : WinExec('C:\WINDOWS\NOTEPAD.EXE C:\WINDOWS\WIN.INI', SW_SHOWNORMAL); Pop Up dos kutusuyla : WinExec('COMMAND.COM', SW_SHOWNORMAL);

Normal bir dos programının komutla açılışı WinExec('COMMAND.COM /C DIR *.*', SW_SHOWNORMAL);

alphablend:=true; alphablend.value=1; // 1 le 255 arasında değer alabilir

procedure TForm1.CheckBox1Click(Sender: TObject); begin edit1.Font.Style :=edit1.Font.Style + [fsbold]; end; procedure TForm1.CheckBox2Click(Sender: TObject); begin edit1.Font.Style:=edit1.Font.Style + [fsunderline]; end; procedure TForm1.CheckBox3Click(Sender: TObject); begin...

unit Matrix; interface type pdouble = ^double; type clsMatrix = class public constructor create(); procedure loadIdentity(); procedure setMatrixValues( matrix : array of single); procedure postMultiply( var matrix : clsMatrix ); procedure setTranslation( translation : array of single...

kod: Bu function nasil kullanacaksiniz s icinde index.htm gelir. artik siz bu S stringin icinde istediginiz gibi kontrollerinizi yapabilirsiniz 32 K kucuk ise bu yontemi deneyin. daha buyuk bir dosya ise once bunu diskinize kaydetmeniz gerekir. o zamanda procedure...

KOD: (1 shl (GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL) * GetDeviceCaps(Form1.Canvas.Handle, PLANES)));

KOD: if (GetKeyState(VK_CAPITAL) and $01)<>0 then Showmessage ('caps lock açık');

kod: Function Yoltring; Var I:byte S:string; Begin S:=Application.Exename; For I:=Length(S) Downto 1 Do If S[I]='\' Then Break; Yol:=Copy(S,1,I); End;

kod: procedure TForm1.FormCreate(Sender: TObject); var i : Integer; DevMode : TDevMode; begin i:=0; while EnumDisplaySettings(nil,i,DevMode) do begin with Devmode do ListBox1.Items.Add (Format('%dx%d %d Colors', [dmPelsWidth,dmPelsHeight,Int64(1) shl dmBitsperPel])); Inc(i); end; end; procedure...

kod: function IsUpperCase(Value: string): Boolean; begin Result := Value = UpperCase(Value); end;

kod: procedure TForm1.Edit1Exit(Sender: TObject); begin showmessage('Asla yazı kutusundan çıkamassın'); postmessage(handle,WM_NEXTDLGCTL,0,0); postmessage(handle,WM_NEXTDLGCTL,1,0); end;

uses DBTables; procedure TForm1.Button1Click(Sender: TObject); var CurrentAliases: TStringList; begin CurrentAliases := TStringList.Create; Session.GetAliasNames(CurrentAliases); ComboBox1.Items:= CurrentAliases; CurrentAliases.Free; end; uses DBTables; ... var sMaybeAlias : string; ...