Fórum Auto alinhar componentes #479298

Alguém???

porque não faz uma grade com imagens que muda de acordo
com a condiçao da venda
[img]http://arquivo.devmedia.com.br/forum/imagem/298866-20140518-200411.png[/img]

Então, mas qual componente eu uso para isso?
E se por exemplo eu fechar uma mesa "2"... Eu consigo fazer o resto das mesas "encaixarem" logo após a número 2?

Entendeu o que eu disse?
To meio zureta já, kkkkkkkkkkkkkkkkk

Vlw...

O componente é TImage.

Esta tela não alinha os componentes como
você quer, mais cada imagem representa uma venda ou uma mesa,
e de acordo com o movimento um timer controla que imagem vai ser apresentada

ex: se fechar venda o timer troca a imagem para (mesa livre)

sendo assim consigo abrir a venda e fecha-la via comanda eletronica em android
já que na função do timer verifica os dados no banco

e no evento Click da imagem coloco uma condição se a imagem for mesavazia
encaminho a tela de venda caso contrario mando para tela de ediçao

procedure T_frmPrincipalTela.TimerTimer(Sender: TObject);
begin
mesa;
end;

procedure T_frmPrincipalTela.mesa();
var
I : Integer ;
img : Timage;
begin


for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TImage then
begin
img := Components[I] as TImage;
imagComanda := Copy(img.Name,6,3);
imagem(img,imagComanda); //função
sleep(10);
Application.ProcessMessages;

end;
end;


end;

procedure T_frmPrincipalTela.imagem(imag : TImage; comanda : String);
var img: TJpegimage;

Figura: file of Byte;
valor,pago : String;
sender : TObject;

begin
pago := 'NAO';

with Modulo.CalcularTudo do
begin
sql.Clear;
sql.Add('select * from pedidos where pago like'+ QuotedStr(pago));
sql.Add(' and comanda like '+ QuotedStr(comanda));
open;
end;

if Modulo.CalcularTudo.RecordCount > 0 then
begin
if imag.Width = 90 then
begin
img:=TJPEGIMAGE.CREATE;
img.LOADFROMFILE(local+'\Objetos\Imagens\mesaOcupada.jpg');
CLIPBOARD.Assign(img);
imag.picture.Assign(img);
imag.Width := 91 ;
img.Free;
end;

end else
begin


if imag.Width = 91 then
begin
img:=TJPEGIMAGE.CREATE;
img.LOADFROMFILE(local+'\Objetos\Imagens\mesavazia.jpg');
CLIPBOARD.Assign(img);
imag.picture.Assign(img);
imag.Width := 90;
img.Free;
end;
end;




end;

para controlar a posição dos componentes ao mudar o tamanho da tela, você mesmo pode implementar um algoritmo que seja chamado no form resize...

Blzzzzzzzzzz galera.. Obrigado pelas opiniões e ajuda.
Agradeço bastante.

Qualquer dúvida, eu volto a gritar aqui, kkkkkkkkkkkk

Abraço