Запуск функции
Модераторы: Hawk, Romeo, Absurd, DeeJayC, WinMain
А можно код посмотреть?
Unit1.h :Rycharg писал(а):А можно код посмотреть?
Код: Выделить всё
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
class TMyFrm : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TMyFrm(TComponent* Owner);
void __fastcall CallMyFunc(TObject *Sender);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endifКод: Выделить всё
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void MyFunc()
{
Beep();
}
//---------------------------------------------------------------------------
__fastcall TMyFrm::TMyFrm(TComponent* Owner) : TForm(Owner)
{
this->OnPaint = &CallMyFunc;
}
//---------------------------------------------------------------------------
void __fastcall TMyFrm::CallMyFunc(TObject *Sender)
{
MyFunc();
this->OnPaint = NULL;
}
//---------------------------------------------------------------------------
Код: Выделить всё
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall CallMyFunc(TObject *Sender);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
Код: Выделить всё
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
this->OnPaint = &CallMyFunc;
}
//---------------------------------------------------------------------------
void MyFunc()
{
Beep();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CallMyFunc(TObject *Sender)
{
MyFunc();
this->OnPaint = NULL;
}
//---------------------------------------------------------------------------
Спасибо! Это то что хотелось получить! 
Это должно отработать именно так, как вам и нужно. Правда билдера под рукой сейчас нет...Arbis писал(а):Проблема не в том, чтобы запустить функцию один раз а в том что нужно сначала нарисовать форму программы а только потом запустить мою функцию.
Вы думаете, что пользователю будет более понятно, что происходит, если он будет в течении 10 секунд смотреть на зависшую форму?Arbis писал(а):Функция работает примерно 10 секунд и пользователь просто не будет понимать что происходит если увидит пустой экран
Используйте splash-screen, как вам уже и было предложено.Есть идея повесить на форму программы ProgressBar + Timer + Label ...rangerx писал(а):Вы думаете, что пользователю будет более понятно, что происходит, если он будет в течении 10 секунд смотреть на зависшую форму?
Назревает новая тема: "Заставка в Turbo C++".
Arbis, если у тебя получится пвесить эту связку(ProgressBar + Timer + Label) на главную форму и она будет работать как надо, скинь мне код. Я хочу это видеть!
Arbis, если у тебя получится пвесить эту связку(ProgressBar + Timer + Label) на главную форму и она будет работать как надо, скинь мне код. Я хочу это видеть!
Да - неполучается пока, всё работает пока я не запускаю свою функцию (пробовал вешатьTimer2 на запуск функции). Буду думать ...Rycharg писал(а):Назревает новая тема: "Заставка в Turbo C++".
Arbis, если у тебя получится пвесить эту связку(ProgressBar + Timer + Label) на главную форму и она будет работать как надо, скинь мне код. Я хочу это видеть!
А с заставками проблем нет, информация есть http://www.citforum.ru/programming/advi ... ce01.shtml
А с заставками проблем нет, информация есть http://www.citforum.ru/programming/a...advice01.shtml
Только, вот беда, параллельно с этими заставочками не поработаешь. Они для "красоты", а не для отвлечения внимания пользователя на время загрузки.Всё получилось! Запустил свою функцию в другом потоке с TThread и работает прекрасно!Rycharg писал(а):Назревает новая тема: "Заставка в Turbo C++".
Arbis, если у тебя получится пвесить эту связку(ProgressBar + Timer + Label) на главную форму и она будет работать как надо, скинь мне код. Я хочу это видеть!