Wyniki wyszukiwania

Hmm... Spróbuj programem WirelessKeyView.

To, że jest 8 'kropek' nie znaczy, że hasło ma akurat 8 znaków

Takie trudne ? http://www.google.pl/search?q=delphi+w%C5%...lient=firefox-a Pierwszy link

A tak, rzeczywiście ... var I: Integer; S: String; begin for I := 0 to ComponentCount-1 do if TPanel(Components[I]).Caption = 'mojpanel' then   S := Components[I].Name; end;

for I := 0 to ComponentCount-1 do if Components[I].Caption = 'sDASD' then   S := Coponents[I].Name;

Stwórz sobie stronę w html, zapisz ją na dysku a w przeglądarce w "stronie startowej" wpisz ścieżkę do tego pliku.

var I: Integer; begin for I := 1 to 8 do TButton(FindComponent('Button' + IntToStr(I) )).Caption := 'Ah';

Najprościej będzie dodać do tych wszystkich Editów jakąś wartość w Tag... var I: Integer; begin for I := 0 to Form1.ComponentCount -1 do   if Form1.Components[I] is TEdit then    if TEdit(Form1.Components[I]).Tag = 11 then      TEdit(Form1.Components[I]).CosTam end; Ale to bardzo prymitywny i...

var I: Integer; begin for I := 0 to Form1.ComponentCount -1 do   if Form1.Components[I] is TEdit then    TEdit(Form1.Components[I]).CosTam end;

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     procedure Button1Click(Sender: TObject);   private     { Private declarations...

Ehh ... Musisz zadeklarować zmienną globalną : ... var   Form1: TForm1;   L : Byte = 0; implementation ...

if L = 0 then Edit1.Text := 'Tekst 1' else if L = 1 then Edit1.Text := 'Teskt 2' else if L = 2 then Edit1.Text := 'Tekst 3' ... Inc(L); // (L := L + 1) :]

Pokaż kod ...

Jeśli tekst ma być losowy to : http://www.krolnet.pl/delphi-object-pascal...anie-cipgu-znak A jeśli ustalony przez Ciebie ... Zmienna globalna : a w OnClick buttona : if L = 0 then Edit1.Text := 'Tekst 1' else if L = 1 then Edit1.Text := 'Teskt 2' else if L = 2 then Edit1.Text := 'Tekst 3' ...

1. Edit1.Text := 'hj' ; Edit2.Text := 'asd' ; 2. MediaPlayer(System) ...

ShellExecute(Handle, 'open', PChar(ExtractFilePath(ParamStr(0)) + '\Program.exe'), nil, nil, SW_NORMAL) ; ?

OnUserChangeStatus ... Raczej nie o Twój opis/status chodzi xD

Może CoolTrayIcon ?

TU

Przerzuć się na kontrolkę mozilli