Delphi internet dunyasinda en genis yayilmis dillerden biridir Delphi dilinde bizim bir nece kodlarimiz var ki, biz onlari size teqdim etmek isteyirik!Bu kodlari yoxlamaginiz meslehetdir!!!Biz size helelik 5 kod veririk yene kodlar yazilacaq!
Acilan sehifenin vaxtini duzeltmek
var f: file; begin Assign(f, DirInfo.Name); Reset(f); SetFTime(f, Time); Close(f); end;
ComboBox'in asagiya listelemesinin farkli bir yolu (DropComboBox)
SendMessage(ComboBox1.handle , 1039, 1, 0);
Basligi Gizlemek ve Gostermek
Procedure HideTitlebar; Var Save : LongInt; Begin If form1.BorderStyle=bsNone then Exit; Save:=GetWindowLong(form1.Handle,gwl_Style); If (Save and ws_Caption)=ws_Caption then Begin Case form1.BorderStyle of bsSingle, bsSizeable : SetWindowLong(form1.Handle,gwl_Style,Save and (Not(ws_Caption)) or ws_border); bsDialog : SetWindowLong(form1.Handle,gwl_Style,Save and (Not(ws_Caption)) or ds_modalframe or ws_dlgframe); End; form1.Height:=form1.Height-getSystemMetrics(sm_cyCaption); form1.Refresh; End; end;
Procedure ShowTitlebar; Var Save : LongInt; begin If form1.BorderStyle=bsNone then Exit; Save:=GetWindowLong(form1.Handle,gwl_Style); If (Save and ws_Caption)<>ws_Caption then Begin Case form1.BorderStyle of bsSingle, bsSizeable : SetWindowLong(form1.Handle,gwl_Style,Save or ws_Caption or ws_border); bsDialog : SetWindowLong(form1.Handle,gwl_Style,Save or ws_Caption or ds_modalframe or ws_dlgframe); End; form1.Height:=form1.Height+getSystemMetrics(sm_cyC aption); form1.Refresh; End; end;
