Eigenschaften eines Forms festlegen..

[Bine]

Hi ich hab bis jetzt alle Eigenschaften richtig gesetzt die ich benötige,..

Doch jetzt möchte ich das ein Benutzer das Form nicht verschieben kann!

Wie und wo setze ich diese Eigenschaft??

BINE;=)

[Andreas Kosch]

Hallo,

wenn Du versprichst, dass das nicht für eine Anwendung ist, die Benutzer mit Werbe-Einblendungen ärgert, kann man folgendes machen:
<pre>
unit Unit1;

interface

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

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
procedure WMNCHITTEST(var Msg : TMessage); message WM_NCHITTEST;
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close
end;

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
if Msg.Result = htCaption then
Msg.Result := htNowhere;
end;

end.
</pre>
Immer dann, wenn sich der Mauszeiger über der Fensterzeile befindet, wird Win32 beschummelt ;-