Arama sonuçlarınız

table1.First; while not table1.Eof do begin if (Table1Numarasi.Text=edit1.Text)then begin edit2.Text:=Table1Adi.Text; edit3.Text:=Table1Soyadi.Text; edit7.SetFocus; end; table1.Next; end;

interface { Color Constants } uses SysUtils, Graphics; { NOTE: All Colors have the 'ec' prefix which means Encarta Color } const { Standard Encarta & FlatStyle Color Constants } ecDarkBlue = TColor($00996633); ecBlue = TColor($00CF9030); ecLightBlue = TColor($00CFB78F); ecDarkRed =...

interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons, StdCtrls, Menus; type TForm1 = class(TForm) SpeedButton1: TSpeedButton; Panel1: TPanel; Label1: TLabel; Edit1: TEdit; Button1: TButton; Shape1: TShape; Bahis: TEdit; Button2...

PostMessage(GetDesktopWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0

procedure TForm1.Button1Click(Sender: TObject); var i,sayi,y:longint; a:boolean; begin FORM1.Caption:='ASAL SAYILARIN BULUNMASI'; for sayi:=1 to 100 do begin i:=2; y:=trunc(sqrt(sayi)); a:=true; while (i<=y) and (a=true) do begin if sayi/i=sayi div i then a:=false else i:=i+1; end; if a<>false...

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin randomize; button1.Top :=random(form1.Height); button1.Left:=random(form1.Width); end;

uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; b : bool; begin CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONTS\FP000100.TTF', b); reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false...

procedure TForm2.FormCreate(Sender: TObject); VAR ara:boolean; begin edit1.Text:=datetostr(date); //edit1’i visible=true yap ara:=table2.Locate('ÖLÇÜMTARIHI',edit1.Text,[locaseinsensitive]); if ara=true then begin PlaySound(pChar('SYSTEMSTART'),0,SND_SYNC); showmessage('BUGÜN ÖLÇÜM VAR'); end...

procedure TForm1.Edit1Change(Sender: TObject); begin if edit1.Text='' then begin listbox1.Items.Clear; end; listbox1.Items.Clear; uzun:=length(edit1.Text); table1.First; while not table1.Eof do begin ad:=copy(edit1.Text,1,uzun); ad1:=copy(Table1Ad.Text,1,uzun); if(ad=ad1)then begin...

function IntToBin(Value: LongInt; Digits: Integer): String; var i: Integer; begin Result:=''; for i:=Digits downto 0 do if Value and (1 shl i)<>0 then Result:=Result + '1' else Result:=Result + '0'; end;

unit IA_RGNEd; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ToolWin, ComCtrls, ExtCtrls, StdCtrls, IAeverButton, ExtDlgs,Math,dsgnintf, RgnEdWindow; type TIARGNEditor = class(TPropertyEditor) public Dialog : TRgnEditorForm; Rgn : HRGN; Closedison ...

unit WinampApi; interface uses Windows,Messages,Classes,SysUtils; type TWinampApi = class private WinampHnd : THandle; function ConvertTime(n: integer;m : integer): string; function ConvertTimeTool(n: integer): string; function split(seperator: Char; text: String; var list: TStringList)...

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);