lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
ubytzika_senzuala
Femeie
22 ani
Vrancea
cauta Barbat
22 - 45 ani
lisp2arx / Delphi, webdesign / Delphi32 - How to add String To ListBox with Handle?  
Autor
Mesaj Pagini: 1
admin
Administrator

Din: Bucharest
Inregistrat: acum 13 ani
Postari: 509
How to append string in TlistBox outside the TLogoAppForm with Handle.

Code:

procedure TLogoAppForm.FormCreate(Sender: TObject);
Var isNested:integer;
begin
  Application.OnHint := ShowHint;
  udm_free.hWndStatusbar:=ListBox.Handle; 
  DemoStart:=RTCAN;
end;



Code:

Unit php_soundex;
Interface

Function midiecho(const DoAdUiMessage:String):Boolean;
Implementation

Function midiecho(const DoAdUiMessage:String):Boolean;
Begin result:=true;
       if (udm_free.hWndStatusbar<>0)and(DoAdUiMessage<>'') then
????
SendMessage(udm_free.hWndStatusbar,WM_SETTEXT,0,integer(pchar(DoAdUiMessage)));
           else       Writeln(DoAdUiMessage);
End;



_______________________________________
pus acum 3 ani
   
Pagini: 1  

Mergi la