Club Builder

[dcelso@terra.es]

Pues eso, estoy haciendo un notepad con un richedit y ya he conseguido asociarle ficheros txt, pero ahora falta que al echar encima del richedit el fichero se habra.
Se que hay que usar .LoadFromFile(),¿ pero como conozco el nombre del fichero? ¿y como activo que se le puedan soltar cosas?

[Fede]

Hola.. no soy un experto en esto, pero he estado probando (ahora que no me mira el jefe).

code:

---

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <ShellAPI.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
void TForm1::WMDropFiles(TMessage Mensaje)
{
char nombre[256];
String Extension;
DragQueryFile((HANDLE)Mensaje.WParam,0,nombre,255);
DragFinish((HANDLE)Mensaje.WParam);
ShowMessage(nombre);
RichEdit1->Lines->LoadFromFile(nombre);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
DragAcceptFiles(Handle,true);
}
//---------------------------------------------------------------------------
y el .h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TRichEdit *RichEdit1;
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
void WMDropFiles(TMessage Mensaje);
BEGIN_MESSAGE_MAP
  MESSAGE_HANDLER(WM_DROPFILES, TMessage,WMDropFiles)
END_MESSAGE_MAP(TComponent)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

---

Espero que te sirva de inspiracion, no se si habre metido la gamba en algun lado.

[dcelso@terra.es]

No encuentro nada, si alguien sabe donde buscar que me avise.

[dcelso@terra.es]

Muchas gracias, a ver si me puedes decir de donde has sacado la informacion de los mensajes y de las constantes defindidas de windows para posteriores problemillar con estas cosillas. A simple vista parece que me va a valer, voy a probarlo.