Fiz esse form para aprender a desenvolver aplicativos sem o borderstyle do windows. Utilizei esse código abaixo.
|
Fiz esse código para ver se resolvia mas ainda não tive exito: unit u_exemplo1;{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; type { TfrmExemplo1 } TfrmExemplo1 = class(TForm) btnFechar: TButton; edNome: TEdit; Label1: TLabel; Panel1: TPanel; procedure btnFecharClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDockOver(Sender: TObject; Source: TDragDockObject; X, Y: Integer; State: TDragState; var Accept: Boolean); procedure FormDragDrop(Sender, Source: TObject; X, Y: Integer); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private dx: integer; dy: integer; { private declarations } public { public declarations } end;var frmExemplo1: TfrmExemplo1; implementation {$R *.lfm} { TfrmExemplo1 } procedure TfrmExemplo1.btnFecharClick(Sender: TObject); procedure TfrmExemplo1.FormCreate(Sender: TObject); procedure TfrmExemplo1.FormDockOver(Sender: TObject; Source: TDragDockObject;
X, Y: Integer; State: TDragState; var Accept: Boolean); procedure TfrmExemplo1.FormDragDrop(Sender, Source: TObject; X, Y: Integer); procedure TfrmExemplo1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); end; end. |
Encontrei nesse site a solução: Segue o Tutorial com os códigos: 1- Declare essas Váriaveis (de preferencia no private) : private **mouseIsDown: Boolean; dx: integer; dy: integer;** { private declarations }2- Eu utilizei o Panel para servir de cabeçalho e apenas clicando sobre ele é possivel mover o Form. Forem você pode escolher qualquer componente (Até mesmo o próprio Formulario) mas ai em qualquer lugar que clicar no formulario será possivel move-lo. 3- Crie o primeiro evento (OnMouseDown) para o componente escolhido como ''Ancora". e digite o código em negrito. (No meu caso frmExemplo1 é o Form, e pnPrincipal é o Panel). procedure TfrmExemplo1.pnPrincipalMouseDown(Sender: TObject; 4- Digite o código em negrito no evento (OnMouseMove) do mesmo Componente. procedure TfrmExemplo1.pnPrincipalMouseMove(Sender: TObject; 5- E por fim esse ultimo código no evento (OnMouseUp), do mesmo componente. procedure TfrmExemplo1.pnPrincipalMouseUp(Sender: TObject; end. Pronto, Só dar um F9 e executar seu aplicativo. Você pode inserir imagens e fazer esse mesmo processo com diversos componentes. Lembre de criar um componente que possa fechar a tela, se você for desativar a barra de titulo do windows. Para remove-la, vá nas propriedades do form no Object Inspector e e na propriedade BorderStyle selecione bsNone. |
Siga esta pergunta
Por Email:Uma vez que você entrar você poderá se inscrever para todas as atualizações aqui
Por RSS:Markdown Básico
- *italico* ou __italico__
- **negrito** or __negrito__
- link:[texto](http://url.com/ "Qual é a sua dúvida?")
- imagem?
- lista numerada: 1. Foo 2. Bar
- para adicionar uma quebra de linha basta adicionar dois espaços onde você gostaria que a nova linha estivesse.
- tags HTML básicas também são suportadas
Tags
pergunta feita: Jan 30 '17 às 04:18
pergunta lida: 807 vezes
última alteração: Jan 30 '17 às 06:18