Object Inspector

[rcost4]

Qual atributo do object inspector que tenho que mudar para fazer o form ficar estatico na tela?

Valeu galera.

[KeitaroSan]

Como assim estático cara? sem se mover? o.o

[DELPHI-Man32]

:huh:

COMO ASSIM, MALUCO!

ESTÁTICO, EXPLICA MELHOR TALVEZ PODEMOS TE AJUDAR.

:huh:

[DELPHI-Man32]

;)

TALVEZ você QUEIRA O FORM CENTALIZADO TODA VEZ QUE você USAR O "RUN"

;)

[rcost4]

Deixe-me tentar exclarecer o q quero!!!

Sem o form poder ser direcionado ou mudado de tamanho.

Valeu!!!

[DELPHI-Man32]

:lol:

Solução:

Sim, é possível e é fácil. Siga os passos abaixo:

- Crie um novo projeto;

- Mude as seguintes propriedades do Form1:

BorderStyle = bsNone, FormStyle = fsStayOnTop,

- Coloque um Label;

- Coloque um Timer;

- Altere o evento OnTimer do Timer1 conforme abaixo:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption := TimeToStr(Time);

end;

- Altere o evento OnCreate do Form1 conforme abaixo:

procedure TForm1.FormCreate(Sender: TObject);

begin

Width := 80;

Height := 40;

Label1.Left := 10;

Label1.Top := 10;

end;

- Vá na seção private do Form1 e declare a procedure abaixo:

private

procedure WMNCHitTest(var Msg: TMessage);

message WM_NCHitTest;

public

{ Public declarations }

end;

- Vá na seção implementation e escreva a procedure abaixo:

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var Msg: TMessage);

begin

if GetAsyncKeyState(VK_LBUTTON) < 0 then

Msg.Result := HTCAPTION

else

Msg.Result := HTCLIENT;

end;

- Execute e experimente arrastar form com o mouse.

-------------------------------

PARA O TAMANHO

AI VAI.

unit Unit1;

interface

uses

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

type

TForm1 = class(TForm)

private

{ Private declarations }

procedure WMGetMinMaxInfo(var MSG: TMessage); message WM_GetMinMaxInfo;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMGetMinMaxInfo(var MSG: TMessage);

begin

inherited;

with PMinMaxInfo(MSG.lparam)^ do begin

ptMinTRackSize.X := 300;

ptMinTRackSize.Y := 150;

ptMaxTRackSize.X := 350;

ptMaxTRackSize.Y := 250;

end;

end;

end.

:lol:

DELPHI-Man32

[DELPHI-Man32]

B)

espero ter ajudado manu.

falowss.

B)

[KeitaroSan]

Se liga só cara, fazeh com que o form nom possa se redimensionado é moleza,

você só precisa mudah o estilo de borda da janela, tipow assim:

pra q a janela pareça uma janela normal, com barra de titulo, botao de fechar, maximizar e tal você pode usah o estilo:

bsSizeable ou bsSingle

a diferença de um pro outro, é que o primeiro q citei, aceita redimensionamento e o segundu nom aceita...

Agora manteh ele estático é meio dificil, pelo menos pra mim, eu nom cunheco nenhuma propriedade que defina issow, mas é klaru, você pode fazer issow, tipo com um Timer xecando si ele foi movido, caso tenha sido movido, você volta ele ao lugar que você keh ^^'''

é uma forma, não é??

Ahhh... klaru, ia eskecenu, o tipo de Borda none retira a barra de titulo e kualker borda da janela, desse jeito nom tem como o usuário mover a janela e nem redimensiona-la, porém você perde a barra de titulo, si issow nom foh problema pra você, intom essa pode se a solução cara...

bom, mas se alguém soubeh uma forma maix simples, por favor poste aki.... também mi interessa issow, hehe