Como preparar o Form antes do showmodal

Question

Galera tenho uma aplica��o que uso meus forms todos wsMaximized e todos com a op��o de Anchors para se adptar as diferentes resolu��o, mais percebo que depois do showModal debora um pouco para o form ...

Rafael Gomes · Answer

form com anchors para se adaptar a diferentes resolu�oes ...???[]sss...

Martins · Answer

[quote:208b56fd42=�Rafael Gomes�]form com anchors para se adaptar a diferentes resolu�oes ...???

[]sss[/quote:208b56fd42]

Essa � uma propriedade q est� dispon�vel apartir do D6 se n�o me engano, algu�m poderia confirmar por favor!!!!

Marcosrocha · Answer

[code:1:156b8b09e7]// Criando o FormApplication.CreateForm(TForm1,Form1);Form1.Height := 350;Form1.Caption := �Form Alterado Antes do ShowModal�;Edit1.Text := �Alguma coisa escrita�;// + Algum c�digo seu (inclusive pode-se chamar procedures e functions. Mas elas tem que ser declarada na public declarationsForm1.ShowModal;// Se quisesse pegar algum dado do Form1 antes do Free seria aquiForm1.Free[/code:1:156b8b09e7]� isso???...

Marcos Fernando · Answer

[code:1:1e54d0c1f3]// Criando o Form Application.CreateForm(TForm1,Form1); Form1.Height := 350; Form1.Caption := �Form Alterado Antes do ShowModal�; Edit1.Text := �Alguma coisa escrita�; // + Algum c�digo seu (inclusive pode-se chamar procedures e functions. Mas elas tem que ser declarada na public declarations Form1.ShowModal; // Se quisesse pegar algum dado do Form1 antes do Free seria aqui Form1.Free[/code:1:1e54d0c1f3]n�o � isso que procuro, procuro algo para preparar o form antes pois ele tem o padr�o 800x600 e se algu�m usa uma resolu��o diferente ai ele tem um bug de meio segundo onde o usu�rio consegue ver a tele se ajustando, isso n�o � nada bom, fica uma coisa bem desagradav�l...thanks...

Marcosrocha · Answer

Ent�o... Depois de criar o form, eu acredito que voc� setou OnAlgumaCoisa que redimensiona o form n�o �??Ent�o chame esse OnAlgumaCoisa antes do ShowModal. N�o tem como?...

Marcos Fernando · Answer

Como eu falei tenho um form com v�rios panels dbedit, e dbgrids mais nada faz redimensionamentos...Thanks...

Marcos Fernando · Answer

bom galera achei uma solu��o:no oncreateWidth := Screen.Width;Height := Screen.Height;thanks...

Martins · Answer

[quote:7373342608=�Marcos Fernando�]bom galera achei uma solu��o:no oncreateWidth := Screen.Width;Height := Screen.Height;thanks[/quote:7373342608]Blz, agora est� funcionando certinho?...

Marcos Fernando · Answer

opa agora t� beleza, pois assim o form pega o tamanho da resolu��o ai depois no showmodal fica pouca coisa para se adaptar nem d� pra perceber,,Thanks...

Marcosrocha · Answer

[quote:72fced12ba=�Marcos Fernando�]opa agora t� beleza, pois assim o form pega o tamanho da resolu��o ai depois no showmodal fica pouca coisa para se adaptar nem d� pra perceber,,

Thanks[/quote:72fced12ba]
Fun��o pra pegar o Height da barra de tarefas, tendo em vista que varia dependendo do Skin do Windows

var
  hTB: HWND; // taskbar handle
  TBRect: TRect; // taskbar rectangle
begin
  hTB:= FindWindow(�Shell_TrayWnd�, ��);
  if hTB = 0 then
    Result := 0
  else begin
    GetWindowRect(hTB, TBRect);
    Result := TBRect.Bottom - TBRect.Top;
  end;
end;