Delphi - ako zabrániť TMemo.SetFocus spusteniu?

Mám na formulári TMemo. Je to jediná komponenta, ktorá môže mať focus a ja potrebujem tomu zabrániť, aby sa tam dostal kurzor. Už som nastavil vlastnosť ReadOnly na False, aj TabStop na False, ale myšou sa tam dostanem. Nie je problém v metóde OnEnter nastaviť focus na niečo iné, ale nemám na čo. Ako tomu focusu myšou zabrániť?

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Dalo by sa to i takto:-D procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X, Y:… Andrej 11.05.2006 19:56	Andrej	11.05.2006 19:56
Ty si vtipalek :-D aby tu mys honil okolo.:-D poslední virus 12.05.2006 16:58	virus	12.05.2006 16:58

Dalo by sa to i takto

procedure TForm1.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 Randomize;
 memo1.Left:=1+Random(form1.Width-memo1.Width-1);
end;

Predpokladam ze chces nieco ako Label ale s viac riadkami?

Ty si vtipalek aby tu mys honil okolo.

Zpět do poradny Odpovědět na původní otázku Nahoru