?
Solved

Override Windows (C) window

Posted on 1999-10-25
2
Medium Priority
?
182 Views
Last Modified: 2010-04-04
I want to know how can I override default window windows...
See I want to draw a window that doesn't have a Title Bar
and that do not ack and feel as the Windows default window...

How can I do
I know it's a big question....
If u have any stuff like Tutorials or something like that
send to lazypete@total.net
0
Comment
Question by:Lazypete
2 Comments
 
LVL 17

Accepted Solution

by:
inthe earned 800 total points
ID: 2157453
Hi
you can look here for coolform:

http://www.lawrenz.com/coolform/ 

also some stuff here on making custom forms:
http://www.gnomehome.demon.nl/uddf/pages/forms.htm#forms14 


or do something like this to "change the form":

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
 BitMap : TBitMap;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Bitmap := TBitmap.Create;
opendialog1.execute;
Bitmap.LoadFromFile(opendialog1.filename);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  X, Y, W, H: LongInt;
begin
  with Bitmap do begin
    W := Width;
    H := Height;
  end;
  Y := 0;
  while Y < Height do begin
    X := 0;
    while X < Width do begin
      Canvas.Draw(X, Y, Bitmap);
      Inc(X, W);
    end;
    Inc(Y, H);
  end;
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
With Opendialog1 do try
execute;
if filename <>'' then
Bitmap.LoadFromFile(filename)
else finally Free;
end;
end;

end.

Regards Barry

0
 
LVL 1

Author Comment

by:Lazypete
ID: 2167693
Excelent....
That was just what i needed
0

Featured Post

Take Control of Web Hosting For Your Clients

As a web developer or IT admin, successfully managing multiple client accounts can be challenging. In this webinar we will look at the tools provided by Media Temple and Plesk to make managing your clients’ hosting easier.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Stellar Phoenix SQL Database Repair software easily fixes the suspect mode issue of SQL Server database. It is a simple process to bring the database from suspect mode to normal mode. Check out the video and fix the SQL database suspect mode problem.
If you are looking for an automated solution for backup single or multiple Office 365 user mailboxes to Outlook data file, then you can use Kernel Office 365 Backup & Restore tool. Go through the video to check out the steps to backup single or mult…
Suggested Courses

592 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question