vitorbrando

thaflorzinha coloca assim que funciona: if (edtvt1.Text='') then a:=0 else a:= StrToFloat(edtvt1.Text); falou!!!!

Aee Renato, Você pode fazer via código assim: No Evento OnActivate do Form colocar procedure TForm1.FormActivate(Sender: TObject); begin DBGrid1.Columns[0].Alignment := TaCenter; DBGrid1.Columns[1].Alignment := TaCenter; //ai varia quantas colunas você tem... end; Ou então você pode fazer isso selecionando as colunas do DBGrid no Object TreeView e marcar no ObjectInspector a Propriedade Alignment para TaCenter... falou!!

Cara você faz assim: No evento OnKeyPress do Form você coloca: if key = 'a' then begin Button1Click(button1); end; Não esqueça de colocar a propriedade KeyPreview do Form para true. falou!!!!

Bem pensado Paulo... Pode sim, vai funcionar do mesmo jeito e você ainda economiza uma linha... ehehehe... Um abraço!!!!

Cara não sei se é bem isso que você deseja não, mas dá uma olhada no que eu fiz aqui. Coloque um Form com um RichEdit. No form coloquei as propriedades ClientHeight = 16 ClientWidth = 115 BorderIcons = [] FALSE EM TODOS BorderStyle = bsnone No RichEdit Coloquei as prorpiedades Height = 17 Width = 113 A partir daí eu utilizei 2 eventos: OnKeyPress do Form OnChange do RichEdit Da uma olhada no Código ai : unit Unit_principal; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) RichEdit1: TRichEdit; procedure RichEdit1Change(Sender: TObject); procedure RichEdit1KeyPress(Sender: TObject; var Key: Char); private { Private declarations } public { Public declarations } end; var Form1: TForm1; I : integer = 0; L : integer = 0; implementation {$R *.dfm} procedure TForm1.RichEdit1Change(Sender: TObject); begin i:=i+1; l := l + 1; if i >= 8 then begin if RichEdit1.ClientWidth < 258 then begin i:=0; Form1.ClientWidth := Form1.ClientWidth + 25; RichEdit1.ClientWidth := RichEdit1.ClientWidth + 25; end; if RichEdit1.ClientHeight < 100 then begin if l >= 35 then begin l :=0; Form1.ClientHeight := Form1.ClientHeight + 17; RichEdit1.ClientHeight := RichEdit1.ClientHeight + 17; end; end; end; end; procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char); begin if RichEdit1.Lines.Count < 5 then begin if key = #13 then begin Form1.ClientHeight := Form1.ClientHeight + 17; RichEdit1.ClientHeight := RichEdit1.ClientHeight + 17; end; end; end; end. falou!!!!

Bem cara você pode desenhar uma planta baixa do hotel (dependendo do tamanho do hotel né), como no desenho acima, e colocar em baixo ou um Dbedit ou DbText com os valores dos campos da tabela da situação de cada quarto. Daí você faz a consulta da Tabela e modifica a cor do desenho de cada quarto da planta de acordo com o Status do quarto. Assim a planta servirá como uma espécie de visão mais geral da situação do hotel. Para fazer essa planta eu usei o componente Shape, mas ficou meio feioso e você pode incrementar mais o desenho para ter uma coisa mais bem apresentável. Bom, não sei se era bem isso que você queria não, mais espero ter ajudado.... Um abraço!!!

Cara você pode usar um arquivo "TXT" para isso. Quando você abrir o programa você lê esse arquivo e você pode colocar lá algo que indique que se é a primeira vez que abre no dia ou não, tipo valor booleano (on, off / 0, 1 / true, false), você escolhe. E no final do dia quando você encerrar esse caixar você muda esse valor nesse arquivo TXT, (se on para primeira vez, muda pra off ou vice-versa) assim da próxima vez que você abrir o programa ele vai ler o arquivo e verificar se é ou não a primeira vez que está abrindo o programa naquele dia. Espero ter ajudado... Um abraço!!!