Ir para conteúdo
Fórum Script Brasil

Douglas Soares

Veteranos
 Perfil  Explorar Conteúdo

  • Total de itens

    864

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Douglas Soares

  8. (Resolvido) Search and Delete

    em Delphi, Kylix

    Postado

    É Douglas Soares, estudar cansa mesmo. Lembro no tempo da Faculdade e Ainda

    tinha que trabalhar Acordava as 5 da manha e só ia dormir a Meia Noite.

    Foram 4 Anos muito Cansativos mas valeu muito apena!

    Lembro que na epoca 2000 a 2004 estava no Auge as LANHOUSE, era minha valvula de escape aos Sabados.

    Só Trabalho e Estudo n da certo temos que ter um momento para a Diversão!

    Ainda hoje raramente jogo DODSource e Left4Dead.

    kkkk, faculdade? rsrssr tenho 16 anos, eu to no segundo colegial ainda huhusauha, tem gente que nem acredita que eu programo :wacko: , qualquer dia nois marca um jogo de Left4Dead no garena!!! :P

    Abraços

  12. (Resolvido) Inconpatible types no WinExec

    em Delphi, Kylix

    Postado

    Certo então faz a mesma coisa com o WinExec

    DataConfigs.DataSet.Open;
WinExec(PAnsiChar('cmd /c net use S: '+ DataConfigs.DataSet.FieldByName('PATH_FOTOS').AsString), SW_ShowNormal);

    Outra coisa, que comando é esse que você está querendo fazer??? net use S:... o que isso faz?

    Abraços

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

    Edit: Já saquei, você tá querendo mapear uma unidade de rede!

  21. (Resolvido) Inconpatible types no WinExec

    em Delphi, Kylix

    Postado

    Então você vai ter que colocar o seu ClientDataSet e não o seu datasource.dataset...

    se o seu cds chama CdsTeste você tem que usar ele, não importa quantos datasources você usa

    WinExec(PChar('cmd /c net use Y: '+ CdsTeste.FieldByName('PATH_FOTOS').Text), SW_ShowNormal);
    ou 
    WinExec(PAnsiChar('cmd /c net use Y: '+ CdsTeste.FieldByName('PATH_FOTOS').Text), SW_ShowNormal);

    Abraços

  23. Customizar exibição em dbgrid

    em Delphi, Kylix

    Postado

    Faça assim no OnTileClick do DBGrid:

    procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
  if 'a' + Column.FieldName = CDS_CaixaP.IndexName then
    CDS_CaixaP.IndexName := 'd' + column.FieldName
  else
    CDS_CaixaP.IndexName := 'a' + column.FieldName;
end;
    E no OnCreate do form poe isso: 
    procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
  for i := 0 to CDS_CaixaP.FieldCount - 1 do
  begin
    CDS_CaixaP.IndexDefs.Add('a' + CDS_CaixaP.Fields[i].FieldName,
      CDS_CaixaP.Fields[i].FieldName, []);
    CDS_CaixaP.IndexDefs.Add('d' + CDS_CaixaP.Fields[i].FieldName,
      CDS_CaixaP.Fields[i].FieldName, [ixDescending]);
  end;
end;

    Abraços

  25. (Resolvido) Mover form fsMDIChild pelo DBGrid

    em Delphi, Kylix

    Postado

    Segue a dica pra quem quiser mover um form fsMDIChild pelo DBGRID:

    Adicione essa procedure em Private :

    procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHitTest;
    depois coloque essa procedure depois de implementation 
    procedure Tform1.WMNCHitTest(var Msg: TWMNCHitTest);
 begin
    inherited;
    if Msg.Result = htClient then Msg.Result := htCaption;
 end;
    Outra coisa, fazendo dessa forma você só poderia move-lo se tivesse clicando no form... como eu tenho um DBGrid no form inteiro eu preciso "enganar o sistema", é simples, basta ir no evento OnMouseDown do DBGrid ou de qualquer outro componente e adicione isso: 
    ReleaseCapture;
SendMessage(Self.Handle, WM_SYSCOMMAND, 61458, 0);

    Abraços

×
×
  • Criar Novo...