Советы по Delphi. Версия 1.4.3 от 1.1.2001

  Left = 0

  Top = 41

  Width = 346

  Height = 221

  Align = alClient

  BevelInner = bvLoweredBorder

  Width = 4

  Caption = 'Panel2'

  TabOrder = 1

  object ScrollBox: TScrollBox

   Left = 6

   Top = 6

   Width = 334

   Height = 209

   HorzScrollBar.Margin = 6

   HorzScrollBar.Range = 147

   VertScrollBar.Margin = 6

   VertScrollBar.Range = 198

   Align = alClient

   AutoScroll = False

   BorderStyle = bsNone

   TabOrder = 0

   object Label1: TLabel

    Left = 6

    Top = 6

    Width = 28

    Height = 13

    Caption = 'Name'

    FocusControl = EditName

   end

   object Label2: TLabel

    Left = 6

    Top = 44

    Width = 32

    Height = 13

    Caption = 'Capital'

    FocusControl = EditCapital

   end

   object Label3: TLabel

    Left = 6

    Top = 82

    Width = 45

    Height = 13

    Caption = 'Continent'

    FocusControl = EditContinent

   end

   object Label4: TLabel

    Left = 6

    Top = 120

    Width = 22

    Height = 13

    Caption = 'Area'

    FocusControl = EditArea

   end

   object Label5: TLabel

    Left = 6

    Top = 158

    Width = 50

    Height = 13

    Caption = 'Population'

    FocusControl = EditPopulation

   end

   object EditName: TDBEdit

    Left = 6

    Top = 21

    Width = 135

    Height = 21

    DataField = 'Name'

    DataSource = DataSource1

    MaxLength = 0

    TabOrder = 0

   end

   object EditCapital: TDBEdit

    Left = 6

    Top = 59

    Width = 135

    Height = 21

    DataField = 'Capital'

    DataSource = DataSource1

    MaxLength = 0

    TabOrder = 1

   end

   object EditContinent: TDBEdit

    Left = 6

    Top = 97

    Width = 135

    Height = 21

    DataField = 'Continent'

    DataSource = DataSource1

    MaxLength = 0

    TabOrder = 2

   end

   object EditArea: TDBEdit

    Left = 6

    Top = 135

    Width = 65

    Height = 21

    DataField = 'Area'

    DataSource = DataSource1

    MaxLength = 0

    TabOrder = 3

   end

   object EditPopulation: TDBEdit

    Left = 6

    Top = 173

    Width = 65

    Height = 21

    DataField = 'Population'

    DataSource = DataSource1

    MaxLength = 0

    TabOrder = 4

   end

  end

 end

 object DataSource1: TDataSource

  Left = 95

  Top = 177

 end

 object Database1: TDatabase

  DatabaseName = 'DB1'

  LoginPrompt = False

  SessionName = 'Default'

  Left = 128

  Top = 176

 end

end

Как вызывать функцию 16-битной DLL из 32-битного приложения?

Из советов Nomadic'a:

Надо использовать Thunks.

Кусок работающего только под Windows 95 кода —

const

 Gfsr_SystemResources = 0;

 Gfsr_GdiResources = 1;

 Gfsr_UserResources = 2;

var

 hInst16: THandle;

 GFSR: Pointer;

 { Undocumented Kernel32 calls. }

function LoadLibrary16(LibraryName: PChar): THandle; stdcall; external kernel32 index 35;

procedure FreeLibrary16(HInstance: THandle); stdcall; external kernel32 index 36;

function GetProcAddress16(Hinstance: THandle; ProcName: PChar): Pointer; stdcall; external kernel32 index 37;

procedure QT_Thunk; cdecl; external kernel32 name 'QT_Thunk';

{ QT_Thunk needs a stack frame. }

{$StackFrames On}

{ Thunking call to 16-bit USER.EXE. The ThunkTrash argumentallocates space on the stack for QT_Thunk. }