Accueil > Forum > > > > Variable required
 Variable required
dimanche 6 novembre 2005 à 00:04:08 |
Variable required
Mxbug
|
Yop
j'ai une procedure :
procedure Monitor ;
Begin
If (Handle <> ActiveHandle) Then
If (Window <> ActiveCaption) Then
Begin
Window := ActiveCaption;
If Window = ActiveCaption then
Begin
SendKeys(Pchar(IMessage + #13));
End;
End;
End;
puis ds le form create :
procedure TForm1.FormCreate(Sender: TObject);
begin
SetTimer(0, 0, 3000, @Monitor);
While true Do Begin
If Not GetMessage(msg, 0, 0, 0) Then
Break;
TranslateMessage(msg);
DispatchMessage(msg);
End;
end;
j'ai une erreur :variable required dans : SetTimer(0, 0, 3000, @Monitor);
mais quand je fais cela sur une application console ca marche tres bien :( .
Merci |
|
dimanche 6 novembre 2005 à 00:12:19 |
Re : Variable required
Mxbug
|
desolé je remet le code :
procedure Monitor ;
Begin
If (Handle <> ActiveHandle) Then
If (Window <> ActiveCaption) Then
Begin
Window := ActiveCaption;
If Window = ActiveCaption then
Begin
SendKeys(Pchar(IMessage + #13));
End;
End;
End;
puis ds le form create :
procedure TForm1.FormCreate(Sender: TObject);
begin
SetTimer(0, 0, 3000, @Monitor);
While true Do Begin
If Not GetMessage(msg, 0, 0, 0) Then Break;
TranslateMessage(msg);
DispatchMessage(msg);
End;
end;
|
|
dimanche 6 novembre 2005 à 10:01:57 |
Re : Variable required
DRJEROME
|
Réponse acceptée !
j'ai pas essayé ton code, mais je te donne un exemple de SetTimer....c'est p'têt de là que venait ton problème...
var
Form1: TForm1;
nide:cardinal;
implementation
{$R *.DFM}
function TimerFunc (H: hwnd;uMsg : UINT;idEvent : UINT;dwTime : DWORD ): BOOL; stdcall;
begin
{tu mets ton événement périodique ici par exemple :}
form1.color:=not form1.color;//c'est un exemple
Result:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
nide:=123456;//j'ai mis ce qui me passait par la tête comme valeur...tu te la choisis...
SetTimer(handle,nide,1000{délai en millisecondes de ton Timer},@TimerFunc);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
KillTimer(handle,123456)
end;
end.
N'oubliez pas de cliquer sur Réponse acceptée si c'est OKDrJerome 
|
|
dimanche 6 novembre 2005 à 13:48:13 |
Re : Variable required
Mxbug
|
Yop
merci pour ta reponse
mais ma procedure :
procedure Monitor ;
Begin
If (Handle <> ActiveHandle) Then
If (Window <> ActiveCaption) Then
Begin
Window := ActiveCaption;
If Window = ActiveCaption then
Begin
SendKeys(Pchar(IMessage + #13));
End;
End;
End;
ne va pas trop dans la fonction timerfunc :s .
|
|
dimanche 6 novembre 2005 à 15:27:17 |
Re : Variable required
DRJEROME
|
Réponse acceptée !
ben...oui c'est ce que je te disais, il faut redéfinir ta procédure "Monitor" Utilise ma fonction " TimerFunc" que tu appeles "Monitor" si tu veux...et à la place de "form1.color:=not form1.color;" (qui était un exemple) tu mets :
If (Handle <> ActiveHandle) Then
If (Window <> ActiveCaption) Then etc...
bien sûr ... tu règles ton timer à 3000 j'avais mis 1000 pour mon exemple.
Il ne faut pas oublier de faire le "KillTimer"
Remarque : je ne comprends pas pourquoi tu utilises un SetTimer, le composant Timer de Delphi suffit. L'avantage du SetTimer est que tu accèdes à son handle...après pour le reste c'est pareil....
N'oubliez pas de cliquer sur Réponse acceptée si c'est OKDrJerome 
|
|
dimanche 6 novembre 2005 à 16:17:32 |
Re : Variable required
Mxbug
|
C'est Reglé merci a toi
|
|
Cette discussion est classée dans : end, variable, procedure, begin, required
 Répondre à ce message
 Sujets en rapport avec ce message
Problème Econversion Error lors de l'affichage d'une info bulle dans une fenetre MDIChild dans une DLL [ par DarkSky ]
Salut a tous,j'ai créer un projet MDI avec Delphi 6 donc les fenetre MDi Filles sont dans une DLL.j'ai une erreur EConversionError a la place de l'aff
Hints dans une DLL [ par almi ]
J'ai une fenêtre (TForm) qui fonctionne parfaitement dans mon executable.Si je la place dans une DLL, j'obtiens le message :Ne peut assigner TFont à T
pb d'affichage d'un TChart [ par Pegase20 ]
bonjour, J'affiche une autre fiche qui contient un graphique (créé à l'aide d'un TChart) quand je clique sur un bouton.Mon pb c'est que le graph ne
MDI Filles dans une DLL [ par DarkSky ]
..::= DarkSky =::..Salut almi,j'ai exactement le même problème que toi (Hint) sur l'utilisation de MDI Filles dans une DL
Aide variable [ par SatanCorporation ]
je vien de commencé le delphi cet aprem et g un probleme :procedure TForm1.BitBtn1Click(Sender: TObject);vari:integer;beginfor I := 1 to 10000 do b
Probleme lecture/ecriture dans fichier. [ par Cybric ]
Bonsoir.Je débute avec DELPHI, donc novice.Je recopie tel quel le code de lecture de fichier trouvé dans "tout en poche" et cela ne fonctionne pas. Le
projet de chat avec delphi 7 [ par dk ]
hello every body j'aimerais faire un chat mais voila le probleme (si on peut dire) c ke g delphi 7 avec comme composant installer Tcpserver et Tcpclie
Changer la forme de l'animation matrix [ par Also know as ]
Bonjour,Voici une méthode permettant de créer une animation à la matrix sans sa police.Il suffit juste d'appeler sa Form MainForm, mettre un memo et c
Aide pour appelé des procédures [ par prevok ]
Lorsque je démarre le programme, pas de problème, je peux aller choisir dans le menu l'option que je veux, qui appelle une procedure, mais quand de ce
 Livres en rapport
|
Derniers Blogs
 [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|