nyuuzyou/wikis huggingface dataset:
Как получить эффект тени для hint?

=== Как получить эффект тени для hint? ===
type 
 TXPHintWindow = class(THintWindow) 
 protected 
 procedure CreateParams(var Params: TCreateParams); override; 
 procedure WMNCPaint(var msg: TMessage); message WM_NCPAINT; 
 end; 
function IsWinXP: Boolean; 
begin 
 Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and 
 (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1); 
end; 
procedure TXPHintWindow.CreateParams(var Params: TCreateParams); 
const 
 CS_DROPSHADOW = $00020000; 
begin 
 inherited; 
 if IsWinXP then 
 Params.WindowClass.Style := Params.WindowClass.Style or CS_DROPSHADOW; 
end; 
procedure TXPHintWindow.WMNCPaint(var msg: TMessage); 
var 
 R: TRect; 
 DC: HDC; 
begin 
 DC := GetWindowDC(Handle); 
 try 
 R := Rect(0, 0, Width, Height); 
 DrawEdge(DC, R, EDGE_ETCHED, BF_RECT or BF_MONO); 
 finally 
 ReleaseDC(Handle, DC); 
 end; 
end; 
initialization 
 HintWindowClass := TXPHintWindow; 
 Application.ShowHint := False; 
 Application.ShowHint := True; 
end.
Source: Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
ID: 01271
Как пользоваться командой шела - MinimizeAll?

=== Как пользоваться командой шела - MinimizeAll? ===
Для этого надо импортировать Microsoft Shell Controls & Automation Type Library.
В меню Project..Import Type Library
Выберите Microsoft Shell Controls & Automation (version 1.0).
Нажмите Install...
На панели компонентов, в закладке ActiveX появится несколько компонентов. Перетащите на форму компонент TShell. После этого, например, можно всё минимизировать:
 Shell1.MinimizeAll;
/*********************************************************************
 Так же в этом компоненте присутствует давольно много забавных примочек.
*********************************************************************/
procedure TForm1.Shell(sMethod: Integer);
begin
 case sMethod of
 0: // Минимизируем все окна на рабочем столе
 begin
 Shell1.MinimizeAll;
 Button1.Tag := Button1.Tag + 1;
 end;
 1: // Показываем диалоговое окошко Run
 begin
 Shell1.FileRun;
 Button1.Tag := Button1.Tag + 1;
 end;
 2: // Показываем окошко завершения работы Windows
 begin
 Shell1.ShutdownWindows;
 Button1.Tag := Button1.Tag + 1;
 end;
 3: // Показываем окно поиска файлов
 begin
 Shell1.FindFiles;
 Button1.Tag := Button1.Tag + 1;
 end;
 4: // Отображаем окно настройки времени и даты
 begin
 Shell1.SetTime;
 Button1.Tag := Button1.Tag + 1;
 end;
 5: // Показываем диалоговое окошко настройки интернета (Internet Properties)
 begin
 Shell1.ControlPanelItem('INETCPL.cpl');
 Button1.Tag := Button1.Tag + 1;
 end;
 6: // Предлагаем пользователю выбрать директорию из Program Files
 begin
 Shell1.BrowseForFolder(0, 'My Programs', 0, 'C:\Program Files');
 Button1.Tag := Button1.Tag + 1;
 end;
 7: // Показываем диалоговое окошко настройки панели задач
 begin
 Shell1.TrayProperties;
 Button1.Tag := Button1.Tag + 1;
 end;
 8: // Восстанавливаем все окна на рабочем столе
 begin
 Shell1.UndoMinimizeAll;
 Button1.Tag := 0;
 end;
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 Shell(Button1.Tag);
end;
Source: Взято из http://forum.sources.ru
ID: 01736
Как поменять border страницы?

var
 Rng: OleVariant;
 LeftEdge: Border;
begin
 WS.Range['A5', 'D5'].Borders.Item[xlEdgeTop].Weight := xlThick;
 WS.Range['A5', 'D5'].Borders.Item[xlEdgeTop].Color := clYellow;
 WS.Range['A5', 'D5'].Borders.Item[xlEdgeBottom].Linestyle := xlDouble;
 WS.Range['A5', 'D5'].Borders.Item[xlEdgeBottom].Color := clYellow;
end;
begin
 WS.Evaluate('B6, C6, D6, E6, F6').Borders.Item[xlEdgeLeft].Line.style := xlContinuous;
 Rng := WS.Range['A1', 'A1'];
 Rng.BorderAround(xlContinuous, xlThin, Color := clFuchsia);
 LeftEdge := WS.Range['B2', 'B5'].Borders.Item[xlEdgeLeft];
 LeftEdge.Linestyle := xlContinuous;
 LeftEdge.Weight := 3;
 LeftEdge.Color := clLime;
end;
Source: Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04389
Category:COM
Category:MS Office
Как поменять иконку и стpокy в заголовке консольного окна?

=== Как поменять иконку и стpокy в заголовке консольного окна? ===
procedure TForm1.Button1Click(Sender: TObject);
var
 h: HWND;
 AIcon: TIcon;
begin
 AllocConsole;
 SetConsoleTitle(PChar('Console Title'));
 Sleep(0);
 h := FindWindow(nil, PChar('Console Title'));
 AIcon := TIcon.Create;
 ImageList1.GetIcon(0, AIcon);
 SendMessage(h, WM_SETICON, 1, AIcon.Handle);
 AIcon.Free;
end;
Source: Взято с http://delphiworld.narod.ru
ID: 02176
Как поменять ссылку в тексте?

{ ... }
Doc := Word.ActiveDocument;
for x := 1 to Doc.Hyperlinks.Count do
begin
 Doc.Hyperlinks.Item(x).Address;
end;
{ ... }
Source: Взято с Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04416
Category:COM
Category:MS Office
Как поменять установки на case-sensitive у сервера

=== Как поменять установки на case-sensitive у сервера ===
Rebuild Master Utility, она же Binn\rebuildm.exe. Если память не подводит, то схема такая:
 backup всех баз -> shutdown -> rebuild -> startup -> restore.
Author: Guderian
Source: Sources.ru
ID: 02863
Category:Базы данных
Category:MS SQL Server
Как поменять цвет Header'а в TListView

=== Как поменять цвет Header'а в TListView ===
Для этого нужно в оконной процедуре ListView обработать сообщение WM_NOTIFY с кодом NM_CUSTOMDRAW. И в обработчике этого сообщения назначить цвета фона и текста (можно назначить и шрифт). Но при этом правая часть header'а (область заголовка ListView, находящаяся справа от колонок) закрашиваться не будет. Чтобы закрасить и её, надо в оконной процедуре header'а обработать сообщение WM_ERASEBKGND, в котором и залить нужным цветом эту область. Ниже - небольшой примерчик с сабклассингом.
uses CommCtrl;
var
 BkBrush:HBRUSH; // тут сохраняем brush для фона
// процедура header'а
function NewHeaderProc(wnd: HWND; Msg: Cardinal; wParam: wParam; 
 lParam: lParam): Longint; stdcall;
var
 BrushOld: HBRUSH;
 ClientRect:TRect;
begin
 Result := CallWindowProc(Pointer(GetWindowLong(wnd, GWL_USERDATA)),
 wnd, Msg, wParam, lParam);
 if Msg = WM_ERASEBKGND then // закрашиваем область справа от колонок
 begin
 GetClientRect(wnd, ClientRect);
 BrushOld := SelectObject(wParam, BkBrush);
 FillRect(wParam, ClientRect, BkBrush);
 SelectObject(wParam, BrushOld);
 Result := 1;
 end
end;
// процедура ListView
function NewListProc(wnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): integer; stdcall;
var
 nmlvcd: PNMLVCUSTOMDRAW;
begin
 Result := CallWindowProc(Pointer(GetWindowLong(wnd, GWL_USERDATA)), wnd, uMsg, wParam, lParam);
 if uMsg = WM_NOTIFY then
 if PNMLISTVIEW(lParam)^.hdr.code = NM_CUSTOMDRAW then
 begin
 nmlvcd := PNMLVCUSTOMDRAW(lparam);
 case nmlvcd.nmcd.dwDrawStage of
 CDDS_PREPAINT: Result := CDRF_NOTIFYITEMDRAW;
 CDDS_ITEMPREPAINT:
 begin
 SetTextColor(nmlvcd.nmcd.hdc,clRed); // цвет текста
 SetBkColor(nmlvcd.nmcd.hdc,clYellow); // цвет фона
 Result := CDRF_DODEFAULT;
 end;
 CDDS_ITEMPOSTPAINT: Result := CDRF_DODEFAULT;
 end;
 end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
 i,j: integer;
 lit: TListItem;
begin
 with ListView1 do
 begin
 ViewStyle := vsReport; // стиль, естественно vsReport
 GridLines := True;
 // заполним ListView чем-нибудь
 for i := 0 to 2 do
 begin
 Columns.Add.Caption := 'Column' + IntToStr(i);
 Columns[i].Width := 70;
 lit := Items.Add;
 lit.Caption := 'Item' + IntToStr(i);
 for j := 1 to 2 do lit.SubItems.Add('SubItem' + IntToStr(j) + IntToStr(i))
 end;
 end;
 // меняем процедуру у ListView
 SetWindowLong(ListView1.Handle, GWL_USERDATA, SetWindowLong(ListView1.Handle, GWL_WNDPROC, LPARAM(@NewListProc)));
 //тоже самое у Header'а
 SetWindowLong(GetWindow(ListView1.Handle, GW_CHILD), GWL_USERDATA,
 SetWindowLong(GetWindow(ListView1.Handle, GW_CHILD), 
 GWL_WNDPROC, LPARAM(@NewHeaderProc)));
 BkBrush := CreateSolidBrush(clYellow); // цвет фона
end;
Ещё вариант: для каждого элемента header'а установить флаг HDF_OWNERDRAW и в оконной процедуре ListView обрабатывать WM_DRAWITEM, где так же назначать цвета для элементов заголовка ListView. 
 
Author: Krid 
Source: Взято из http://forum.sources.ru
ID: 00635
Как поменять цвет фона в RichEdit

=== Как поменять цвет фона в RichEdit ===
uses
 RichEdit;
procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
 Format: CHARFORMAT2;
begin
 FillChar(Format, SizeOf(Format), 0);
 with Format do
 begin
 cbSize := SizeOf(Format);
 dwMask := CFM_BACKCOLOR;
 crBackColor := AColor;
 Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
 end;
end;
// Example: Set clYellow background color for the selected text.
procedure TForm1.Button1Click(Sender: TObject);
begin
 RE_SetSelBgColor(RichEdit1, clYellow);
end;
Source: www.swissdelphicenter.ch
ID: 00583
Как поместить JPEG-картинку в exe-файл и потом загрузить ее?

=== Как поместить JPEG-картинку в exe-файл и потом загрузить ее? ===
1)Создайте текстовый файл с расширением ".rc".Имя этого файла должно отличаться от имени файла - проекта или любого модуля проекта.
Файл должен содержать строку вроде:
 MYJPEG JPEG C:\DownLoad\MY.JPG
* "MYJPEG" имя ресурса
* "JPEG" пользовательский тип ресурса
* "C:\DownLoad\MY.JPG" путь к JPEG файлу.
Пусть например rc - файл называется "foo.rc"
Запустите BRCC32.exe(Borland Resource CommandLine Compiler) - программа находится в каталоге Bin Delphi / C + +Builder'а - передав ей в качестве параметра полный путь к rc - файлу.
В нашем примере:
 C:\DelphiPath\BIN\BRCC32.EXE C:\ProjectPath\FOO.RC
Вы получите откомпилированный ресурс - файл с расширением ".res". (в нашем случает foo.res). Далее добавьте ресурс к своему приложению.
{ Грузим ресурс }
{$R FOO.RES}
uses Jpeg;
procedure LoadJPEGFromRes(TheJPEG: string; ThePicture: TPicture);
var
 ResHandle: THandle;
 MemHandle: THandle;
 MemStream: TMemoryStream;
 ResPtr: PByte;
 ResSize: Longint;
 JPEGImage: TJPEGImage;
begin
 ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');
 MemHandle := LoadResource(hInstance, ResHandle);
 ResPtr := LockResource(MemHandle);
 MemStream := TMemoryStream.Create;
 JPEGImage := TJPEGImage.Create;
 ResSize := SizeOfResource(hInstance, ResHandle);
 MemStream.SetSize(ResSize);
 MemStream.Write(ResPtr^, ResSize);
 FreeResource(MemHandle);
 MemStream.Seek(0, 0);
 JPEGImage.LoadFromStream(MemStream);
 ThePicture.Assign(JPEGImage);
 JPEGImage.Free;
 MemStream.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 LoadJPEGFromRes('MYJPEG', Image1.Picture);
end;
ID: 02159
Как поместить TCheckBox внутри TRichEdit?

=== Как поместить TCheckBox внутри TRichEdit? ===
Для использования следующего примера, необходимо создать новую форму, перетащить на неё TRichEdit (RichEdit1) и создать checkbox (acb) в событии FormCreate().
procedure TForm1.FormCreate(Sender: TObject);
var
 Acb: TCheckBox;
begin
 RichEdit1.Left := 20;
 Acb := TCheckBox.Create(RichEdit1);
 Acb.Left := 30;
 Acb.Top := 30;
 Acb.Caption := 'my checkbox';
 Acb.Parent := RichEdit1;
end;
Source: Взято из http://forum.sources.ru
ID: 00380
Как поместить TMenuItem справа у формы?

=== Как поместить TMenuItem справа у формы? ===
Допустим, у Вас есть TMainMenu MainMenu1 и HelpMenuItem в конце панели меню (Menubar). Если Вызвать следующий обработчик события OnCreate, то HelpMenuItem сместится вправо.
uses 
 Windows; 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
 ModifyMenu(MainMenu1.Handle, 0, mf_ByPosition or mf_Popup or mf_Help, HelpMenuItem1.Handle, '&Help'); 
end;
Source: Взято из http://forum.sources.ru
ID: 01304
Как поместить битмап в метафайл

Следующий пример демонстрирует рисование битмапа в метафайле.
procedure TForm1.Button1Click(Sender: TObject);
var
 m: TMetaFile;
 mc: TMetaFileCanvas;
 b: TBitmap;
begin
 m := TMetaFile.Create;
 b := TBitmap.Create;
 b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');
 m.Height := b.Height;
 m.Width := b.Width;
 mc := TMetafileCanvas.Create(m, 0);
 mc.Draw(0, 0, b);
 mc.Free;
 b.Free;
 m.SaveToFile('C:\SomePath\Test.emf');
 m.Free;
 Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');
end;
Source: http://forum.sources.ru
ID: 03766
Category:Графика
Category:Bitmap
Как поместить в буфер файл с помощью File Mapping?

* В файлике Delphi5\Demos\Resxplor\exeimage.pas ищи слово CreateFileMapping
* идея простая открываешь файл .. (или создаешь)
* создаешь Mapping ... CreateFileMapping
* отображаешь Mapping в свой процесс MapViewOfFile
и всё
var
 SharedHandle: THandle;
 FileView: Pointer;
 MyFile: HFILE;
begin
 MyFile := OpenFile('c:\1.txt', // pointer to filename
 ..., // pointer to buffer for file information
 ... // action and attributes
 );
 SharedHandle := CreateFileMapping(MyFile, nil, PAGE_READWRITE, 0,
 size {размер файла}, PChar('MyFile'));
 FileView := MapViewOfFile(SharedHandle, FILE_MAP_WRITE, 0, 0, size {размер файла});
 // потом
 UnmapViewOfFile(FileView);
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 03189
Category:Файловая система
Как поместить графическое изображение в TDBGrid

=== Как поместить графическое изображение в TDBGrid ===
Использование свойства Canvas компонента TDBGrid в методе OnDrawColumnCell позволяет не только выводить в ячейке текст методом TextOut, но и размещать в ячейках графические изображения. В этом случае используется метод Draw свойства Canvas.
Модифицируем наш пример, добавив в форму компонент TImageList и поместив в него несколько изображений.
Модифицируем код нашего приложения:
Соответствующий код для Delphi имеет вид:
procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
 Im1: TBitmap;
begin
 Im1 := TBitmap.Create;
 if Column.FieldName = 'VenueNo' then
 with DBGrid1.Canvas do
 begin
 Brush.Color := clWhite;
 FillRect(Rect);
 if Table.FieldByName('VanueNo').Value = 1 then
 ImageList1.GetBitmap(0, Im1)
 else
 ImageList1.GetBitmap(2, Im1);
 Draw(round((Rect.Left + Rect.Right - Im1.Width) / 2), Rect.Top, Im1);
 end;
end;
Теперь в TDBGrid в колонке VenueNo находятся графические изображения.
Source: Взято с http://delphiworld.narod.ru
ID: 03062
Category:Базы данных
Category:DBGrid
Как поместить двумерный массив в Image

=== Как поместить двумерный массив в Image ===
Представим, что данные находятся в массиве: 
TestArray: array[0..127, 0..127] of Byte;
Картинка будет иметь размер 128 x 128 точек: 
Image1.Picture.Bitmap.Width := 128; 
Image1.Picture.Bitmap.Height := 128; 
Вызываем функцию Windows API для формирования BitMap: 
SetBitmapBits(Image1.Picture.Bitmap.Handle, SizeOf(TestArray), @TestArray); 
Image1.Refresh; { для того, чтобы изменения отобразились }
Однако, если вы используете свою палитру, то ее нужно создать 
Source: http://delphiworld.narod.ru
ID: 00799
Как поместить иконку в окошко подсказки?

=== Как поместить иконку в окошко подсказки? ===
Следующий код помещает главную иконку приложения в окошки подсказок:
unit HintX; 
interface 
uses 
 Windows, Messages, Controls; 
type 
 TIconHintX = class(THintWindow) 
 protected 
 procedure Paint; override; 
 public 
 function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override; 
 end; 
implementation 
uses Forms; 
{ TIconHintX } 
{ Вычисляем новый размер окошка подсказки для помещения в него иконки: }
function TIconHintX.CalcHintRect(MaxWidth: Integer; const AHint: string; 
 AData: Pointer): TRect; 
begin 
 Result := inherited CalcHintRect(MaxWidth, AHint, AData);
 Result.Right := (Length(AHint) * 5) + Application.Icon.Width; 
 Result.Bottom := (Application.Icon.Height) * 2; 
end; 
procedure TIconHintX.Paint; 
const 
 MARGIN = 5; 
begin 
 inherited; 
 Canvas.Draw(MARGIN, MARGIN * 5, Application.Icon); 
 SendMessage(Handle, WM_NCPAINT, 0, 0); // рисуем рамку окошка подсказки
end; 
initialization 
 // связываем наш новый класс с классом окошка подсказки установленным по умолчанию:
 HintWindowClass := TIconHintX; 
end. 
Чтобы увидеть это в действии, всё, что надо сделать, это поместить этот юнит список USES Вашего приложения
Source: Взято из http://forum.sources.ru
ID: 01275
Как поместить картинки в Combo Box?

=== Как поместить картинки в Combo Box? ===
Делается это при помощи стиля ownerdraw, который присутствует в TComboBox. Нас интересуют два свойства этого стиля:
csOwnerDrawFixed - используется, если все битмапы имеют одинаковую высоту 
csOwnerDrawVariable - используется для битмапов с разной высотой 
После того как стиль будет установлен на один из вышеперечисленных, то можно воспользоваться событием onDrawItem. Это событие возникает каждый раз, когда приложению необходимо нарисовать пункт в выпадающем списке (combo box). Событие определяется следующим образом:
 procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; 
 Rect: TRect; State: TOwnerDrawState) 
Если выпадающему списку был присвоен стиль csOwnerDrawFixed, то всё, что надо сделать, это написать процедуру, которая будет рисовать битмап и текст в событии onDrawItem.
Для выпадающего списка со стилем csOwnerDrawVariable необходимо пройти ещё одну дополнительную стадию. Заключается эта стадия в создании обработчика для события onMeasureItem. Это событие вызывается перед DrawItem, для того, чтобы Вы могли установить фактическую высоту для каждого элемента списка. Вот его определение:
 procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer); 
* Создайте новое приложение 
* Разместите на форме TComboBox и TImageList (если Вы используете delphi 1, то Вам придётся хранить битмапы каким-то другим способом) 
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
 (* Заполняем прямоугольник *)
 ComboBox1.Canvas.FillRect(Rect); 
 (* Рисуем сам битмап *)
 ImageList1.Draw(ComboBox1.Canvas, Rect.Left, Rect.Top, Index);
 (* Пишем текст после картинки *)
 ComboBox1.Canvas.TextOut(Rect.Left + ImageList1.Width + 2, Rect.Top, ComboBox1.Items[Index]);
end;
Source: Взято из http://forum.sources.ru
ID: 01157
Как поместить картинку в заголовок TListView?

=== Как поместить картинку в заголовок TListView? ===
Иногда бывает полезно в заголовке колонки показывать стрелочку, чтобы информировать пользователя, по какой колонке идёт сортировка. Добавьте следующий код в форму:
procedure TForm1.SetColumnImage(List: TListView; Column, Image: Integer; ShowImage: Boolean); 
var 
 Align,hHeader: integer; 
 HD: HD_ITEM; 
begin 
 hHeader := SendMessage(List.Handle, LVM_GETHEADER, 0, 0); 
 with HD do 
 begin 
 case List.Columns[Column].Alignment of 
 taLeftJustify: Align := HDF_LEFT; 
 taCenter: Align := HDF_CENTER; 
 taRightJustify: Align := HDF_RIGHT; 
 else 
 Align := HDF_LEFT; 
 end; 
 mask := HDI_IMAGE or HDI_FORMAT; 
 pszText := PChar(List.Columns[Column].Caption); 
 if ShowImage then 
 fmt := HDF_STRING or HDF_IMAGE or HDF_BITMAP_ON_RIGHT 
 else 
 fmt := HDF_STRING or Align; 
 iImage := Image; 
 end; 
 SendMessage(hHeader, HDM_SETITEM, Column, Integer(@HD)); 
end; 
Картинки берутся из списка SmallImages. Вам надо будет вызвать эту функцию для каждой колонки и установить ShowImage в TRUE для той колонки, которую Вы будете сортировать. Сделать это можно в функции OnColumnClick():
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn); 
var 
 i : integer; 
begin 
 // Это Ваша собственная функция сортировки
 CustomSort(@CustomSortProc, Column.Index); 
 // Этот цикл отображает иконку в выбранной колонке.
 for i := 0 to ListView1.Columns.Count-1 do 
 SetColumnImage(ListView1, i, 0, i = Column.Index); 
end; 
Проблема: Изменение размера колонки генерирует сообщение WM_PAINT, которое стирает картинку, поэтому Вам прийдётся переопределить WM_PAINT и вызвать SetColumnImage снова.
Использовался компонент TApplicationEvents в delphi 5.
Source: Взято из http://forum.sources.ru
ID: 00623
Как поместить картинку из базы данных, например MsSQL, в компонент TIMAGE ?

* Предполагается, что поле BLOB (например, Pict)
* в запросе Query.SQL пишется что-то вроде
 SELECT Pict FROM sometable WHERE somefield=somevalue
* запрос открывается
* делается "присваивание":
Image1.Picture.Assign(TBlobField(Query.FieldByName('Pict'));
// или, если известно, что эта картинка - Bitmap, то можно
Image1.Picture.Bitmap.Assign(TBlobField(Query.FieldByName('Pict'));
А можно воспользоваться компонентом TDBImage.
Author: Зайцев О.В.
Author: Владимиров А.М.
Source: http://forum.sources.ru
ID: 03626
Category:Графика
Category:Базы данных
Как поместить курсор мышки в нужное место на форме?

=== Как поместить курсор мышки в нужное место на форме? ===
uses 
 Windows; 
procedure PlaceMyMouse(Sender: TForm; X, Y: word); 
var 
 MyPoint: TPoint; 
begin 
 MyPoint := Sender.ClientToScreen(Point(X, Y)); 
 SetCursorPos(MyPoint.X, MyPoint.Y); 
end;
Source: Взято из http://forum.sources.ru
ID: 00418
Как поместить маленькие битмапы в TPopUpMenu?

=== Как поместить маленькие битмапы в TPopUpMenu? ===
Следующий пример демонстрирует добавление битмапа в пункт PopUpMenu при помощи API функции SetMenuItemBitmaps(). Эта функция имеет следующие параметры: дескриптор всплывающего меню, номер (начиная с нуля) пункта меню в который мы хотим добавить битмап, и два дескриптора битмапов (одна картинка для меню в активном состоянии, а вторая для неактивного состояния).
type
 TForm1 = class(TForm)
 PopupMenu1: TPopupMenu;
 Pop11: TMenuItem;
 Pop21: TMenuItem;
 Pop31: TMenuItem;
 procedure FormCreate(Sender: TObject);
 procedure FormDestroy(Sender: TObject);
 procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
 private
 { Private declarations }
 bmUnChecked : TBitmap;
 bmChecked : TBitmap;
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
 bmUnChecked := TBitmap.Create;
 bmUnChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\ALARMRNG.BMP');
 bmChecked := TBitmap.Create;
 bmChecked.LoadFromFile('C:\Program Files\Borland\BitBtns\CHECK.BMP');
 { Добавляем битмапы в пункт меню начиная с 1 в PopUpMenu }
 SetMenuItemBitmaps(PopUpMenu1.Handle,
 1,
 MF_BYPOSITION,
 BmUnChecked.Handle,
 BmChecked.Handle);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 bmUnChecked.Free;
 bmChecked.Free;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
var
 pt : TPoint;
begin
 pt := ClientToScreen(Point(x, y));
 PopUpMenu1.Popup(pt.x, pt.y);
end;
Source: Взято из http://forum.sources.ru
ID: 01299
Как поместить окно программы поверх всех?

=== Как поместить окно програмы поверх всех? ===
Если навсегда - то поставить у формы FormStyle свойство в fsStayonTop,
если надо чтобы просто программа была установлена в активное состояние (как будто кликнули на ней на таскбаре) - Application.BringtoFront
Кроме того можно играться API функцией ShowWindow передавая ей Form1.Handle, или Application.Handle и один из кучи параметров - посмотри на нее Help - там много вариантов. 
Author: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00407
Как поместить прозрачную фоновую картинку на компонент CoolBar?

=== Как поместить прозрачную фоновую каринку на компонент CoolBar? ===
procedure TForm1.Button1Click(Sender: TObject);
var
 Bm1: TBitmap;
 Bm2: TBitmap;
begin
 Bm1 := TBitmap.Create;
 Bm2 := TBitmap.Create;
 Bm1.LoadFromFile('c:\download\test.bmp');
 Bm2.Width := Bm1.Width;
 Bm2.Height := Bm1.Height;
 bm2.Canvas.Brush.Color := CoolBar1.Color;
 bm2.Canvas.BrushCopy(Rect(0, 0, bm2.Width, bm2.Height), Bm1,
 Rect(0, 0, Bm1.width, Bm1.Height), ClWhite);
 bm1.Free;
 CoolBar1.Bitmap.Assign(bm2);
 bm2.Free;
end;
ID: 00589