فيجوال بيسك(كود عرض صورة فيMDI )

كيفية عرض صورة في شاشة
تستطيع عرض صورة في شاشة MDI باتباع الخطوات التالية:

قم بإنشاء برنامج جديد.
اجعل صفة كائن الشاشة FormStyle مساوية fsMDIForm.
ضع عنصر TImage على الشاشة واختر الصورة التي تريدها.
استخدم الأوامر التالية:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;

Type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
FClientInstance : TFarProc;
FPrevClientProc : TFarProc;
procedure ClientWndProc(var Message: TMessage);
public
end;

var
Form1: TForm1;

Implementation

{$R *.DFM}

procedure TForm1.ClientWndProc(var Message: TMessage);
var
Dc: hDC;
Row: Integer;
Col: Integer;
Begin
with Message do
case Msg of
WM_ERASEBKGND: begin
Dc := TWMEraseBkGnd(Message).Dc;
for Row := 0 to ClientHeight div Image1.Picture.Height do
for Col := 0 to ClientWidth div Image1.Picture.Width do
BitBlt(Dc, Col * Image1.Picture.Width, Row * Image1.Picture.Height, Image1.Picture.Width,
Image1.Picture.Height, Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
Result := 1;
end;
else Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FClientInstance := MakeObjectInstance(ClientWndProc);
FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
end;

end