ŠKOLEX- projekčná technika

Užívateľ

Zaujimalo by ma, ci sa da, aby bola vykonana EVENT (procedura), ktora patri pod UNIT1, ju uskutocnit na UNIT2 ?

Priklad:
EVENT: FormCreate, na UNIT1

kód:

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

Da sa, aby bola tato procedura aj v UNIT2 ? Ak, nie ako sa riesi toto spojenie?

Skúsený užívateľ

ake spojenie myslis ?

Užívateľ

Ide o tento komponet TMS Async32, co sa nan jeden uzivatel pytal http://www.pcforum.sk/rs-232-vt109347.html .

Problem je v tom, ze ten komponent mam umiestneny na Form1. A potreboval by som aj vo Form2 aby som mohol precitat ked mi pride novy bajt na RS232.
Komponent pracuje tak, ze po prijme noveho bajtu vykona EVENT _ OnRxChar, procedura -

kód:

procedure TForm1.VaComm1RxChar(Sender: TObject; Count: Integer);

a samotny prikaz na precitanie prijateho bajtu je

kód:

VaComm1.ReadText

.

Zatial to riesim takym sposobom, ze mam nastaveny casovac (TIMER) a ten pravidelne vzorkuju a cita stav portu, ibaze chcel by som odlachsit PC, tak by bolo dobre miesto casovaca (TIMER) aby nastala EVENT (procedura) po novom prijme (ako je to na FORM1).

Skúsený užívateľ

no toto asi iba tak ze v TForm1.VaComm1RxChar budes mat volanie procky z unitu2 cize v TForm1.VaComm1RxChar nacitas data z commportu a bud ich spracujes pre potreby form1 alebo ich volanim procky z uni2 posles do form2. apropo aj ine komponenty to riesia cez timmer takze s vytazenim pc by som si take starosti nerobil.

Skúsený užívateľ

Ak som správne pochopil, chceš volať event triedy z jedného unitu v inom unite rovnakej triedy? Ak áno, tak skús spraviť nasledovnú vec, či to je to, čo chceš:

1.) Vytvor si nový projekt, a na formulár umiestni button, v ktorého OnClick evente bude:

kód:

procedure TForm1.Button1Click(Sender: TObject);
begin

ShowMessage( 'Text z prveho unitu..' );

end;

2.) V menu vyber vytvoriť nový form a do Unitu2 do uses pridaj Unit1.
3.) Na Form2 umiestni taktiež button
4.) Do OnCreate eventu Form2 pridaj:

kód:

procedure TForm2.FormCreate(Sender: TObject);
begin

Button1.OnClick := Form1.Button1.OnClick;

end;

5.) Nakoniec nastav v Object Inspectore pre oba formuláre Visible na true ( aby boli oba viditeľné hneď po štarte )

Spusť aplikáciu a po kliknutí na tlačidlo na jednom i druhom formulári sa vykoná rovnaká udalosť Button1 eventu z Form1. Ak si potreboval práve toto, tak máš postup, ako priradiť event druhej triede.

Užívateľ

to coldak:
tak 1. moznost by sla

, ibaze ja som to chcel mat pekne oddele jedna cast progrmu vo form1 druha cast vo form2, ... form5 takto by som to vsetko do form1 nabachal.
No ked nebude ine riesenie, necham to na tom TIMER, je tam cas 50 ms vzorkovania, je to OK pre PC ?

to Fico:
No ja som to trochu inak myslel, v Form1 by sa vykonala jedna instrukcia a v druhom Form2 by sa zas ina instrukcia vykonala. Pricom by ten komponet v Form1, vyvolal EVENT aj na tom Form2.

Inak povedane, dal by som prvok Edit1 na Form1, po zmene textu by sa vykonala EVENT na Form1

kód:

procedure TForm1.Edit1Change(Sender: TObject);
begin
ShowMessage( 'Zmenil sa text EDIT, vyvolal 1. UNIT..' );
end;

A na Form2 by som chcel nech tiez mi vyvola EVENT - Edit1Change, pricom by bol iny prikaz vykonany napr:

kód:

procedure TForm1.Edit1Change(Sender: TObject);
begin
ShowMessage( 'Zmenil sa text EDIT, vyvolal 2. UNIT..' );
end;

Cize vlastne obe hlasky by vyskocili po zmene textu v EDIT1, pricom tu 2. hlasku by vykonal 2 UNIT. Snad som to dobre vysvetlil

Skúsený užívateľ

Tak to potom môžeš volať jeden event z toho druhého:

kód:

procedure TForm2.Edit1Change(Sender: TObject);
begin

ShowMessage( 'Zmenil sa text EDIT, vyvolal 2. UNIT..' );

end;

uses Unit2;

kód:

procedure TForm1.Edit1Change(Sender: TObject);
begin

ShowMessage( 'Zmenil sa text EDIT, vyvolal 1. UNIT..' );
Form2.Edit1Change( Sender );

end;

Nebude to už systémové volanie, ale neviem, či sa dá nastaviť objektu viac ako jedna obsluha na jeden event.

Užívateľ

Ak by si mohol, poslal by si mi to v projekte, pretoze presne som asi nepochopil co kde dat a nechce mi to skompilovat.

Urobil som to takto, na Form1 som dal EDIT1 a na Form2 nic som nepridava.

Unit1:

kód:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
ShowMessage( 'Zmenil sa text EDIT, vyvolal 1. UNIT..' );
Form2.Edit1Change(Sender);
end;

end.

Unit2:

kód:

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm2 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Edit1Change(Sender: TObject);
begin

ShowMessage( 'Zmenil sa text EDIT, vyvolal 2. UNIT..' );

end;

end.

Co som zle spravil?

Skúsený užívateľ

Do definície typu triedy TForm2 si nedal funkciu Edit1Change:

kód:

type
TForm2 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
procedure Edit1Change(Sender: TObject);
end;

Užívateľ

Opat velka vdaka Fico.
Uz mi to ide pod tym komponetom TMS Async32, aspon sa o nieco odlahsi PC a nieco nove som sa naucil.

EDIT:
To volanie je asi ako rychle? Potreboval by som aspon do 50ms, to snad je?

Skúsený užívateľ

Volanie prebehne okamžite po ukončení celého kódu pred ním

kód:

(*
* vsetok kod v prvom evente, ktory sa ma vykonat
*)
Form2.Edit1Change(Sender);

Čiže najprv sa vykoná jeden potom druhý. Ak potrebuješ, aby bežali takmer súčasne oba eventy, môžeš použiť vlákna, ale daj pozor na synchronizáciu, ak pracuješ s rovnakými dátami.

Užívateľ

OK, nepotrebujem sucastne aby pracovali. Takto to plne vyhovuje.

Teraz ma napadla taka vec (mimo temy) ako sa da v Delphi urobit oneskorenie radovo us? pretoze sleep/ timer, vsetko je od 1 ms

Skúsený užívateľ

Skús pozrieť, neskúšal som to:
http://www.swissdelphicenter.ch/torry/printcode.php?id=1727

Ale myslím, že tak malé oneskorenie ani nie je nutné, môžeš rovno pokračovať bez čakania, prípadne si sprav krátku slučku for s prázdnym telom.

Užívateľ

Zaujimave riesenie, vies mi aj vysvetlit ako to funguje. Mne to pripada, ze na zaklade taktu prepocita pocet instrukcii a tym vyde to oneskorenie, alebo sa mylim ?

Skúsený užívateľ

presne tak riesit kratke cakanie nema zmysel, aj tak ho nedokazes vykonat presne, nakolko samotna rezia na take nieco zaberie viac casu. a musis si uvedomit ze tam mas preemptivny multitasking cize tvoj proces nieje vykonávaný kontinualne ale raz za cas mu je prideleny procesorovy cas a interval pristupu k procesoru je rozny v zavyslosti od aktualneho poctu prave beziacich procesov a ich priorit.

ŠKOLEX- projekčná technika

Stavba - pred začatím, počas

Eloxované hliníkové profily

Top novinka v O2 e-shope

Intenzívne zoštíhlenie

[Delphi] prenesenie EVENT na cudzi UNIT

SEO - optimalizácia pre vyhľadávače

Freebsd