Variable required - Archives / J'AI BESOIN D'AIDE !!!! :O, Delphi

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 19:54:46

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

COMPOSANT TABSHEET par swadfish

RE : CHERCHER DES VALEURS DANS UN FICHIER BIN par Smith4400

SON WAVE AVEC NOMBRE DE BIT PAR éCHANTILLON = 16 par airefrais

DELPHI6 - IMAGES HTML par toto93350

RE : EXECUTABLE D'UNE BASE SQL SERVER 2000 +DELPHI 7 par souhi321321321

+ de logiciels à télécharger

1 468 053 membres
457 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 109 codes, 1 305 018 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Variable required [ Archives / J'AI BESOIN D'AIDE !!!! :O ] (Mxbug)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Delphi / Archives / J'AI BESOIN D'AIDE !!!! :O / Variable required
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

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 OK

DrJerome

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 .
	Rép. MP 36 msg 38 msg CS

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 OK

DrJerome

dimanche 6 novembre 2005 à 16:17:32 | Re : Variable required

Mxbug	C'est Reglé merci a toi
	Rép. MP 36 msg 38 msg CS

Cette discussion est classé 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 plein derreur a la fermeture de mon prog qui font lanter windows [ par dk ] voila javais deja eu qq petits soucis avec le prjet de chat que je suis en train de realiser mais jamais a cette ampleur lol, qd je lance mon prog ca 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