Mega Code Archive

 

Categories / Delphi / Graphic

 

Windows icon ve bitmaplerini program icinden almak

{ Cesitli icon sabitleri: (Daha fazlasi icin Windows unit'ine bakin) - IDI_APPLICATION - IDI_ASTERISK - IDI_EXCLAMATION - IDI_HAND - IDI_QUESTION } //Icons procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Icon.Handle:=LoadIcon(0,IDI_HAND); end; { Bitmap sabitleri: (Daha fazlasi icin Windows unit'ine bakin) - OBM_BTNCORNERS - OBM_BTSIZE - OBM_CHECK - OBM_CHECKBOXES - OBM_CLOSE - OBM_COMBO - OBM_DNARROW - OBM_DNARROWD - OBM_DNARROWI - OBM_LFARROW - OBM_LFARROWD - OBM_LFARROWI - OBM_MNARROW - OBM_REDUCE - OBM_RESTORE - OBM_REDUCED - OBM_SIZE - OBM_UPARROW - OBM_ZOOM } //Bitmap: procedure TForm1.Button2Click(Sender: TObject); begin image1.picture.bitmap.Handle:=LoadBitmap(0,makeintresource(OBM_RESTORE)); end;